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1 

2 1. ABSTRACT 

3 

5 THE RM05/3/2 DUAL FORT LOGIC TEST PERFORMS A SERIES OF 

6 TESTS WHICH VERIFY THAT THE RM05/3/2 DUAL PORT LOGIC 

7 IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 

8 BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

9 IS NOT TESTED BY THIS PROGRAM. 
10 

11 BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASS8US BY 

12 A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
15 PORT LOGIC TO BE TESTED FROM ONE PDP-11, RH11 OR RH70. 

14 

15 THIS PROGRAM IS THE FIRST PART OF THE DUAL PORT OPTION 

16 LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 

17 MANUAL INTERVENTION TESTS. 
18 

19 
20 

21 2. REQUIREMENTS 

22 

23 

24 2.1 EQUIPMENT 

25 

26 PDP-11 PROCESSOR 

27 20K MEMORY 

28 KWn-L OR KWn-P CLOCK 

29 TERMINAL 

30 RH11 OR RH70 

31 1 - DISK DRIVE (RM05, RM03 OR RM02) 

32 RM DUAL PORT TEST CABLE (P/N: 7010507-02) 
33 

34 2.2 PREREQUISITE PROGRAMS 

36 RM05/3/2 DISKLESS TEST, PART 1 & 2 
37 

38 RM05/3/2 FUNCTIONAL TEST. PART 1.263 
39 

40 THE PRELIMINARY PROGRAMS MUST BE PUN TWICE: ONCE FROM 

41 EACH PORT (A 8 B). 
42 

43 2.3 OTHER PROGRAMS 

44 

45 A. THE OPERATION OF THE "PORT SELECT" SWITCH IS TESTED 

46 BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 
47 

48 B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 

49 TESTED BY THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM. 
50 

51 
52 

53 3. LOADING PROCEDURES 

54 

55 THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 

56 LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 

57 USING THE ASSOCIATED 'XXOP' LOADER. THE PROGRAM MAY NOT 
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58 BE INCLUDED IN AN 'XXDP* CHAIN. 

59 

60 

61 

62 A. STARTING PROCEDURES 

63 

6A 

65 A.T STARTING ADDRESSES 

66 

67 A. THE NO.'^L S1ARTIN6 ADDRESS OF THE PROGRA/1 IS LOCATION 

68 200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 

69 TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 

70 TESTED. 
71 

72 8. THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 

73 USE THE CURRENT DRIVE ADDRESS. 
74 

75 C. THE PROGRAM CAN BE STARTED AT LOCATION 210 (8) TO ALLOW THF 

76 ADDRESS OF THE RHII OR RH7U TO BE CHANGED. 
77 

78 4.2 OPERATOR ACTION 

79 

80 A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 

81 8 BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

82 B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 

83 THE MASS8US USED FOR TESTING. 

84 C. SWITCH THE 'PORT SELECT' SWITCH ON THE DRIVE TO BE 

85 TESTED TO THE 'A/B' POSITION. CYCLE THE DRIVE UP. 

86 D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 

87 INTO THE SWITCH REGISTER (OR THE 'SOFTWARE' SWITCH REGISTER, 

88 REFER TO SECTION 5.2). 

89 E. PRESS START. 

90 F. ENTER THE DRIVE NUMBER. 

91 G. ENTER THE NUMBER OF THE TEST TO BE RUN. ('CARRIAGE RETURN' 

92 OR '0' WILL RUN ALL TESTS.) 

93 H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 

94 FROM LOCATION 204. 
95 

96 
97 

98 5. OPERATING PROCEDURES 

99 

100 

101 5.1 'SOFTWARE' SWITCH REGISTER 

102 

103 IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

104 THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

105 NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 

106 'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION i76 (8). THE 

107 SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED ^mROUGH A KEYBOARD 

108 ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 

109 RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

110 IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 

111 'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 

112 TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
113 

114 'SWR - NNNNNN NEW =' 
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115 

116 EACH TIME SWITCH SETTING ARE ENTERED. THE ENTIRE SWITCH REGISTER 

117 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED.. 'RU80UT' AND 

118 'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING FRROfiS 

119 DURING SWITCH ENTRY. 
120 

121 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE' SWITCH 

122 REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 

123 ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 

124 MD THE PROCEDURES DbSCRIBED ABOVE MUST BE FOLLOWED. 

126 5.2 OPERATIONAL SWITCH SETTINGS 

128 WITH ALL SWITCHES SET TO ZERO. THE PROGRAM WILL TYPE 

129 ALL ERRORS AND CONTINUE TESTING. 

13? THE SWITCH SETTINGS ARE: 

133 SW<15>=1 HALT ON ERROR 

134 SW<K>=1 LOOP ON TEST 

135 SW<13>^1 INHIBIT ERROR TYPEOUTS 

136 SW<11>=1 INHIBIT TEST ITERATIONS 

137 SW<10>=1 RING TTY BELL ON ERROR 

138 SW<09>=1 LOOP ON ERROR 
139 

UO 5.3 TEST SELECTION 

141 

142 INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 

143 TEST NUMBER:' MESSAGE. ANY VALID TEST NUMBER CAN BE 

144 ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 

145 RETURN (CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 

146 TO ALLOW CONTINUOUS EXECUTION Of THE SELECTED TEST. 
147 

148 TO RUN ALL TESTS IN SEQUENCE. ENTER EITHER A '0' FOLLOWED 

149 BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 

150 PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 
^51 

152 THE 'RUeOUT KEY' (RO) CAN BE USED TO DELETE THE LAST 

153 CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

154 WILL DELEfE CHARACTERS UNTIL THE PREVIOUS CHAP^CTEUS HAVE 

155 BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 

156 TYPED AND WILL BE SEPARATED BY 'X' FROM THE CHARACTERS 

157 ENTERED BY THE OPERATOR. 
158 

159 THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 

160 'CONTROL U' . 
161 

162 5.4 TEST CABLE CONNECTION 

163 

164 TO TEST THE RM05/3/2 DUAL PORT OPTIO^. WITH THIS PROGRAM. 

165 A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

166 P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & MASS8US 

167 B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 

168 THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 
'69 

170 WITH THE DRIVE CABLE CONNECTED TO THE RM05/3/2 UNDER TEST. 

171 THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
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17? OF THE DRIVE WILL RESPOND TO A DIFFERENT MASS8US ADDRESS. 

173 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 

174 ADDRESS PLUG. 

176 THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 

177 PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 

178 OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 
'79 

101 • ANY 0THE:'< DRIVE ON THE MASS8US WHKH HAS AN ADD^FSS • 

182 * IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE • 

133 • POWERED DOWN. 

Ig^ »•*»»**»»*•*»•****»*•»♦••*»♦*»»*♦♦»*»•♦••**♦••*•*••***••••• 

186 THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

187 DEPEND ON WHICH PROCESSOR, RH11/RH70 IS TO TEST -.HE DRIVE. 

188 IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT ^. 

189 CONNECT THE MASS8US CABLE FROM THE RH11/RH70 TO J3 OF THE 

190 RM05/3/2 BACK PANEL. THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 

191 FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT 'B" AT J6. 
192 

193 WHEN THE DUAL PORT TEST CABLE IS CONNECTED. THE ATTENTION 

194 BITS FOR PORTS A 4 B ARE ASSERTED IN THE SAME BIT POSITION 

195 WHEN 'RMAS' (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 

196 BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE 

197 THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

198 INCLUSIVE 'OR' OF THE PORT A Z PORT B ATTENTION BITS. BECAUSE 

199 OF THIS. THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 
?00 'RMDS* (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 
201 0^ THE SELECTED PORTS'S ATTENTION BIT. 

202 
206 
20A 

205 6. ERRORS 

206 

207 

208 WHEN THE PROGRAM ENCOUNTERS AN ERROR. THE ERROR ROUTINE IS 

209 CALLED AND IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 

210 TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 

211 THE FOLLOWING: 
212 

213 A. AN ERROR MESSAGE 

2U B. A DATA HEADER LINE 

215 C. A DATA LINE CONTAINING: 

216 1. THE TEST NUMBER 

217 2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 

218 CALL WAS MADE 

219 3. CONTENTS OF THE APPROPIATE REGISTERS 
220 

221 
222 
223 

224 7. MISCELLANEOUS 

225 

226 

227 7.1 RESTRICTIONS 

228 
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7.4 



C7RMR80 RM05/V2 DU POR T5T 1 flACRO V04.00 



229 
230 
231 

232 , - 

233 7.2 
234 

235 
256 
237 
238 
239 
2^0 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 

255 _ . 

256 7,5 
257 

258 
259 
260 

262 7.6 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 8. 
274 

IP, 

277 
278 
279 
280 
281 
282 
283 
284 
285 



H 1 

4-APR-81 18:06:25 PAGE 3-4 

TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KUll-P 
OR A KWll-L CLOCK. ADDITIONALLY, THE DRIVE UNDER TEST 
MUST H-J^VE THE DUAL PORT TEST CA8LE CONNECTED. 

LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT. DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION, AND DOES NOT TEST THE UNLOAD COMMAND 
OR THE OPE.'^ATION OF THE PORT SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 & 2.3) 

EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS. 

REQUIRED TESTS 

IF THE PROGRAM IS BEING EXECJTED IN SINGLE TEST MODE. THE 
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
TESTS ARE RUN: 

A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
EACH PORT. 

DISK SURFACE USAGE 

THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
DRIVE MUST BE CYCLED UP AND BE ON LINE FOR THE DIAGNOSTIC TO BE 
RUN. 

LOOP ON ERROR OPTION 

IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UfJTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCLRING. 
BECAUSE THE PROGRAM MUST RESET THE RM05/3/2 TO A KNOWN STATE 
BEFORE LOOPING ON IriE ERROR. THE TEST FOR SW<09> IS PERFORMED 
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 
WAS DETECTED. 



TEST DESCRIPTIONS 



METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 

THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
CATA' g 'VV') AND VERIFIES THAT CORRECT STATUS IS READ 
THROUGH BOTH PORTS. (THE CORRECT STATUS i S ' MOL ' . ;PGM ' . 
•DPR*. & 'DRV'.) If NEITHER PORT SEES ALL ZEROS FROM 
RMDS. ■^HE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND fHAT ANY BIT DESCREPANCY BETWEEN PORTS INDICATES A 
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FAILURE IN THE PATH FOR THAT BIT. 

ADDITIONALLY, THE PORT REQUEST FLOPS (ROA, R08) OF THE 
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 
THE DRIVE IS IN NEUTRAL. 

METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 

THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SUZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 
THC SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 
ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E., 
CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DftlVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 

METHOD USED TO VERIFY PORT REQUESTS 

THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 
TESTED TO DETERMINE IF : 

. A DRIVE IS IN NEUTRAL, I.E.. RQA AND ROB ARE ZERO; 
. A DRIVE IS SEIZED, I.E., RQA OR ROB IS ONE; 
. A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED TO THE 
ALTERNATE PORT, I.E.. RQA AND ROB ARE ONE. 



TEST 1 NEUTRAL ACCESS TEST 

VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 

A. SELECT DRIVE. VERIFY THAT THE DRIVE IS PRESENT, THAT THE 

DRIVE IS A DUAL PORT RM05/3/2. THAT THE DRIVE IS ONLINE (RMDS HAS 
•MOL', 'PGM'. 'DPR', e 'DRY* BITS SET). AND THE THfc DRIVE SERIAL 
NUTBER READ THROUGH BOTH PORTS IS THE SAME. 

B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
TEST 2 PORT 'A' SEIZE/TIMEOUT TEST 

VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONF SECOND TIMER. 
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A. 
B. 

C. 



WRITE O'S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'B';- 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
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A. 
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TEST 
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A. 


399 





TEST 3 PORT '8' SEIZE/TIMEOUT TEST 

f THAT THE DRJVE CAN BE SEJZED BY WRJTJNG A REMOTE REGISTER Ml) THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

WRITE O'S INTO RMDA THROUGH PORT '8'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'A'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT HMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 



SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
SET VOLUME VALID AND CLEAR ANY ERROR 

ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 



SEIZE THE DRIVE THROUGH PORT '8* BY WRITING O'S INTO RMDS. 
SET VOLUME VALID AND CLEAR ANY ERROR 

ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL. AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 



ISSUE A RELEASE COWAND THROUGH PORT 'A* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 



ISSUE A RELEASE COMMAND THROUGH PORT '8* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 
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IS SEIZED BV THE OTHER PORT. 

SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A*. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT '8'. 

RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT 'A'. 

RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL MiD THAT NEITHER ATTENTION BIT IS SET. 

TEST 11 PORT 'B' RELEASE INTERFERENCE TEST 

r THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

SEJZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT '8*. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A*. 

RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT '8'. 

RELEASE THE DRIVE THROUGH PORT 'B' . VERIFY THAT THE DRIVE RETL«NED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 12 PORT 'A' RELEASE W/ERRORS TEST 

f THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 

SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

WRITE rS INTO RMER1 THROUGH PORT 'A'. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE 'GO' 
BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'A'. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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457 TEST 1^ PORT '8' RELEASE W/ERRORS TEST 

A58 

^,59 VERIFY THAT A RELEASE COWIAND PERFORMS NO ACTION If ISSUED WHEN ERROR 

460 BITS ARE SET IN THE DRIVE. 

461 

462 A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS, 

463 

464 B. WRITE TS INTO RMERI THROUGH PORT '8'. 

465 

466 C. ISSUE A RELEASE COMMAND THROUGH PORT 'B' . VERIFY THAT THE 'GO' 

467 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 

468 THAT RMERI HAS NOT BEEN CLEARED. 
469 

470 D. CLEAR RMERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B'. 

471 

472 E. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 

473 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
474 

475 

476 TEST 14 PORT 'A' SEIZE AND CLEAR TEST 

477 

478 VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

479 PORT TO RELEASE THE DRIVE. 
480 

481 A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'A'. 

482 VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
483 

484 B. ISSUE A DRIVE CLEAR THROUGH PORT 'A* AND VERIFY THAT THE DRIVE 

485 DOES NOT RETURN TO NEUTRAL. 
486 

487 C. ISSUE A MASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 

488 THE DRIVE DOES NOT RETURN TO NEUTRAL. 
489 

490 D. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

491 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
492 

493 

494 TEST 15 PORT '8' SEIZE AND CLEAR TEST 

495 

496 VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

497 PORT TO RELEASE THE DRIVE. 
498 

499 A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT '8'. 

500 VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
501 

502 B. ISSUE A DRIVE CLEAR THROUGH PORT '8' AND VERIFY THAT THE DRIVE 

503 DOES NOT RETURN TO NEUTRAL. 

504 

505 C. ISSUE A MASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY ^HAT 

506 THE DRIVE DOES NOT RETURN TO NEUTRAL. 

508 D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE 

509 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT Is SET. 
510 

511 

512 TEST 16 SEIZE 'A' BY RMCS1 TEST 

513 
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5U VERIFY THAT READING THE CONTROL REGiSTER (RMCS1) SEIZES THE DRIVE 

515 IF THE DRIVE IS IN NEUTRAL. 

517 A. READ THE CONTROL REGISTER (RMCS^) THROUGH PORT 'A'; VtRIFV THAT 

518 THE DRIVE IS SEIZED. 
519 

520 B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'; VERIFY THAT THE DRIVE 

521 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

522 
523 

524 TEST 17 SEIZE '8' BY RMCS1 TEST 

525 

526 VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 

527 IF THE DRIVE IS IN NEUTRAL. 
528 

529 A. REAi) THE CONTROL REGISTER (RMCS1) THROUGH PORT '8'; VERIFY THAT 

530 THE DRIVE IS SEIZED. 
531 

532 B. ISSUE A RELEASE COMMAND THROUGH PORT 'B' ; VERIFY THAT THE DRIVE 

533 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
534 

535 

536 TEST 20 PORT 'A* INHIBIT SEIZE BY RMCS1 TEST 

537 

538 VERIFY THAT READING THE CONTROL REGISTER (RMCSI) DOES NOT SET 'PORT 

539 REQUEST' IF TME DRIVE IS SEIZED. 
540 

541 A. SEIZE THE DRJVE THROUGH PORT '8* BY READING RMCSI. VERIFY THAT 

542 THE DRIVE HAS BEEN SEIZED. 
543 

544 8. READ THE CONTROL REGISTER FROM PORT 'A*. VERIFY THAT 'DVA' IS NOT 

54i SET. 

546 

547 C. ISSUE A RELEASE COMMAND THROUGH PORT 'B*. VERIFY THAT THE DRIVE 

548 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
549 

550 

551 TEST 21 OORT '8' IWI8IT SEIZE BY RMCSI TEST 

553 VERIFY THAT READING THE CONTROL REGISTER (RMCSI) DOES NOT SET 'PORT 

554 REQUEST* If THE DRIVE IS SEIZED. 
555 

556 A. SEIZE THE DRIVE THROUGH PORT 'A' BY READING RMCSI. VERIFY THAT 

557 THE DRIVE HAS BEEN SEIZED. 
558 

559 8. READ THE CONTROL REGISTER FROM PORT '8'. VERIFY THAT 'DVA' IS NOT 

560 SET. 
561 

562 C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

563 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
564 

565 

566 TEST 22 SEIZE BY RMAS TEST 

567 

568 TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 

569 (RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 

570 PORT. 



SEO 001. 



CZRMRBO PM05/3/2 DU POR TST 1 



N 1 

MACRO VOA.OO A-APR-81 18:06:25 PAGE 3-10 



SEO 0015 



572 A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 

573 IS SEIZED. 

575 8. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 

576 DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 

577 OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 

578 
579 

580 TEST 23 INHIBIT SEIZE BY RMAS TEST 
581 

532 VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A 'ZERO' IS WRITTEN INTO 

583 THE DRIVE'S ATTENTION BIT, 

584 

585 A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS. EXCEPT THE 

586 BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 
587 

588 B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 

589 

590 

591 TEST 24 SET PORT 'A* REQUEST TEST 
592 

593 VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 

594 DRIVE IS SEIZED BY THE OTHER PORT. 
595 

596 A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 
597 

598 8. WRITE O'S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 

599 SEIZED BY PORT '8'. 
600 

601 C. ISSUE A RELEASE COMMAND FROM PORT '8' AND VERIFY THAT THE DRIVE 

602 SWITCHED TO PORT 'A'. VERIFY THAT THE ATTENTION BIT IS SET FOR 

603 PORT 'A* AND IS NOT SET FOR PORT '8'. 
60A 

605 D. ISSUE A RELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 

606 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS *>ET. 
607 

608 

609 TEST 25 SET PORT '8' REQUEST TEST 

61? VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 

612 DRIVE IS SEIZED BY THE OTHER PORT. 

61^ A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

616 B. WRITE O'S INTO RMDS FROM PORT 'fi'; VERIFY THAT THE DRIVE IS STILL 

617 SEIZED BY PORT 'A'. 

619 C. ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY THAT THE DRIVE 

620 SWITCHED TO PORT 'B'. VERIFY THAT THE ATTENTION BIT IS SET FOR 

621 PORT '8' AND IS NOT SET FOR PORT 'A'. 
622 

623 D. ISSUE A RELEASE COMMAND THROUGH PORT '8' AND VERIFY THAT THE DRIVE 

624 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
625 

626 

627 TEST 26 TEST RESET ATTENTION 'A' BY DRIVE CLEAR 
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628 

629 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENMON BIT OF THE 

650 SEIZING PORT. 

651 

632 A. SET EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 

633 SET. 
634 

635 B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

636 

6V C. ISSUE A DRIVc CLEAR COMMAND. 

638 

639 D. RELEASE THE DRIVE THROUGH PORT 'A*. Ml^l^'i THAT THE ATTENTION 

640 BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 

641 '8' IS STILL SET. 
642 

644 TEST 2' TEST RESET ATTENTION 'B* BY DRIVE CLEAR 

645 

646 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 

647 SEIZING PORT. 
648 

649 A. SET EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTEN'iON BITS 

650 SET. 
651 

652 B. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

653 

654 C. ISSUE A DRIVE CLEAR COMMAND. 

655 

656 D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE ATTENTiON 

657 

658 BIT FOR PORT '8' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 

659 'A' IS STILL SET. 
660 

661 

662 TEST 30 RESET ATTENTION 'A' BY GO TEST 

663 

664 VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 

665 SEIZING PORT. 
666 

667 A. SET EACH PORT'S ATTENTION BIT. AND VERIFY THAT BOTH 

668 ATTENTION BITS ARE SET. 
669 

670 8. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S 

671 INTO RMDS. 
672 

673 C. ISSUE A NOP COMMAND. 

674 

675 D. RELEASE THE FRIVE THROUGH PORT 'A'. VERIFY THAT THE 

676 ATTENTION BIT FOR PORT 'A' IS RESET. AND THE 

677 ATTENTION BIT FOR PORT 'B' IS STIL SET. 
678 

679 

680 TEST 31 RESET ATTENTION 'B' BY GO TEST 

681 

682 VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 

683 SEIZING PORT. 
684 
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685 A. SET EACH PORT'S ATTENUON BJI. AND VERIFV THAT BOTH 

686 ATTENTION BITS ARE SET, 
687 

688 B. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S 

689 INTO RMDS. 
690 

691 C. ISSUE A NOP COMMAND. 

692 

693 D. RELEASE THE FRIVE THROUGH PORT '8'. VERIFY THAT THE 

69^ ATTENTION 31 T FOR PORT 'B' IS RESET. AND THE 

695 ATTENTION BIT FOR PORT 'A' IS STIL SET. 

696 

697 

693 TEST 32 TEST RESET ATTENTION 'A' t 'B' BY MASS8US INIT 

699 

700 VERIFY THAT MASS8US CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 

701 DRIVE IS IN NEUTRAL. 
702 

703 A. SET THE ATTENTION BITS FOR BOTH PORTS. 

70^ 

705 B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 

706 

707 C. ISSUE A MASS8US INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 

708 RESET. 

709 
710 

711 TEST 33 RESET ATTENTION 'A' £ '8' BY RMAS 

712 

713 VERIFV THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 

7U APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 

715 

71& A. SET THE ATTENTION BITS FOR BOTH PORTS. 

717 

71« 8. VERIFY THE DRIVE IS IN NEUTRAL. 

719 

720 C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 

721 THAT BOTH ATTENTION BITS ARE RESET AS Sc'EN BY RMAS. 
722 

723 

724 TEST 34 PORT 'A* ALTERNATE ATTENTION PATH TEST 

725 

726 VERIFY THAT THE ALTERNATE ATTENTION REGISTfcR READ PATH IS OPERATIONAL. 

727 

728 A. SET THE ATTENTION BIT FOR PORT 'A*. 

729 

/30 8. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

7/1 

73^ C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 

733 FOR THE DHIVE IS SET. 

734 

735 

736 TEST 35 PORT '8* ALTERNATE ATTENTION PATH TEST 

737 

738 VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

739 

740 A. SET THE ATTENTION BIT FOR PORT '8'. 

741 
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764 

765 
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-m 

797 
798 



B. SEIZE THE DRIVE THROUGH PORT 'A' BV WRiTJNG O'S INTO RMDS. 

C. READ THE ATTENTION REGISTER I VERIFY THAT THE ATTENTION BIT 

FOR THE DRIVE IS SET. 

TEST 36 SET ATTENTION 'A' BY COMMMAND TEST 

TES' THE OPERATION OF THE PORT A AND PORT 8 ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A OFFSET COMMAND THROUGH PORT 'A*. 

B. WAIT FOR THE OFFSET COMMAND TO COMPLETE CDRV TO BECOME 

T). VERIFY THAT THE ATTENTION BIT FOR PORT 'A* IS SET AND 
THAT THE ATTENTION BIT FOR PORT '8' IS NOT SET, 

C RELEASE ^HE DRIVE THROUGH PORT 'A*. VERIFY THAT the DRIVE RETURNED 
70 NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 37 SET ATTENTION 'B* BY COMMMAND TEST 

TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B* . 

B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY* TO BECOME 

•T;. VERIFY THAT THE ATTENTION BIT FOR PORT '8' IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 40 PORT *A' SET VOLUME VALID TEST 

VERIFY THAT VOLUME VALID cAN BE SET FOR THE PORT UNDER TEST. 

A. WITH PORT 'A' SELECTED. RESET AND SET 'UNIT READY" 

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT "VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

8. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLLME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT 'A' AND SELECT THE DRIVE FOR 

DORT -e'! VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE ClEAR AND A READ IN PRESET COMMAND TO 

PORT '8* THEN RELEASE PORT '8*. 
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800 TEST 41 PORT '8' SET VOLUME VALID TEST 

801 

80? VERIFY' THAT VOLLflE VALID CAN BE SET FOR THE PORT UNDER TEST. 

803 

80A A. WITH PORT '8' SELECTED. RESET AND SET 'UNIT READY" 

805 STATUS JSIN6 DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 

806 IS SEIZED AND THAT 'VOLUME VALID" IS RESET AND 

807 ATTENTION IS SET. 

808 

809 8. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 

810 COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 

811 VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 

812 IS SET. 
81? 

8U I. RELEASE THf DRIVE FROM PORT '8' AND SELECT THE DRWE FOR 

815 PORT 'A'. VERIFY THAT ATTENTION IS STIL SET AND THAT 

816 VOLUME VALID IS STIL RESET, 
817 

818 D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 

819 PORT 'A' THEN RELEASE PORT 'A'. 
820 

821 

822 TEST 42 TEST PORT 'A* TIMEOUT DOES NOT RESET DRIVE 

823 

824 VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

825 

826 A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

827 

828 B. WRITE TS INTO RMER1 THROUGH PORT 'A* TO FORCE AN ATTENTION. 

829 

830 C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 

831 NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A* AND NOT SET FOR 

832 PORT '8'; AND THAT BOTH PORTS SEE TS IN THE ERROR REGISTE**. 
833 

834 

835 TEST 43 TEST PORT '8' THEOUT DOES NOT RESET DRIVE 

836 

837 VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

838 

839 A. SEIZE THE DRIVE THfipUGH PORT 'B' BY WRITING O'S INTO RMDS. 

840 ' 

841 8. WRITE TS INTO RMER1 THROUGH PORT 'B*. 
842 

843 r. wAir FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 

844 NEUTRAL; THAT ATTENTION IS SET FOR PORT 'B* AND IS NOT SET FOR 

845 PORT 'A'; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 
846 

847 

848 TEST 44 PORT 'A' RETRIGGER BY DEMAND TEST 

849 

850 VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASS8US DEMAND. 

851 

852 A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

853 

854 8. WAIT 500 MS AND READ RMDS THROUGH PORT 'A'. 

855 
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356 C. VERIFY THAT THE TIMEOUT OCCURS WJTHJN ♦ OR - 25% Of THE SPECIFIED 

857 TIME. (THE MEASUREMENT IS MADE FROM STEP '9'.) 

SS8 

859 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

860 BIT IS SET. 

661 
862 

863 TEST A5 PORT '8' RETRIGGER BY DEMAND TEST 

865 VERIFY THAT THE PO:<T TIMEOUl ONE-SHOT CAN BE RETRJGGERED BY MASSBuS DEMAND. 

866 

8o7 A. SEIZE THE DRIVE 1HR0UGH PORT '8' BY WRITING O'S INTO RMDS. 

868 

) B. WAIT 500 MS AND WRITE 0*8 INTO RMDS THROUGH PORT 'A'. 

0 

- i C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦OR - ?52 OF THE SPECIFIED 

872 TIME. (THE MEASUREMENT IS MADE FROM STEP '8'.) 

873 

874 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

875 BIT IS SET. 

8^6 
877 

878 TEST 46 PORT 'A* TIMEOUT/RELEASE TEST 

879 

830 VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

Hi SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

882 

883 A. SEIZE THE DRIVE THRO»JGH PORT '8' BY WRITING O'S INTO RMDS. 

FS4 

885 B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'A*. 

886 

88/' C. ISSUE A RELEASE COMMAND FROM PORT "e*. VERIFY THAT THE DRIVE 

888 HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA* BIT DIi> NOT 

889 SET FOR PORT 'B'. REGISTERS WILL NOT BE CHECKED THROUGH PORT 'A'. 
890 

891 D. WAIT THE TIMEOUT INTERVAL ♦ 251. VERIFY THAT THE DRIVE HAS 

892 BEEN RELEASED. 
893 

8Q4 E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

895 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

896 

898 TEST 47 PORT 'B' TIMEOUT/RELEASE TEST 

899 

900 VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

901 SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
902 

903 A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INIO RMDS. 

904 

905 B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'B'. 

906 

907 C. ISSUE A RELEASE COMMAND FROM PORT 'A*. VERIFY THAT THE DRIVE 

908 HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 

909 SET FOR PORT 'A'. REGISTERS WILL NOT BE CHECKED THROUGH POR^ '8'. 
910 

911 D. WAIT THE TIMEOUT INTERVAL ♦ 25X. VERIFY THAT THE DRIVE HAS 

912 BEEN RELEASED. 
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913 

915 TEST 50 PORT 'A* SEIZE ACCESS TEST 

917 VERlf r THAT THERE IS NO INTERACTION BETWEEN PORTS. 

918 

919 A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RWS. 

920 

921 B. WRITE rS INTO R«£R1. RMER2 THROUGH PORT 'A'. 

922 

923 C. READ RMERl . RMER2 THROUGH PORT '8*. VERIfV THAT PORT 

924 '8' SEES O'S FROM EACH OF THESE REGISTERS. 
925 

926 D. CLEAR RMERl . RMER2 THROUGH PORT 'A'. 

928 ' E. WRITE TS INTO RMERl , RMER2 THROUGH PORT '8'. VERIfV THAT 

929 PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 
930 

931 F. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE HAS 

932 SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT '8' IS 

933 SET AND THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 
934 

935 G. ISSUE A RELEASE COfflANO THROUGH PORT '8'. VERIFY THAT THE DRIVE 

936 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
937 

939 TEST 5' PORT '8' SEIZE ACCESS TEST 

940 

9<,1 VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

942 

943 A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO R«DS. 

944 

945 B. WRITE TS INTO RMER1 , RMER2 THROUGH PORT '8'. 

946 

947 C. READ RHERI. RMER2 THROUGH PORT 'A'. VERIf: THAT PORT 

948 'A* SEES O'S FROM EACH Of THESE REGISTERS. 
949 

950 D. CLEAR RMER1, RMER2 THROUGH PORT '8'. 

951 

952 £. WRITE rS INTO RMERl , RMER2 THROUGH PORT 'A*. VERIFY THAT 

953 PORT '8' SEES O'S FROM EACH OF THfcSE REGISTERS. 
954 

955 f. RELEASE THE DRIVE THROUGH PORT '8*. VERIFY THAT THE DRIVE HAS 

956 SWITCHED TO PORT 'A* AND THAT THE ATTENTION BIT FOR FORT 'A' IS 

957 SET AND THE ATTENTION BIT FOR PORT 'B' IS NOT SET. 
958 

959 G. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

960 RE'URNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
961 

962 
963 
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HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR TyPEOUTS 

INHIBIT ITERATIONS 

BELL ON ERROR 

LOOP ON ERROR 



.S8TTL BASIC DEFINITIONS 



.••INITIAL 
STACK 
ERROR = 
SCOPE = 



ADDRESS 
1100 
EMT 
lOT 



Of THE STACK POINTER 1100 



.•.-BASIC 
;;8ASIC 



DEFINITION 
DEFINITION 



OF 
OF 



.'•MISCELLANEOUS DEFINITIONS 



HT 
LF 
CR 
CRLF 
PS 

PSW=PS 

STKLMT 

PIRu 

DSUR 

DDISP 



11 
12 
15 
200 

177776 

1 7777i, 
^77772 
177570 
177570 



ERROR 
SCOPE 



TAB 



CALL 
CALL 



CODE FOR HORIZONTAL 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE FEED 
PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.••GENERAL PURPOSE REGISTER DEFINITIONS 



RO 
R1 
R2 
R3 
R4 
R5 
R6 
R7 
SP 
PC 



x^ 

12 
XI 
Z4 

!l!5 
Z6 
X7 
Xt 
X7 



.••PRIORITY LEVEL 
DRO = 0 
PR1 = 40 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



DEFINITIONS 

;;PRIORITy LEVEL 0 
;;PRIORITY LEVEL 1 
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1 www 




owuo 
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■t WW 
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40 
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?0 
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10 
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OWU 1 ~ 


p 


nnnnni 




1 


nni nnn 
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nnnpnn 

UUUcUU 






nnnmn 

UVA/ 1 UU 






000040 


SW5=SW05 




000020 


SW4=Sy04 




UUvU 1 u 






nnnnni 

UUvV/U*» 






nnnnnp 

UUvVUc 






nnnnni 










r OFF INI 


innnno 

1 uuv/uu 


Bins = 


100000 

1 www WW 


n^nnnn 


Dili"* 


40000 

■f vwww 


n?nonn 

Ut V/\/UU 


&IT13 = 


20000 

*m WW WW 


ninnnn 

U 1 uuv/u 


Bin? = 

D J lie 


10000 

1 wwww 


nn^nnn 

uu**uv/v 


BIT11 = 

Di III " 


4000 

^ www 




RFT10 = 


2000 

C wvV 


nni nnn 

UU i v/uu 


RIT09 = 


1000 

1 www 


non^nn 

V/VU**VA/ 


Oil W 


400 

■f WW 


nnopnn 

UV/VCUU 


Ql 1 \/f — 


200 

c WW 


UlA/ 1 l/V 


BIT06 = 


100 

1 WW 


nnnn^n 


Riros = 


40 

^ w 


nnnn?n 


BIT04 = 


20 


nnonio 

UV/UU 1 V 


BIT03 = 


10 


UUV/UU^ 


BIT02 = 


4 


UV/UV/Uc 


BIT01 


2 


000001 

www • 


BITOO = 


1 


001000 


BIT9=8IT09 


OOOAOO 


BIT8=81T08 


000200 


BIT7=81T07 


000100 


BIT6=8]T06 


000040 


BIT5=8n05 



PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 



SWITCH DEFINITIONS 



(BITOO TO BIT15) 



CZRMRBO RM05/5/2 DU 
BASIC DEFINITIONS 



POR TST 1 MACRO V04.00 A-APR-8I 



J 2 

18:06:25 PACE s-2 



SEO DC?' 



602 
603 
60A 
605 
606 
607 
608 
609 
610 
611 
612 
613 
6K 
615 
616 
617 
618 
619 
620 
621 
622 
623 
62A 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
658 
639 



000020 
000010 
000004 
000002 
000001 



OOOOOA 
000010 

oooou 

0000 u 

oooou 

000020 
000024 
000030 
000034 
000060 
000064 
000240 



000100 
000200 
000400 
001000 
002000 
020000 
040000 
100000 



000001 
000002 
000004 
000010 
000020 
000049 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



8IT4=8JT04 
BIT3=8IT03 
BIT2=8IT02 
BIT1=8IT01 
8IT0=8IT00 

.••BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC = 4 ;;TIME OUT AND OTHER ERRORS 

RESVEC = 10 ; .-RESERVED AND ILLEGAL INSTRUCTIONS 

T8ITVEC = 14 ;;'T' BIT 

fRTVEC = 14 ;; TRACE TRAP 

BPTVEC = 14 ;. -BREAKPOINT TRAP (8PT) 

lOTvEC = 20 ;; INPUT/OUTPUT TRAP (IOT> ••SCOPC** 

PWRVEC = 24 ;, -POWER FAIL 

EMTVEC = 30 ; .-EMULATOR TRAP (EMT) ••ERROR** 

TRAFVEC = 34 ;;"TRAP" TRAP 

TKVEC = 60 ;;TTY KEYBOARD VECTOR 

TPVEC = 64 ;;TTY PRINTER VECTOR 

PIRQVEC = 240 ; .-PROGRAM INTERRUPT REOUEST VECTOR 



.S8TTL RH/RM REGISTERS 

.■CONTROL AND STATUS REGISTER 1 («MCS1) 



IE 

RDY 

A16 

A17 

PSEL 

MCPE 

IRE 

SC 



= 100 
= 200 
= 400 
= 1000 
= 2000 
= 20000 
= 40000 
= 100000 



(BIT #6) 



BIT 
BIT 



INTERRUPT ENABLE 
READY (81 T »7) 
HIGH ORDER BUS ADDRESS 
HIGH ORDER BUS ADDRESS 
PORT SELECT (BIT #10) 
MASS8USS PARITY ERROR (BIT 
TRANSFER ERROR (BIT #14) 
SPECIAL CONDITION (BIT #15) 



(BIT 
(BIT 

#13) 



#8) 
#9) 



.CONTROL AND STATUS REGISTER 2 (RMCS2) 



UO 

U1 

U3 

BAI 

PAT 

CLR 

IR 

OR 

MDPE 

MXF 

PGE 

NEM 

NED 

UPE 

WCE 

DlT 



.-DATA BUFFER REGISTER (RMDB) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.oBTTL RM REGISTERS 





1 


UNIT SELECT (BIT #0) 




2 


•UNIT SELECT (BIT #1) 




4 


UNIT SELECT (BIT #2) 




10 


•8US ADDRESS INCREMENT INHIBIT (BIT #3) 




20 


•MASS8US PARITY TEST (BIT #4) 




40 


;CLEAR (BIT #5) 




100 


-INPUT READY (BIT #6) 




200 


-OUTPUT READY (BIT #7) 




400 


■MASS BUS PARITY ERROR (BIT #8) 




1000 


•MISSED TRANSFER ERROR (BIT #9) 




2000 


; PROGRAM ERROR (BIT #10) 




4000 


;NON EXISTENT MEMORY (BIT #11) 




10000 


;NON EXISTENT DRIVE (BIT #12) 




20000 


;UNI8US PARITY ERROR (BIT #13) 




40000 


;URITE CHECK ERROR (8F #14) 




1000CC 


;DATA LATE (BIT #15) 



CZRMRBO RM05/3/2 
REGISTERS 

640 
641 
642 
64"? 
6<.4 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 



DU POR TSr 1 MAC'-O V04.00 4-APR-8I 18:06:25 



K 

PAGE 



2 
4-} 



000001 
000002 
000004 
000010 
000020 
000040 
004000 



000040 



000001 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

001000 

002000 

004000 

010000 

020000 

040000 

100000 



000001 
001000 
040000 
100000 



000001 



.•CONTROL AND STATUS REGISTER #1. (*00) 



GO 
FO 
F1 
F2 
F3 
F4 
DVA 



= 1 



4 

10 
20 
40 
4000 



GO 8JT (31 T #0) 
FUNCTION CODE BIT 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



CODE 
CODE 
CODE 
CODE 



BIT 
BIT 
BIT 
BIT 



DEVICE AVAILABLE 



#1 
*2 
#3 
#4 
MS 
(BIT 



#11) 



.•CONTROL STATUS REGISTER #2 (RMCS2) 



CLR 


= BITS 


.•DRIVE 


STATUS REGI 


OM 


= BITOO 


VV 


= 100 


DRY 


= 200 


DPR 


= 400 


PGM 


= 1000 


LBT 


= 2000 


WRL 


= 4000 


MOL 


= 10000 


PIP 


= 20000 


ERR 


= 40000 


ATA 


= 100000 


;ERKOR 


REGISTER »Q 


ILF 


= 1 


ILR 


= 2 


RnR 


= 4 


PAR 


= 10 


FEP 


* 20 


WCF 


= 40 


ECH 


= 100 


HCE 


= 200 


HCRC 


= 400 


AOE 


= 1000 


lAE 


= 2000 


WLE 


= 4000 


DTE 


= 10000 


OPI 


= 20000 


UNS 


= 40000 


DCK 


= 100000 



.•CONTROLLER CLEAR 



OFFSET MODE 

VOLUME VALID (BIT *6) 

DRIVE READY (BIT 07) 

DRIVE PRESENT (BIT #8) 

PROGRAMABLE (BIT M9) 

LAST SECTOR TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

MEDILW ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 
ATTENTION ACTIVE (BIT #15) 



ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 

PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

ADDRESS OVERFLOW ERROR (BIT #9) 

INVALID ADDRESS ERROR (BIT #10) 

WRITE LOCK ERROR (BIT #11) 

DRIVE TIMING ERROR (BIT #12) 

OPERATION INCOMPLETE (BIT #13) 

DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 



.MAINTAINABILITY REGISTER (RMMR1)(#03) 



DMD 
MUR 
ROB 
ROA 



= 1 

= BIT09 
= BIT14 
= BIT15 



DIAGINOSTIC MODE (BIT #0) 
MAINTENANCE UNIT READY 
PORT B REQUEST FLOP 
PORT A REQUEST FLOP 



.•ATTENTION SUMMARY PSEUPO-REGI STER (RMAS) (#04) 
ATO = 1 .-DEVICE 0 (BIT #0) 



CZRWBO DU POR TST 1 

W REGISTERS 



697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
7U 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 



000002 
000004 
000010 
000020 
000040 
000100 
000200 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
004000 
020000 
040000 
100000 



000100 
000200 
000400 
001000 
002000 



000010 
000200 
002000 
.04000 
010000 
020000 
100000 



000200 
002000 
004000 
010000 



NlACRO V04,00 



ATI 
AT2 
AT3 
AT4 
ATS 
AT6 
AT7 



L 2 

4-APR-8I ^8:06:25 PAGfc 4-4 



2 

4 

10 

20 

40 

100 

200 



SEC 002A 



DEVICE 1 



DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



(81 T 
(81 T 
(81 T 
(81 T 
(81 T 
(BIT 
(BIT 



#1) 
02) 
*3) 
#4) 
MS) 
M6) 
M7) 



.-DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (*05) 
.-(EACH BIT IS CAlLcD BY BIT NUMBER) 



.•DRIVE TYPE REGISTER (RMDT) (#06) 



DTOO 

DT01 

DT02 

DT03 

DT04 

DT05 

DT06 

DT07 

DT08 

DRO 

MOH 

TAP 

NBA 



= 1 
= 2 
= 4 
= 10 
= 20 
= 40 
= 100 
= 200 
= 400 
= 4000 
= 20000 
= 40000 
= 100000 



DRIVE TYPE NUMBER BIT 
DRIVE TYPE NlfCER BIT 
DRIVE TYPE NUMBER BIT 
DRIVE TYPE NU»«ER BIT 
DRIVE TYPE NIWBER BIT 
DRIVE TYPE NUMBER BIT 



1 
2 
3 
4 
5 
6 

DRIVE TYPE NUMBER BIT 7 
DRIVE TYPE NUMBER BIT 8 
DRIVE TYPE NlfBER BIT 9 
DRIVE REQUEST REQUIRED (61 T #11) 
MOVING HEAD (BIT #13; 
TAPE DRIVE (81 T #14) 
NOT BLOCK ADDRESSED (BIT #15) 



.•LOOK-AHEAD REGISTER (RMLA) (#07) 



SCO 
SCI 
SC2 
SC3 
SC4 



= 100 
= 200 
= 400 
= 1000 
= 2000 



SECTOR COUNT FIELD 0 

SECTOR COUNT FIELD 1 

SECTOR COUNT FIELD 2 

SECTOR COUNT FIELD 3 

SECTOR COUNT FIELD 4 



;RM ERROR REGISTER #2 (RMER2) (#10) 



DPE 
DVC 
L8C 
LSC 
IVC 
OPE 
SKI 



= 10 
= 200 
= 2000 
= 4000 
= 10000 
= 2000? 
= 100000 



(BIT #6) 

(BIT #7) 

(BIT #8) 

(BIT #9) 

(BIT #10) 



#3) 



.•OFFSET REGISTER (RMOF) (#11) 



OFD 
HCI 
ECI 
FMT16 



= 200 
= 2000 
= 4000 
= 10000 



DATA PARITY ERROR (BIT 
DEVICE CHECK (BIT #7) 
LOSS OF BIT CLOCK (BIT #10) 
LOSS OF SYSTEM CLOCK (BIT #11) 
INVALID COMMAND (BIT #12) 
OPERATOR ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 



OFFSET FORWARD (BIT #5) 
HEADER COMPARE INHIBIT (BIT #10) 
ERROR CORRECTION CODE INHIBIT (BIT 
FORMAT BIT (BIT #12 



#M) 



;DESIRED CYLINDER ADDRESS (RMDC) (#12) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.•SERIAL NUMBER REGISTER (RMSN) (#14) 
;(EACH IS CALLED BY BIT NUMBER) 



C2RMRB0 RM05/5/2 DU POR ^ST 1 
fm REGISTERS 

754 

755 
756 
757 
758 
759 
760 
761 
762 

763 000000 

764 000002 
7o5 000004 

766 000006 

767 000010 

768 000012 

769 OOOOU 

770 000016 

771 000020 

772 000022 

773 000024 

774 000026 

775 000030 

776 000032 

777 000034 

778 000040 

779 000042 

780 000044 

781 000046 
782 



PWCRO V04.00 
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SEO 0025 



;ECC POSITION REGISTER (RMEC1) (#16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2) (#17) 
;(EACH BIT IS CALLED BY BIT NUMBER) 

.S8TTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 



DMT C 1 




n 

V 


Hnwi 




c 






A 

H 


KrlvA 




0 




z 


10 


RMDS 




12 


RMER1 




14 


RMAS 




16 


RMLA 




20 


RMD8 




22 


RMMR1 




24 


RMDT 




26 


RMSN 




30 


RMOF 




32 


RMDC 




34 


RMMR2 




40 


RMER2 




42 


RMEC1 




44 


RMEC2 




46 



CONTROL AND STATUS REGISTER *1 (DRIVE REG. 00) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNI8US ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 

CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 

DRIVE STATUS REGISTER (DRIVE REG 01) 

ERROR REGISTER »^ (DRIVE REG. 02) 

ATTENTION SlItlARy PSEUOO REGISTER (DRIVE REG. 04) 

LOOK AHEAD REGISTER (DRIVE REG. 07) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 

MAINTAINABILITY REGISTER (DRIVE REG, 03) 

DRIVE TYPE REGISTER (DRIVE REG. 06) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
MAINTENANCE REGISTER »2 (DRIVE REG. U) 
ERROR REGISTER M2 (DRIVE REG. 15) , 
ETC POSITION REGISTER (DRIVE REG. 16) * 
ECC PATTERN REGISTER (DRIVE REG. 17) 



CZRMRBO DU POR TST 1 

TRAP CATCHER 
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SEO 0026 



1 



000174 
000176 



000200 

2 

3 000204 

4 

5 



000000 



000174 
000000 
000000 



0001 37 
000137 



000210 

000046 
000046 066110 

000052 
000052 020000 

000210 



002240 
002246 



.S8TTL TRAP CATCHER 

••ALL UNuiED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2, HALT" 
••SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
••LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



DISPREG: 
SUREG: 



.WORD 
.WORD 



0 
0 



.S8TTL STARTING ADDRESSCES) 
JMP cMf START 
JMP JWSTART1 

.SBTTL ACT11 HOOKS 



;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 



;;JUMP TO STARTING ADDRESS OF PROGRAM 
.-START AND CHANGE THE RH/RM ADDRESS 



;HOOKS REQUIRED BY ACT11 
$SVPC=. 
.^46 
SENDAD 
.=52 

.WORD 20000 
.=$SVPC 



;SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF $ENDAD IN .$E0P 

;;2)SEr L0C.52 TO 20000 
;; RESTORE PC 



fZRMRBO RM05/3/3 DU PCW TST 1 
(OMMON TAGS 



0 
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S£0 00? 



,S8TTL COMMON TAGS 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



oonoo 

001100 
001102 
001103 
001104 
001106 
001110 
001112 
001 1U 
001115 
001116 
001120 
001122 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001 140 
001142 
001144 
001146 
001 1 50 
001152 
001154 
001155 
001156 
001157 
001160 

001162 
001164 
001166 
001170 
001172 
001174 
001 1 76 
001200 
001202 
001206 
001207 
001210 



001100 

000000 
000 
000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
1 77566 
000 
002 
012 
000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



377 
000 



SCMTAG: 

$PASS: 

STSTNM: 

SERFLG: 

$ICNT: 

SLPADR 

SLPERR 

SERTTL 

SITEMB 

SERMAX 

SERRPC 

SGDADR 

$BOADR 

SGDDAT 

SBDDAT 



SAUTOB: 
SINTAG: 

SyR: 
DISPLAY 
$TKS: 
$TK8: 
$TPS: 
$TP8: 
SNULL: 
SflLLS 
SFILLC 
STPFLG 
SREGAD 

SREGO: 
$TMPO: 
STMPl 
$TMP2: 
$TMP3: 
$TMP4: 
$TIMES: 
$E SCAPE: 
377 $8ELL: 
$QUES: 
SCRLF ; 
$LF: 



.=1100 

.WORD 
.BYTE 
• BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
: .WORD 
177560 
177562 
177564 
177566 
•BYTE 
.8YrE 
.BYTE 
.BYTE 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
0 
0 

.ASCIZ 
.ASCII 
.ASCII 
.ASCIZ 



0 
0 
0 
0 
0 

0 ' 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 
ODISP 



0 

2 

12 

0 

0 



;; START OF COMMON TAGS 

;; CONTAINS PASS COUNT 

;; CONTAINS THE TEST NUMBER 

;; CONTAINS ERROR FLAG 

.-.'CONTAINS SUBTEST ITERATION COUNT 

;; CONTAINS SCOPE LOOP ADDRESS 

;; CONTAINS SCOPE RETURN FOR ERRORS 

;; CONTAINS TOTAL ERRORS DETECTED 

;; CONTAINS ITEM CONTROL BYTE 

;; CONTAINS MAX. FRRORS PER TEST 

;; CONTAINS PC OF LAST ERROR INSTRUCTION 

;; CONTAINS ADDRESS OF 'GOOD' DATA 

;; CONTAINS ADDRESS OF 'BAD* DATA 

;; CONTAINS 'GOOD' DATA 

;; CONTAINS 'BAD* DATA 

;;RESERVED~NOT TO BE USED 



;; AUTOMATIC 
;; INTERRUPT 



0 
0 
0 
0 
0 
0 



<207><377><377> 

/?/ 

<15> 

<12> 



MODE 
MODE 



INDICATOR 
INDICATOR 



; ; ADDRESS 
; .-ADDRESS 
;;TTY KBD 
;;TTV KBO 



;TTY 
;;TTY 



OF SWITCH REGISTER 
OF DISPLAY REGISTER 
STATUS 
BUFFER 

PRINTER STATUS REG. ADDRESS 
PRINTER BUFFER RFG. ADDRESS 
;; CONTAINS NLIL CHARACTER FOR FILLS 
;; CONTAINS # OF FILLER CHARACTERS REQUIRED 
.'.-INSERT FILL CHARS- AFTER A "LINE FEED" 
;;' TERMINAL AVAILABLE" FLAG (8IT<07>-0=YES) 

CONTAINS THE ADDRESS FROM 
;:WHICH (SREGO) WAS OBTAINED 
;; CONTAINS (($REGAD)+0) 
.-.-USER DEFINED 
DEFINED 
DEFINED 
DEFINED 
DEFINED 

NIW3ER OF ITERATIONS 
; .ESCAPE ON ERROR ADDRESS 
;;CODE FOR BELL 
;; QUESTION MARK 
;; CARRIAGE RETURN 
;;.INE FEED 



;;USER 
.-.'USER 
.-.'USER 
;;USER 
;;MAX. 



CZRMRBO RM05/3/2 DU PQR TST 1 
JSEP DEFINED TAGS 
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.S8TTL 


001212 


172540 


SLKCSR. 


0012U 


172542 


SLKCS8: 


001216 


000104 


SLPVEC: 


001220 


177546 


$LKS: 


001222 


000100 


SLLVEC: 


001224 


000000 


PORTA: 


001226 


000000 


PORTS: 


001230 


000000 


PORTO: 


001232 


000000 


RQSTA: 


001 23A 


000000 


RQST9: 


001236 


000000 


ASR1 : 


001240 


000000 


PTNeR: 


001242 


000000 


SEJZPT: 


001 24A 


000000 


OPPRT: 


001246 


000000 


TSTNUM: 


001250 


000000 


CKERR: 


001252 


000000 


NOSEJZ: 


001254 


000000 


RELERR: 


001256 


000000 


T IME : 


001260 


000000 


WATCH: 


00 '•262 


000000 


TJMEA: 


001264 


000000 


TIMEAP: 


001266 


000000 


TIME AM: 


001270 


000000 


TJMF8: 




uuoouu 


T TMCDO • 

1 J near: 


001274 


000000 


TIME8M: 


0012^6 


oouuuo 


TIMES: 


001 300 


000000 


KY8CTL : 


001 302 


000000 


CHGADR: 






.S8rTL 


001304 


1 76700 


SRMADR: 


001306 


000254 


SRMVEC: 
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USER DEFINED TAGS 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



172540 
172542 
104 

177546 

100 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 



SEO 



ADDR OF KWll-P STATUS REGISTER 

ADDR OF KW11-P COUNTER BUFFER 

ADDR OF KWll-P VECTOR 

ADDR OF KW11-L STATUS REGISTER 

ADDR OF KW11-L VECTOR 

ADDRESS OF PORT A 

ADDRESS OF PORT B 

ADDRESS OF DIFFERENT DRIVE 

REQUEST BIT FOR PORT A 

REQUEST BIT FOR PORT B 

ATA'A OR ATA~S = 1 

CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 

CONTAINS THE ADDRESS OF THE SEIZING PORT 

CONTAINS THE ADDRESS OF THE 'OPPOSITE' PORT 

NUMBER OF THE CURRENT TEST 

IF -1, A REGISTER MISCOMPARISON OCCURRED 

IF -1, THE PORT IN 'SEIZPT' DID NOT SEIZE THE DRIVE 

IF -1. THE PORT IN 'SEIZPT' DID NOT RELEASE THE DRIVE 

ELAPSED TIME COUNTER 

WATCH DOG TIMER LOCATION 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
PORT A TIMEOUT VALUE ♦ 25Z 
PORT A TIMEOUT VALUE - 251 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH pQRT 8 
PORT A TIMEOUT VALUE ♦ 25X 
PORT B TIME VALUE - 25% 

STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 

SINGLE TEST INDICATOR 

CHANGE THE RH/RM ADDRESS INDICATOR 



RH/RM UNI8US AND VECTOR ADDRESSES 



.WORD 
.WORD 



1 76700 
254 



; RH/RM (MieuS ADDRESS 
.'INTERRUPT VECTOR ADDRESS 



'JQR TST 1 HACRO vOA.OO 4-APR-81 18:06; 
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SfO 00?*;' 



,S8TTL ERROR POINTER TA8LE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLr PERTINENT DATA IS ($ERRPC). 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

• EM ;;POINTS TO THE ERROR MESSAGE 

• DH ;; POINTS TO THE DATA HEADER 

• DT ;;POINTS TO THE DATA 

• DF ;;POINTS TO THE DATA FORMAT 



1 
2 
3 
i, 
5 
6 
7 
8 
9 

10 

n 

12 

13 

K 

15 

16 

1/ 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

59 

40 

41 

42 



001310 



001310 
001312 
001314 
001316 



001320 
001322 
001324 
001326 



001330 
001332 
001334 
001336 



001340 
001342 
001344 
001346 



001350 
001352 
001354 
001356 



001360 
001362 
001364 
001366 



072724 
077341 
101230 
101516 



072745 
077341 
101230 
101516 



072767 
077412 
101244 
101516 



073051 
077461 
101312 
101531 



073102 
077604 
101260 
101523 



073150 
100054 
101332 
101523 



SERRT6: 
.ERROR 



1 



EMI 
DHl 
DTI 
DFl 



.•ERROR 2 



EM2 
DM1 
DTI 
DFl 



.ERROR 3 



EM3 
DH3 
DT3 
DFl 



.ERROR 4 



EM4 

DH4 
DT7 
DF7 



; ERROR 5 



EM5 
DH5 
DT5 
D^S 



.•ERROR 6 



EM6 
DHl 3 
DT13 
DF5 



.•WRONG DRIVE TYPE 



.-DRIVE NOT ON LINE 



.•SERIAL NUMBERS NOT THE SAME 



.•DRIVE NOT SEIZED BY PORT 'N' 



.-WRONG STATUS SEEN BY THE SEIZING PORT 



.•REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - ORWE WAS SEIZED 



ZRMP80 RMOS/^''? DU POR rS^ 
FPROR POINTER TABLE 



1 "WCRO VOA.OO 4-APR-8I 



43 
44 
4S 

46 001570 

47 001572 

48 001574 

49 001376 
50 

SI 
5? 

53 001400 
34 001402 

55 001404 

56 001406 
57 

58 

to ^ 



073250 
077660 
101312 
101551 



075531 
077604 
101260 
101525 



60 001410 

61 001412 

62 C01414 
65 001416 
64 

65 
66 

67 001420 

68 001422 

69 001424 

70 001426 
71 

72 
75 

7<, 001450 

75 001432 

76 001434 

77 001436 
78 

79 
80 

81 001440 

82 001442 

83 001444 

84 001446 
85 

86 
87 

88 001450 

89 001452 

90 001454 

91 001456 
92 

93 
94 

95 001460 

96 001462 

97 001464 

98 001 466 
99 



073361 
100005 
101230 
101516 



075445 
100550 
101420 
101544 



100054 
101532 
101525 



073602 
100054 
101552 
101523 



073645 
077660 
101312 
101551 



073724 
077660 
101312 
101531 



.■ERROR 7 



EM7 
DH7 
DT7 
Of? 



.■ERROR 10 



EWIO 
Dh5 
DT5 
DF5 



.•ERROR 11 



EM11 
DH11 

on 

DFl 



.ERROR 12 



EMI 2 
DH36 
DT57 
DF56 



.-ERROR 13 



EMI 5 
DH13 
DT15 
DF5 



.-ERROR 14 



EMU 
DH15 
0713 
OF 5 



.-ERROR 15 



EMI 5 
DH7 
017 
OF 7 



.■ERROR 16 



EMI 6 
OH 7 
DT7 
OF 7 



E 5 
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.•REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 



.-REGISTER CONTENTS INCORRECT 



.-CONTROL BUS PARITY ERROR WHILE READING REGISTER 



.DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 



.-•VOLUME VALID* BIT NOT SET BV READiN PRESET 



.-'VOLUME VALID' SET ON THE OPPOSITE PORT 



;THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 



.-ATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET 



SEO ooy> 



.ZRWBO RM05/^/2 DU POR TST 1 
FRROR POINTER TABLE 



»WC«0 V04.00 4-APR-81 



100 




101 




102 00U70 


073777 


103 00U72 


077660 


10A 00U74 


iom2 


105 001476 


101551 


106 




'07 




108 




109 001500 


074056 


110 001502 

111 001504 


100550 


101420 


112 001506 


101*^44 


115 




1 U 




115 




116 001510 


074156 


117 001512 


100550 


118 0015U 


101420 


119 C01516 


101544 


120 




121 




122 




123 001520 


07<,21 1 


124 001522 


100174 


125 001524 


'01350 


126 001526 


101540 


127 




128 




129 




150 001550 


074276 


15) 001552 


100272 


152 001554 


101562 


155 001556 


101516 


154 




155 




156 




157 001540 


074544 


158 001542 


100272 


159 0C1544 


101562 


140 001546 


101516 


141 




142 




145 




144 




H5 001550 


074425 


146 001552 


100550 


147 001554 


101410 


148 001556 


101544 


149 




150 




151 




152 




153 001560 


074466 


154 001562 


100174 


155 001564 


101350 


156 001566 


101540 



; ERROR 17 



EMI 7 
DH7 
DT7 
Df7 



.-ERROR 20 



EM20 
0H36 
DT37 
Df36 



.'ERROR 21 



EM21 
DH36 
DT57 
DF36 



.ERROR 22 



EM22 
DH22 
0T22 
Of 31 



; ERROR 23 



EM23 
DH25 
DT25 

on 



; ERROR ?4 



EM24 
0H25 
0T25 
DF1 



; ERROR 25 



EM25 
DH56 
DT56 
Of 56 



.-ERROR 26 



E«26 

DH22 
DT22 
DF31 



18:06:25 PAGE 8-2 
.-ATTN BIT WRONG AfTER RELEASE - REOJEST NOT SET 

.-D.'ylvE NO! SEIZED WHEN ATTN BIT FOR PORT CLEARED 

.-DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 

.•DRIVE NOT IN NEUTRAL AfTER TIMEOUT. REQUEST NOT SET 

.•TIMEOUT CLEARED THE DRIVE'S ERROR BIT 

.•RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 

.-TIMEOUT ONE-SHOT DID NOT RETRIGGER 

.-DRIVE NOT IN NEUTRAL AFTER RELEASE. REQUEST NOT SET 



FRRW POINTER TUBlE 



G 3 
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SEO oo: 



1 S7 


















160 


001570 


074553 


1 O 1 




077660 


16? 


001574 


10131? 


16? 


001576 

WW ' J ' V 


101551 








165 






'*66 






167 


001600 

WW 1 www 


074631 


168 


00160? 

WW • wwt 


100550 


169 


001604 

WW 1 ww^ 


101410 


170 


001606 

WW ' www 


1 01 544 


171 






172 






175 






1 7A 


001610 


074726 


175 


001612 


100451 


176 


C01614 


101376 


177 


001616 

WW • W I w 


101540 


178 






179 






180 






181 


001620 


075003 


182 


001622 


077604 


183 


001624 


101260 


184 


001626 

WW ' Wb w 


101523 


185 






186 






187 






188 


001630 


075054 


189 


001632 


100550 


190 


001634 


101410- 


191 


001636 


101544 


192 






19^ 






194 






195 


001640 


075156 


196 


001642 


100550 


197 


001644 


101410 


198 


001646 


101544 


199 






200 






201 






202 


001650 


075261 


203 


001 652 


100550 


204 


001654 


101420 


205 


001656 


101544 


206 






207 
208 










209 


001660 


075340 


210 


001662 


100550 


211 


001664 


101410 


212 


001666 


101544 


?13 







.ERROR 27 



EM27 
DM 7 
DT7 
DF7 



.•ERROR 30 



EM30 
Dh36 
Dr36 
DF36 



.•ERROR 31 



EM31 
DH31 
DT31 
DF31 



.ERROR 32 



EM32 
DH5 
DT5 
Df5 



.•ERROR 33 



EM33 
DM36 
DT36 
DF36 



.ERROR 34 



EM34 
DH36 
DT36 
DF 56 



: ERROR 35 



EM35 
DM36 
DT37 
DF36 



.ERROR 36 



EM36 
DM36 
DT56 
DF 36 



.-REGISTER WRONG AFTER RELEASE WITM REQUEST SET 



.•DRIVE SEIZED BY RELEASE ISSUED WMEN DRIVE IN NEUTRAL 



.•DRIVE NOT SEIZED BY PORT AFTER RELEASE UIITM REQUEST SET 



.•ATTN BIT WRONG AFTER RECALIBRATE COWWiD 



.•DRIVE RETURNS TO NEUTRAL IF DF<IVE CLEAR GIVEN WHILE DRIVE SEIZED 



.-DRIVE RETURNS TQ NEUTRAL IF HASS8US INI T GIVEN WHRE DRIVE SEIZED 



.-DRIVE DID NOT RETURN TO NEUTRAL Br TRIGGERING TIMEOUT ONE SHOT 



.-TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 



''/'^•^BO WOS/^/? DO 
fBROR POINTER TABLE 



POR ^ST 1 MACRO V04. 00 A-APR-ei 



2U 

215 

?16 

217 

218 

2^9 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

2S0 

231 

232 

235 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

24!) 

246 

247 

248 

249 

250 

25^ 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 



0016^0 
001672 
001674 
001676 



001 700 
001 702 
001704 
001706 



001710 
001712 
001714 
001716 



C01 720 
001722 
001 724 
001726 



001730 
001 732 
001734 
001736 



001740 
001 742 
001 744 
001746 



001 /50 
001752 
001754 
001756 



001760 
001762 
001764 
001766 



075412 
'00550 
101420 
101544 



075460 
077341 
101362 
101516 



075535 
100272 
101362 
101516 



075577 
100577 
101450 
101547 



075665 
100577 
101430 
101547 



075742 
100616 
101376 
101540 



076017 
077341 
101230 
101516 



076071 
100714 
101436 
101540 



; ERROR 37 



EM37 
DH36 
DT37 
Df36 



.•ERROR 40 



FM40 
DHl 
DT23 
Df 1 



.■ERROR 41 



EM41 
DH23 
DT23 
DF1 



; ERROR 42 



EM42 
DM42 
DT42 
DF42 



.■ERROR 43 



EM43 
DH42 
DT4r2 
DF42 



; ERROR 44 



EM44 
DH44 
DT31 
Df31 



; ERROR 45 



EM45 
DHl 
DTI 
Dfl 



.-ERROR 46 



EM46 
DH46 
DT46 
DF31 



.-ERROR 47 



H 3 
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.-DRIVE IS NON-EXISTENT 



.•ATTENTION FOR PORT NOT RESET BY MASS8US CLEAR 



.-TIMEOUT CLEARED ATTENTION BJT 



.-DRIVE NOT IN NEUTRAL OR SEIZED 



.-DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 



.-WRITE ATTENTION BIT DID NOT SET PORT REQUEST 



.-PORT SELECT SWITCH ON DRIVE NOT IN 'A/8' 



.-CAN'T ACCESS DRIVE THROUGH EITHER PORT 



JRMRBO KM05/^/2 DU PQk TST 1 
f^RfiiOR POINTER TABLE 



?7l 
271, 
275 
27b 
277 
278 
279 
280 
281 
232 
283 
28A 
285 
286 
287 
288 
289 
290 
291 
292 
293 
29A 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
3K 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
325 
326 
327 



001770 
001772 
001 77<. 
001776 



002000 
002002 
002004 
002006 



002010 
002012 
0020K 
002016 



002020 
002022 
002024 
002026 



002030 
002032 
002034 
002036 



002040 
002042 
002044 
002046 



002050 
002052 
002054 
002056 



002060 
002062 
002064 
002066 



076140 
100272 
101362 
101S16 



076226 
100054 
101332 
101523 



076310 
077604 
101260 
101523 



076377 

100054 
101332 
101523 



076472 
100272 
101230 
101516 



076553 
100174 
101450 
101540 



076646 
101011 
101462 
101551 



076713 
101067 
101474 
101555 



«1AC«0 V04.00 4-APP-81 



• EM47 
DH23 
DT23 
DF1 



; ERROR 50 



EM50 
DH13 
Dn3 
DF5 



.•ERROR 51 



EM51 
Dh5 
DT5 
DF5 



.■ERROR 52 



EM52 
DH13 
DT13 
DF5 



; ERROR 53 



EM53 
DH23 
DTI 
DFl 



.•ERROR 54 



EM54 
DH22 
DT54 
DF31 



.•ERROR 55 



EM55 
DH55 
DT55 
DF55 



.-ERROR 56 



EM56 
DH56 
DT56 
DF56 



.•ERROR 57 



I 3 

18:06:25 PAGE 8-5 



.-ATTN BIT FOR SEIZING PORT NOT TLEAREO Bv DRIVE CLEAR 



.-ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COnWiO 



;ATTN BIT NOT CLEARED Br MASS8US INIT, DRIVE IN NEUTRAl 



.•ATTN BIT SET AFTER TIMEOUT. 'ERR* SET, NO REQUEST 



.•CAN'T READ ATTN BIT FROM OPPOSITE PORT 



.•RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 



.•TIMEOUT ONE-SHOT IS LESS THAN 500 MS 



;RH/RM DIDN'T RESPOND TO ADDRESSING 



SCO 0034 



CZRMRBO RM05/3/2 Dn POR TST 1 
ERROR POINTER TABLE 



J 3 
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sEo ooy> 



528 






329 


002070 


rt7Z 

076756 


530 


00207? 


101076 


331 


002074 


101 500 


332 


002076 


1 Al C77 

101525 


7 T 7 

333 






-fit 

334 






333 






356 




A77A1 7 


7 77 

337 


002102 


A77^ A/ 


7 7 O 

338 


002104 


1 A1 7^A 

101 260 


770 

339 


002106 


1 A1 C 77 

101525 


7y 






7/ 1 

341 






7/ "5 

542 






345 


OOc 1 lU 


A77AA7 


344 




1 AA777 


545 


00<: ' 14 


1 A1 7il7 

10156«r 


7/ 

546 


002116 


1 A1 CIA 

lOl 5 16 


54/ 






548 






54 'y 






550 


Ami OA 

0U«; icU 


A771 1 C 


551 


AA01 




552 


AAT 1 


1 A1 777 

lUl 55c 


555 


Ami 


1 A1 C77 


55*f 






ICC 

555 






55o 






TC 7 


AA"51 7A 
UOlT 1 5U 


n771 A7 


556 


Ami 17 
00c 1 5c 


1 Anccfi 


7CU 

55y 


AA71 7/ 

UUcl 54 


1 ni/. 1 n 
1 U 1*1 ' U 


5oU 


UUc 1 5o 


1 A1 CAZ. 


561 






50£: 






5o5 








'V\71 An 
sJVc l*»U 


n7775«N 

yjf f cc^ 


5o5 


AA71 / 7 


Kit 1 OOU 


5oc 


AA71 / / 


1 Al 71 7 

I U 1 J 1 c 


5o/ 


AA71 / A 
OOc l*»6 


1 m C71 

1 U 1 7 J I 


5oo 






7iLO 

56V 






jf\t 






371 


002150 


077271, 


372 


002152 


077604 


373 


002154 


101260 


374 


002156 


101523 


375 







En57 
DH57 
DT!>7 
DF5 



. ERROR 60 



EM60 
Dh5 
0T5 
DP 5 



.•ERROR 61 



EM61 
DH23 
DT23 
DF1 



; ERROR 62 



EM62 
DH13 
0713 
DF5 



.•ERROR 63 



EM63 
DH36 
DT36 
DF36 



.•ERROR 64 



E«64 
DH7 
DT7 
DF7 



.ERROR 65 



EM65 
DH5 
DT5 
DF5 



;PORT REQUEST FLOPS WRONG 



.•ATTENTION BITS NOT RESET BY RMAS 



.•ATTENTION NOT RESET BV GO 



.ATTENTION RESET BY CO WHEN NOT SEIZED 



; DRIVE SEIZED BY UNIT READY CHANGE 



.■ATTENTION NOT SET BY UNIT READY CHANGE 



;VV NOT REStT BY UNIT READY 



CZRMR80 RMC5/3/2 Dd POR TST 1 
ERROR POINTER TABLE 



1 



MACRO V04.00 4-APR-8 



K 3 
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2 
•t 


noPKso 


01 1600 




4 

H 


VAic 1 Oc 






C 

J 


no?i64 












0021 74 




00? 17? 


0004 1 7 






00?? 3? 






7 




y,' 1 v/v**o 




a 

o 








9 


00??36 


000240 




10 








11 

1 I 








1? 

1 c 








1 J 








14 


0'^??40 


005037 


001 302 


1 5 


00224A 

vv/c c ~ ~ 


000403 












17 

1 ' 


C02246 


012737 


\77777 


18 








19 


002254 


000240 




?0 


002256 


005227 


000000 

WWW 


C I 


00??6? 


001375 






00226>4 


000005 

WWW 




23 


















002266 


012706 


001100 




002272 


005026 






002274 


022706 


001140 




002300 


001374 






002302 


012706 


0011 00 



002306 
002314 

002322 
002330 
002336 
002344 
002352 
C02360 
002364 
002370 
002376 
002404 



012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



066364 
000340 
066746 
000340 
072304 
0003^0 
065746 
001176 
001200 
000001 
002376 
002404 



SEO 0036 



.-THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
BAD 1 MO 



;;65$: 
64 S: 



.S8TTL 
START: 



MOV 
TST 
CMP 
TYPE 
BR 

.ASCIZ 

MOV 

TYPOC 

NOP 



(SP).RO 
-(RO) 
(SP)+.(SP)* 
.65$ 
64$ 



SAVE PC WHERE THE TIME OUT OCCURED 
ADJUST PC -2 
RESTORE STACK POINTER 
;TVPE ASCIZ STRING 
;GET OVER THE ASCIZ 



<CnLF>/UNEXPECTED BUS TIMEOUT, PC=/ 



RO,-(SP) 



START OF PROGRAM 



CLR 
BR 



001302 START 1: MOV 

START2: NOP 
INC 
BNE 
RESET 



CH6ADR 
SrART2 

*-1,CHGADR 



#0 
.-4 



.•SETUP FOR TYPING OUT PC 

;PUT 'HALTCO)' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 



; CLEAR THE 'CHANGE RH/RM ADDRESS' INDICATOR 
;G0 TO THE START 

;SET THE 'CHANGE RH/RM ADDRESS' INDICATOR 



TTY LOOP, WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 



•SBTTL 
;; CLEAR 



INITIALIZE 
THE COMMON 



THE COMMON TAGS 
TAGS ($CMTAG> AREA 



000020 
000022 
000030 
000032 
000034 
000036 
065740 



001115 
001106 
001110 



002412 


013746 


000004 




002416 


012737 


002452 


000004 


002424 


012737 


^ 77570 


001140 


002432 


012737 


^ 77 570 


001142 


002440 


022777 


m777 


\7 (31*72 


002446 


001012 






002450 


000403 






002452 


012716 


002460 





MOV 
CLR 
CMP 
BNE 
MOV 

;; INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLF5 
CLR 
M0V8 
MOV 
MOV 

.-.SIZE FOR 

;;ECUAL TO 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



; .-FIRST LOCATION TO BE CLEARED 
;; CLEAR MEMORY LOCATION 
;;DONE? 

;;LOOP BACK IF NO 

; .-SETUP THE STACK POINTER 



#$CMTAG,R6 
CR6)* 
4rSWR.R6 
.-6 

#STACK,SP 
FEW VECTORS 

#$SCOP£.a*IOTVEC ;;JOT VECTOR FOR SCOPE ROUTINE 
#340.a#I0TVEC*? ;; LEVEL 7 

#$£RROR.a#eMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
#340.a#E«TVEC+2 ; .-LEVEL 7 

<rSTRAP.a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,8#TRAPVEC+2;LEVEL 7 

$EN0CT,$£OPCT ;; SETUP END-OF -PROGRAM COUNTER 



$T1MES 
$ESCAPE 
4ri,$ERnAX 
#.,$LPADR 
#..$LPERR 
A HARDWARE SWITCH 
A "-1". SETUP FOR 
a#ERRVEC.-(SP) 
#64$.a#ERRVEC 
ffDSWR.SUR 
#DD ISP. DISPLAY 
4r-1.aSWR 
66$ 



64$: 



BR 
MOV 



65$ 

*65$.(SP) 



.-.-INITIALIZE NUBER OF ITERATIONS 
.-.-CLEAR THE ESCAPE ON ERROR ADDRESS 
; .-ALLOW ONE ERROR PER TEST 
.-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 
;; SETUP THE ERROR LOOP ADDRESS 
REGISTER. IF NOT FOUND OR IT IS 
A SOFTWARE SWITCH REGISTER. 
.-.-SAVE ERROR VECTOR 
.-.-SET UP ERROR VECTOR 
; .-SETUP FOR A HARDWARE SWICH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
;;TRY TO REFERENCE HARDWARE SWR 
;; BRANCH IF NO TIMEOUT TRAP OCCURRED 
;;AND THE HARDWARE SWP IS NOT - -1 
; .-BRANCH IF NO TIMEOUT 
;;SET UP FOR TRAP RETURN 



C/RMRBO RM05/3/2 DU POR TST 1 
IMMALIZE THE COMMON TAGS 



MACRO VGA. 00 
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SEO 0057 



002A56 
002460 
002A66 
002474, 

25 

26 002500 

27 002506 
28 

29 

0025 K 
00252C 
002522 
002530 
002532 
002536 

002620 

002620 
002624 
002626 
002634 
002636 
002640 
002642 
002650 

30 

31 002650 

32 002654 

33 002660 

34 002664 

35 002666 

36 002672 

37 002700 

38 002702 

39 002706 

40 002710 

41 002716 

42 002722 

43 002730 

44 002734 

45 002740 

46 002744 

47 002750 

002754 
002756 
002757 

48 002760 

49 002764 

002770 
002772 
002773 

50 002774 



000002 
012737 
012737 
012o37 



012737 
C12737 



005227 
001037 
022737 
001433 
104401 
000430 



005737 
001006 
023727 
001005 
104406 
000403 
112737 



004737 
004737 
104401 
104412 
012637 
023727 
101403 
104401 
000762 
013737 
005237 
042737 
013746 
042716 
052637 
104401 
013746 

104403 
001 
000 
104401 
013746 

104403 
007 
000 

104401 



COOT 76 
000174 
000004 



002160 
000300 



001224 
001224 

072421 

001224 
001226 
000016 
001224 
177771 
001226 
072444 
001224 



072473 
001226 



001207 



001140 
001142 



000004 
000006 



65$: 
66S: 



RTI 
MOV 
MOV 
MOV 



#SWREG,SWR .-.POINT TO SOFTWARE SWR 

#DISPREG, DISPLAY 

(SP)*,a«RRVEC .-.-RESTORE ERROR VECTOR 



000042 



\77777 
066110 
002540 

0000^2 

001140 000176 
OOOOCl 001134 



070610 
003246 
072172 



.-SETUP "TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV tfSADTMO.ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 
MOV *PR6.ERRVEC*2 ;LEVEL 6 

.SLTTL TYPE PROGRAM NAME 

;;TYPE THE NAME OF THE PROGRAM IF FIRST PASS 



.-;68$: 

67S: 

.S8TTL 



69S: 
70$: 



IS: 



000007 

001226 
001226 



2S: 



INC 


*-1 


; .-FIRST TIME? 


BNE 


67$ 


.-.-BRANCH IF NO 


CMP 


mNDAD,a#42 


.•;ACT-11? 


BEG 


67$ 


; .-BRANCH IF YES 


TYPE 


,68$ 


;;TYPE ASCIZ STRING 


BR 


67$ 


;;GET OVER THE ASCIZ 


.ASCIZ 


<CRLF>aCZRMR80 


- RM05/3/2 DUAL PORT 



GET VALUE FOR SOFTWARE 



TST 
BNE 
CMP 
BNE 
GTSWR 
BR 

Move 



JSR 

JSR 

TYPE 

RDOCT 

MOV 

CMP 

BLOS 

TYPE 

BR 

MOV 

INC 

BIG 

MOV 

SIC 

BIS 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 

TYPOS 
.BYTE 
.BYTE 
TYPE 



a«42 
69$ 

SWR,#SWREG 
70$ 

70$ 

4rl.SAUT0B 



PC.$TKINT 
PC, CHANGE 
.ENTERA 

(SP)*, PORTA 
PORTA. #7 
2$ 

.AOAERR 
1$ 

PORTA,PORTB 
PORTS 
#16,P0RT8 
PORTA, -(SP) 
#-C6.(SP) 
(SP)*,PORTB 
,PORTAIS 
PORTA. -(SP) 



1 
0 

.PORTBIS 
PORTS, -(SP) 



1 
0 

.$CRLF 



SWITCH REGISTER 

;ARE WE RUNNING UNDER XXDP/ACT? 
'BRANCH IF YES 

;SOFTWARE SWITCH REG SELECTED? 
.-BRANCH IF NO 
.-GET SOFT-SWR SETTINGS 

;;SET AUTO-MODE INDICATOR 



; SETUP THE TTY KEYBOARD 

; CHECK/CHANGE THE RH/RM ADDRESS 

; ENTER DRIVE ADDRESS 

,-6ET THE ADDRESS 

.STORE THE ADDRESS 

;SEE IF ADDRESS TOO LARGE 

'BR IF NOT 

■TYPE ADDRESS ERROR MESSAGE 
;TRY AGAIN 

.•GENERATE THE PORT B ADDRESS 
.•INCREMENT THE ADDRESS 
.•LEAVE BIT 0 

;PUT PORT A ADDRESS ON THE STACK 
.-SAVE BITS 1 t 2 

.SET BITS 1 6 2 IN PORT B ADDRESS 

;'PORT A ADDRESS IS ' 

;;SAVE PORTA FOR TYPEOUT 

.•;TYPE PORT A ADDRESS 

;;60 TYPE— OCTAL ASCII 

;;TYPE 1 DIGIT (S) 

.•.•SUPPRESS LEADING ZEROS 

;'PORT B ADDRESS IS * 

;;SAVE PORTS FOR TYPEOUT 

;;TYPE PORT B ADDRESS 

.•;G0 TYPE— OCTAL ASCII 

;;TYPE 1 DIGIT (S) 

; .-SUPPRESS LEADING ZEROS 

.ANOTHER CR-LF 



'ZRMRBO RM05/5/2 DU POR TS' 1 MACRO VOA.OO 
GfT VALUE fOR SOFTWARE SWITCH REGISTER 
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SEO 0056 



51 003000 

52 003006 

53 0030K 
5A 003022 
55 003026 

58 0O303A 
003040 
0030A4 
003050 

59 00305A 

60 003060 
o1 00306A 

62 003070 

63 003072 
6A 

65 
66 

67 003074 
o8 003076 

69 003102 

70 003106 

71 003112 

72 003116 

73 003122 
003124 
003130 

76 003134 

77 003140 

78 003U6 

79 003154 

80 003162 

81 003166 

82 003170 

83 003172 

84 003174 

85 003200 

86 003204 

87 003206 

88 003212 

89 003214 

90 003216 

91 003220 

92 003226 

93 003232 

94 003240 

95 003244 
96 

97 
98 

99 003246 

100 003252 

101 003254 

102 003260 

103 003264 

104 003270 

105 003272 

106 003276 



ft, 
75 



013757 

062737 

042737 

013701 

116137 

005037 

005037 

005037 

005037 

004737 

000137 

104401 

000000 

000776 



000005 
005037 
104401 
013700 
012706 
004737 
000240 
004737 
005037 
005037 
112737 
012737 
012737 
104401 
104412 
012601 
001002 
000137 
020137 
003403 
104401 
000763 
005301 
006301 
016137 
005237 
012737 
000177 
000000 



001224 
000006 
1 7777^ 
001224 
101672 
001262 
001264 
001270 
001272 
066130 
003074 
072522 



\7777t 
001 207 
001304 
001100 
066130 

070610 
001300 
001100 
000001 
003146 
003154 
072560 



003374 
101702 

072600 



101556 
001300 
000001 
000000 



001230 
001230 
001230 

001236 



3$: 



MOV PORTA, PORK 

ADD #6.P0RTC 

BJC #*C7,P0RTC 

MOV PORTA, R1 

M0V8 ATA8IT(R1),ASR1 

CLR TIMEA 

CLR TIMEAP 

CLR TIME8 

CLR TIME8P 

-SR PCCKCLK 

JMP EXEC 

TYPE .NOCLOCK 

HALT 

BR 3$ 



GENERATE ADDRESS OF DRIVE NOT TESTED 

COMPLEMENT SOME BITS 

SAVE ONLY LOWER BITS 

USE PORT A ADDRESS AS INDEX 

;GET ATTENTION BIT FOR DRIVE 
; CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
; CLEAR TIMEOUT ONE-SHOT VALlC LOCATION 
.•SETUP CLOCK 
.•CLOCK HAS BEEN STARTED 
;N0 CLOCK ON SYSTEM 
.•FATAL ERROR 
.•INTERLOCK THE HALT 



.•ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 
EXEC: 



001115 
001106 
001110 



003244 
001104 







LLt^v^ Cvcnr inirv\j 


n R 












Mnv 


tRMADR RO 




MOV 


#STACK.SP 




J on 


PC cicri K 




NOP 




RETURN IF NO CLOCK 


JSR 


PC.STKINT ; 


•INITIALIZE THE KEYBOARD 


CLR 


KYQCTL 


; CLEAR SINGLE TEST INDICATOR 


CLR 


SPASS 


•CLEAR THE PASS COUNT 


M0V8 


#1,$ERMAX 


;SET ERROR MAX TO 1 


MOV 


#..$LPADR 


•INITIAL SETTING FOR LOOP ADDRESS 


MOV 


#..$LPERR 


; INITIAL SETTING FOR LOOP ON ERROR ADDRESS 


TYPE 


.TESTNO 


:ASK FOR TEST NtmER 


RDOCT 




rGET THE MfBER 


MOV 


(SP)*,R1 


;PUT ENTRY INTO Rl 


BNE 


2$ 


;BR IF NOT ZERO 


JMP 


TST1 


jENTER ZERO - PERFORM ALL TESTS 


CMP 


R1.MAXTN 


;SEE IF NUMBER GREATER THAN MAXIMLM 


BLE 


3$ 


;BR IF LESS OR EQUAL 


TYPE 


.SADNO 


jBAD ENTRY 


BR 


IS 


;TRY AGAIN 


DEC 


Rl 


; DECREMENT ENTRY 


ASL 


R1 


•SHIFT IT LEFT 


MOV 


TSTA0R(R1),4S 


;6ET THE TEST ADDRESS 


INC 


KY8CTL 


;SET SINGLE TEST INDICATOR 


MOV 


#1-$ICNT 

a4i 


■PRESET ITERATION COUNT 


JMP 


■GO TO THE SELECTED TEST 


.WORD 


0 


;TEST ADDRESS GOES HERE 



1$: 

2$: 
3$: 

4$: 

.•CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 



005737 


001302 


CHANGE : 


TST 


CHGADR 


•CHANGE THE ADDRESS ? 


001421 






BEO 


3$ 


■BR IF NOT 


005037 


001302 




CLR 


CHGADR 


•CLEAR THE INDICATOR 


104401 


072640 


1$: 


TYPE 


.ADDRIS 


TYPE OUT WHAT THE PRESENI ADDRESS IS 


013746 


001304 




MOV 


$RMADR.-(SP) 


•PUT THE ADDRESS ON THE STACK 


104402 






TYPOC 


•TYPE THE ACTUAL ADDRESS 


104401 


001207 




TYPE 


.SCRLF ; 


•CR-LF 


104401 


072675 




TYPE 


.NTRH 


-ASK FOR NEW ADDRESS 



CZRMRBO RM05/3/2 OU W TST 1 MACRO VOA.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



107 
108 
109 
110 
111 
112 
113 
1U 
115 
116 

117 
118 
119 
120 



003302 
00330A 
003306 
003310 
0O33K 
003316 
00332A 
003330 
00333A 
003336 
003336 
003340 
00334A 
0035A6 
00335A 



104412 
005716 
001402 
011637 
005726 
012737 
013700 
005760 
000404 



001304 

003336 
001304 
000002 



000004 



2S: 
3$: 



4$: 



104056 

062706 000004 
000745 

012737 000006 000004 5$: 
000207 



N 3 

18:06:25 PAGf 9-3 



SEO 0059 



(SP) 
2$ 

(SP),$RMADR 

(SP)* 

4r4S,a#4 

$RrV\DR,RO 

RMWC(RO) 

5$ 



0 OR 'CR' ENTERED ? 

8R IF EITHER ENTERED (NO ADDRESS CHANCE) 

NEW RH/RM ADDRESS 

CORRECT THE STACK POINTER 

LOAD TRAP ADDRESS 

GET RH/RM ADDRESS 

RESPONDS AT THAT ADDRESS ? 

8R IF YES 



56 

#4,SP 
1$ 

#6,a/y4 

PC 



RESET THE STACK POINTER 
GET ADDRESS AGAIN 
RESTORE THE VECTOR 
RETURN 



CZRI^BO 
TESTS 



2 
16 

18 



B A 
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21 
?2 
23 
2A 
25 
33 



SEO 0040 



'9 

20 



003460 
C03A66 
003474 
003500 
003504 
003512 
003520 
003524 
003530 
005536 
003544 
003552 
033554 
003562 
003570 
003576 
003600 



.S8TT. TESTS 



003356 013700 001304 

003362 012746 000240 

003366 012746 003374 

003372 000002 
003374 



TST1AA: 



64S: 



MOV 
MOV 
MOV 
RTI 



SRMADR,R0 
#PR5,-(SP) 
#64$. -(SP) 



; .-RESTORE RO AFTER END Of PASS 

;;PUT NEW PS ON STACK 

;;PUT NEW PC ON STACK 

;.POP NEW PC AND PS 



TEST 1 NEUTRAL ACCESS TEST 

VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 

A. SELECT DRIVE. VERIFY THAT THE DRIVE IS PRESENT. THAT THE 
DRIVE IS A DUAL PORT RM05, RM03 OR RM02 AND THAT THE DRIVE 
IS ONLINE (RMDS HAS '/>10L', 'PGW, 'DPR'. £ 'DRY' BITS SET). 
AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS 
THE SAME. 



B. THE TEST IS REPEATED THROUGH BOTH PORTS. 



003374 








TST1: 




003374 


005737 


001300 






TST 


003400 


001406 








BEO 


003402 


100002 








BPL 


005404 


000137 


003074 






JMP 


003410 


012737 


Mil?? 


001300 


IS: 


MOV 


003416 


012737 


003432 


001106 


2$: 


MOV 


003424 


012737 


003432 


001110 




MOV 


003432 








TEST1: 




003432 


112737 


000001 


001102 




M0V8 


0C3440 


012706 


001100 






MOV 


003444 


012737 


000001 


001 1 76 




MOV 


003452 


012760 


000040 


000010 




MOV 



KY8CTL 

z% 

IS 

EXEC 

#-1 ,KY8CTL 

#TEST1.$LPADR 

#TEST1,$LPERR 

#1.$TST»#1 

#STACK,SP 
#1,$TIMES 



PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

8R IF JUST ENTERED TEST 
RETURN ( GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #1 TO TEST NlfBER 
LOAD THE STACK POINTER 
;D0 1 ITERATION 



#CLR.RMCS2<R0) .-INITIALIZE THE NASS8US 
.-VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A i B 



113760 
0-.3737 
005760 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104037 
005137 



001224 
001224 
000012 
001250 
000010 
000010 
001122 
001124 
001126 
167777 
001124 

001126 
010000 
001174 

001250 



000010 
001240 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001174 
001124 



MOVB 

MOV 

TST 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

SIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PThBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMOS(RO) .-SEE If DRIVE (PORT A) PRESENT 

CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMCS2(R0).$8DUAT ;6ET CONTENTS OF RMCS2 
#RMCS2,$8DADR .FORM REGISTER ADDRESS OP ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R If OK 
.-COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO.SBDADR 
SGDDAT 

SBDDAT.STMPO 
#*CNED,$TMPO 
$6DDAT.$TMP0 
64$ 

$8DDAT.$TMP4 
#NED,$TMP4 
$TMP4,$60DAT 

37 
CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



:S(«\RBO RM05/3/2 DU POR TST 
NEUTRAL ACCESS TEST 



003604 
003606 
003612 
0036U 
003622 
003630 
003636 
003642 
003646 
003654 
003662 
003666 
003672 
003700 
003706 
003714 
003716 
003724 
003732 
C03740 
003742 
003746 
003750 
003754 
003756 

34 
35 
36 

40 003764 
003772 
004000 
004004 
004012 
004020 
004024 
004032 
004040 
004042 
004050 
004052 
00406C 
004062 
004064 
004070 
004072 
004100 
004106 
004112 
004120 
004126 
004132 
004140 
004146 
004150 
004156 
004160 
004166 



(1ACR0 V04.00 4-APR-8I 



000240 






64S: 


NOP 
TS' 


005737 


001250 






001403 








BEO 


012760 


000040 


000010 




MOV 


1 1 3760 


001226 


000010 




M0V8 


013737 


001226 


001 240 




MOV 


005760 


000012 






TST 


005037 


001250 






CI R 


016037 


000010 


001 1 26 




MOV 


012737 


000010 


001122 




MOV 


060037 


001122 






ADD 


005037 


001 124 






CLR 


013737 


0011 26 


001 164 




MOV 


042737 


167777 


001 164 




BIC 


023737 


001124 


001164 




CMP 


001414 








BEQ 


013737 


001 126 


001 1 74 




MOV 


042737 


010000 


001 1 74 




BIC 


053737 


001 1 74 


001124 




BIS 


104037 








FMT 




AA1 OCA 

001 ^!>0 






con 


000240 
005737 






66$; 


NOP 


001250 






TST 


001403 








BEQ 


012760 


000040 


000010 




MOV 



113760 
013737 
005037 
016037 
012737 
060037 
012737 
022757 
001413 
022757 
001407 
023737 
001403 
104001 
005137 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
022737 
001413 
022737 
001407 
023737 
001403 



C 4 

18:06:25 PAGE 10-1 



CKERR ;WAS "NED* SET ? 

.♦10 ;8R IF NOT 

#CLR,RMCS2(R0) .ISSUE MASS8US INIT TO CLEAR 'NED' 
P0R18.RMCS2(R0) .-SELECT PORT B 

P0RT8.PTN8R ;MOVE PORT ADDRESS TO LOCATION FOP TVPFOUT 
RMDS(RO) .-SEE IF DRIVE (PORT B) PRESENT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS2(R0).$8DDAT ;GET CONTENTS OF RMCS2 
*a'iCS2.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
;«OVE REGISTER CONTENTS TO 'STMPO* 
;SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;8R IF OK 
COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TVPEOUT 



SEO 0041 



RO.SSDADR 
SGDDAT 

$8DDAT.$TMPC 
#-CNED,JTMPO 
SGDDAT,$TMPO 
66S 

SeDDALSTMP' 
*NED,$TMP4 
$^MP4.$GDDAT 

37 
CKERR 



CKERR 
.♦10 

#CLR.RMCS2{R0> 



.SET THE REGISTER COMPARE ERROR INDICATOR 

WAS 'NED' SET ? 
8R IF NOT 

ISSUE nASseus init to clear 'ned* 



.•CONFIRM THAT DRIVE IS AN RM05. RM03 OR Rf102 AND IS DUAL PORTED 



001224 
001224 
001250 
000026 
000026 
001122 
024027 
024024 

024025 

001124 



001250 

001226 
001226 
001250 
000026 
000026 
001122 
024027 
024024 

024025 

001124 



000010 
001240 

001126 
001122 

001124 
001126 

001126 

001126 



000010 
001240 

001126 
001122 

001124 
001126 

001126 

001126 



68S: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEO 

CMP 

BEO 

CMP 

BEQ 

EMT 

COM 

NOP 

Move 

MOV 
CLR 
MOV 
MOV 
ADD 
MOV 
CMP 
BEQ 
CMP 
BEO 
CMP 
BEO 



P0RTA.R«CS2(R0> .'SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

R«)T{R0),$8DDAT ;6ET CONTENTS Of RMDT 
iTRMDT.SeOADR .FORM REGISTER ADDRESS Of ERROR MESSAGE 



RO.SSDADR 
#024027, SGDDAT 
/r024024.SeDDAT 
68$ 

#024025. SBDDAT 
68$ 

$GDDAT.S6DDAT 
68$ 

1 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
DUAL PORT RM03 ? 
YES ' ' 

DUAL PORT RM02 ? 
YES !! 

IS THE REGISTER OK ? 
BR IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 



PORT8,RMCS2(R0> ;SELECT PORT B 

PORTS. PTN8R .'MOVE PORT ADDRESS TO LOCATION FOR TvPEOuT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDT(RO).$aDDAT ;GFT CONTENTS OF RMDT 
#RMDT.$BDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 



RO,$aDADR 
*024027.$GDDAT 
#024024, $8DDAT 
70$ 

#024025.$eDDAT 
70$ 

3GDDAT.$8DDAT 
70$ 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
DUAL PORT RM03 ? 

YES ! ! 

DUAL PORT RM02 ? 
YES !. 

IS THE REGISTER OK ■> 
BR IF OK 



:rmrbo Rri05/3/2 du por tst i 

'T NEUTRAL ACCESS TES^ 



0<X170 
OCK172 
004176 

42 
43 

48 004200 
004206 
004214 
004220 
004226 
004254 
004240 
004246 
004254 
004262 
004270 
004272 
004300 
004 306 
004314 
004316 
004322 
004324 
004330 
004336 
004544 
004350 
004356 
004364 
004372 
004400 
004402 
004410 
004416 
004424 
004426 
004432 
004454 
004442 
004450 
C04454 
004462 
004470 
00447/; 

004502 
004510 
004516 
004524 
004526 
004534 
004542 
004550 
004552 
004556 
004560 
004564 



104001 
005137 

000240 



113760 
013737 
005057 
016037 
012737 
060037 
012737 
013757 
042737 
023737 
001414 
013737 
042737 
055737 
104045 
005137 
000240 
005057 
016037 
012757 
060037 
012757 
015757 
042757 
025757 
001414 
015757 
042/57 
055757 
104002 
005157 
000240 
115760 
015757 
005057 
016057 
012757 
060057 
012757 
015757 
042757 
025757 
001414 
015757 
042757 
055757 
104045 
005137 
000240 
005057 
016037 



C01250 



001224 
001224 
001250 
000012 
000012 
001122 
001000 
001126 
176777 
001124 

001126 
001000 
001174 

001250 

001250 
000012 
000012 
001122 
010600 
001126 
167177 
001124 

001126 
010600 
001 1 74 

001250 

001226 
001226 
001250 
000012 
000012 
001122 
001000 
001126 
1 7b777 
001124 

001126 
001000 
001 1 74 

001250 

001250 
000012 



^CPO V04.00 



70$: 
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000010 
001240 

001126 
001122 

001124 
001164 
001164 
00116; 

001174 
001 1 74 
001124 



001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001174 
001124 



001126 



EMT 
COM 
NOP 



1 

CKERR 



.SET THE REGJSTffe COMPARE ERRO» INDICATOH 



;VERiFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 



72$; 



74$: 



76$: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

SIC 

CMP 

BEQ 

MOV 

BiC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 



P0RTA.RMCS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TvpEQUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO^SSDADR 
#PGM.$6DDAT 
$8DDAT,$TMP0 
*-CPGM.STMPO 
$GDDAT.$TMPO 
72$ 

$8DDAT.$TMP4 
*PGM.$TMP4 
$TMP4.$6DDAT 

45 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT .GET CONTENTS OF RMDS 
4rRf«>S,$6DADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,S6DADR ;ADD RH/RM BASE ADDRESS 

*MOL!DPR!DRY,$GDDAT ;WHAT REGISTER SHOULD BE 
$80DAT,$TMP0 .-MOVE REGISTER CONTENTS TO •$TMPO' 
#*C10600,$TMPO .-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



$GDDAT.$TMPO 
74$ 

$80DAT.$TMP4 
#10600,$TMP4 
$TMP4.$GDDAT 

2 

CKERR 



;SET TH£ REGISTER COMPARE ERROR INDICATOR 



PORTS. RMCS2(R0) .'SELECT PORT B 

P0RT8,PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 
*Rf>H)S.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DA0R 
*PGM.$GDDAT 
$6DDAT.$TMP0 
#*CPGM.$TMPO 
$6DDAT.$TMP0 
76$ 

$8DDAT,$TMP4 
#PGM.$TMP4 
$TMP4.$6DDAT 
45 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 



'"^^H^ DU POP TST 1 

NfUTRAL ACCESS TEST 



MACRO VO^.OO ^-APR-8' 



00A600 

0OA620 
004626 
004654 
004656 
004644 
004652 
004660 
004662 
004666 

49 

50 
51 

, 5? nru.h?r[ 



012757 
060057 
012757 
015757 
042757 
025757 
001414 
015757 
042757 
055757 
104002 
005157 
000240 



000012 
001122 
010600 
001126 
167177 
001124 

001126 
010600 
001174 

001250 



001122 

00r24 
001164 
001164 
001164 

001 1 74 
00^74 
00r24 



78$: 



MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEO 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 
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#RMDS.$BDADR .FORM REGISTER ADDRESS Cf ERROR MESSAGE 
RO.SSDADR .-ADD RH/RM BASE ADDRESS 

*MOL!DPR.DRY.$GDDAT .-WHAT REGISTER SHOULD BE 



SEO 0045 



$8DDAT.$TMP0 
#*C10660.$TMP0 
$GDDAT,$TMPO 
78$ 

$8DDAT.$TMP4 
*10600.$TMP4 
$T^4,$GDDAT 
2 

CKERR 



.•MOVE REGISTER CONTENTS TO 'fTMPO* 
.SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
.CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TrPEOUT 

;SET THE REGISTER COMPARE ERROR INDKATQR 



.•VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THf SAME 



ii57hn noi??6 nonmo 



■MnvB. 



PORTA, BMC SPfftni 



SFI Ff T PDBT A 



55 004676 

54 004704 

55 C04712 

56 004720 

57 004726 

58 004750 

59 004752 

60 004740 

61 004742 

62 004744 
65 

81 
82 



016057 
113760 
016057 
025757 
001406 
104005 
052777 
001001 
000000 
000004 



000030 
001226 
000050 
001124 



001124 
000010 
001126 
001126 



100000 174200 



1$: 



MOV 

M0V8 

MOV 

CMP 

BEO 

EMT 

BIT 

BNE 

HALT 

SCOPE 



RMSN(RO).$GDDAT 

PORTS, RMCS2(R0) 

RMSN(R0),$8DDAT 

$GDDAT.$6DDAT 

1$ 

5 

4rSWl5.aSUR 
1$ 



STORE THE PORT A SERIAL fATBER 
SELECT PORT B 

STORE THE PORT B SERIAL NUMBER 
ARE THEY THE SAME ? 
8R IF THEY ARE 

HALT ON ERROR ? 

BR IF SET - PROGRAM HAS ALREADY HALTED 
HALT, POSSIBLE CABLE CONNECTION PROBLEM 
LOOP ? 



TEST 2 



PORT 'A' SEIZE/TIMEOUT TEST 



VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAI 
IT CAN BE RELEASED BY THF ONE SECOND TIMER. 

A. WRITE O'S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

B. READ EACH DRIVE REGISTER. EXCEPT RMCSl . THROUGH PORT 'B'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 
MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 



004 746 








TST2: 








004746 


00575' 


001300 






TST 


HYBCTL 


.PERFORMING ONLY SINGLE TEST ? 


004752 


001406 








BEO 


2$ 


;8R IF NOT 


004754 


100002 








BPL 


1$ 


;8R IF JUST ENTERED TEST 


004756 


000157 


005074 






jMP 


EXEC 


.•RETURN e GET NEXT TEST NLWBER 


004762 


012737 


\777n 


001 300 


1$: 


MOV 


*-1,KyBCTL 


;SET SINGLE TEST INDICATOR 


004770 


012757 


005004 


001106 


2$: 


MOV 


*TEST2,$LPADR 


.-SETUP SCOPE LOOP ADDRESS 


004776 


012757 


005004 


oomo 




MOV 


#TfcST2,$LPERR 


.•SETUP ERROR LOOP ADDRESS 


005004 


112757 






TEST2: 






005004 


000002 


001102 




M0V8 


#2.$TSTNM 


.•MOVE *2 TO TEST NUMBER 



Z»«RBO RMOS/5/a Dl POR TST 1 MACRO V04.00 
2 PORT SEI2E/TIMfOUT TEST 
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SFQ 0044 



005012 
005016 

83 

151 005024 
005052 
005056 
005042 



005046 
005052 



005060 
0C5066 
005074 
005100 
005106 
005114 
005122 
005130 
005134 
005142 
005146 
005154 
005156 
005160 
005164 
005164 
005172 
005200 
005206 
005214 
005222 
005230 
005234 
005242 
005250 
005256 
C05260 
005262 



005264 
005272 
005300 
005304 
005310 
005314 
005320 
005324 
005330 
005334 
C05340 



012706 001100 

012737 000002 001176 



012737 
005057 
005037 
005037 



005037 
012757 



1 1 5760 
013737 
005060 
113760 
013757 
015757 
016057 
010057 
062757 
005057 
023757 
001405 
104004 
000137 

1 1 3760 
013757 
016037 
042737 
012757 
013757 
005157 
015757 
045737 
023737 
001401 
104005 
000240 



113760 
013737 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 



000240 
001262 
001264 
001266 



001256 
003720 



001224 
001224 
000006 

001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



006312 

001224 
001224 
00001? 
020001 
011600 
001124 
001166 
001126 
001166 
001124 



1 7777^ 



001260 



000010 
001242 

000010 
001240 
00^244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



001226 000010 

001226 001240 

000046 

000044 

000030 

000034 

000032 

000042 

000020 

000026 

000006 



MOV 
MOV 

MOV 
CLR 
CLR 
CLR 



#srAC<,SP 

#2..$TIMES 



.•LOAD THE STACK POINTER 
;;D0 ?. ITERATIONS 



#<5«32, 
TIMEA 
TIMEAP 
TIME AM 



>.a#ps 



;SET PRIORITY TO 5 IN CASE LOOPING 
.•CLEAR TIMEOUT VALUE FOR PORT A 
CLEAR UPPER TIMEOUT TOLERANCE 
CLEAR LOWER TIMEOUT TOLERANCE 



.•START THE TIMER 

CLR 
MOV 



TIME 

*2C00.. WATCH 



.•CLEAR THE ELAPSED TIME COUNTER 
.■SET WATCH TO 2000. MS 



.•SEIZE THE DRIVE THROUGH PORT A 



64$: 



65$: 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 

EMT 

JMP 

M0V8 

MOV 

MOV 

BIG 
MOV 
MOV 
COM 
MOV 
BIC 
CMP 
BEO 
EMT 
NOP 



PORTA. RMCS2(P0) ."SELECT PORT A 
PORTA, SEIZPT ;STORE SEIZING PORT'S ADDRESS 
RMDA(RO) .-WRITE RMDA 

P0RTB.RMCS2(R0) ;SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TrPEOuT 



P0RT8.0PPRT 
RMDS(R0).$8DDAT 
RO.$eDADR 
#RMDS,$8DADR 
$GDDAT 

$GDDAT,$8DDAT 

64$ 

4 

5$ 



•OPPOSITE* PORT ADDRESS 
SEE IF DRIVE SEIZED BV PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

BYPASS REST OF THE SUBTEST 



PORTA. RMCS2(R0) .SELECT PORT A 

PORTA. PTNBR ;«OVE PORT ADDRESS TO LOCATION FOR TVPE0<JI 
RMDSCRO.ieODAT ;SEE IF SEIZING PORT SEES CORRECT STATJS 
#OM:PIP,$eDDAT ;CLEAR DONT CARE BITS 

*f10L.'PG«lDPRIDRY,$GDDAT .'EXPECTED STATUS 
$GDDAT,$TMP1 :USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT.$TMP0 
$TMP1,$TMP0 
$GDDAT.tTMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET 
8R IF THEY ARE 



;READ THE DRIVE REGISTERS THROUGH PORT 8 AND STORE THEM ON THE STACK 

M0V8 PORTe.RMCS2(R0) .'SELECT PORT B 

MOV P0RT8, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV RMEC2(R0).-(SP) ."STORE REGISTER RMEC2. PORT B. FOR CHECic 

MOV RMEC1(R0).-(SP) ;ST0RE REGISTER RMECI. PORT B. FOR fHECic 

MOV RMSN(RO).-(SP) ;STORE REGISTER RMSN. PORT B. FOR CHECK 

MOV RMDC(RO),-(SP) ;STORE REGISTER RMDC. PORT B. FOR CHECK 

MOV RMOF(RO),-(SP) ; STORE REGISTER RMOF. PORT B. FOR CHtC< 

MOV RMER2(R0).-(SP) ."STORE REGISTER RMeR2. PORT B. FOR CHECK 

MOV RMLA(RO),-(SP) ;STORE REGISTER RMLA. PORT B. FOR CHECK 

MOV RMDT(RO).-(SP) ;STORE REGISTER RMDT. PORT B. FOR CHECK 

MOV RMDA(RO).-(SP) ."STORE REGISTER RMDA. POR^ B. FOR ChE'k 



PORT 'A' 

COS 

ocssso 



DU POR TST 1 
SEIZE/TIME our 



TEST 
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SfO 0045 



016046 
016046 



0000^4 
C00014 



MOV RMMR" (RO),-(SP) .-STORE REGISTER RMMR1. PORT 8. FOR CHECK 
MOV RMER1(R0).-(SP) ; STORE REGISTER RMER1. PORT 8, FOR CH£CH 

.•WAIT FOR PORT A TO TIMEOUT 



005554 


005760 


000012 




1$: 


TST 


RMDS(RO) 


•WAIT FOR THE DRIVE TO TJMEOUT 


005360 


001006 








BNE 


2S 


8R WHEN TIMEOUT OCCURS 




005562 


005757 


001260 






TST 


UATCM 


CHECK WATCH 




005566 


001372 








BNE 


IS 


■8R IF NOT ZERO 




005370 


104036 








EMT 


36 






005372 


000137 


005776 






JMP 


4$ 


■BYPASS TIMEOUT TIME CHECK 




005376 


012737 


000340 


1 7717b 


2S: 


MOV 


*<7»32.>.a*PS 


•SET PRIORITY TO 7 TO STOP 


CLOCK 


005404 


013737 


001256 


001262 




MOV 


TIME.TIMEA 


•SAVE THE ELAPSED TIME FOR 


PORT A 


005412 


004537 


066324 






JSR 


R5.T0LER 


•CALCULATE THE TOLERATJCE 




005416 


001262 








.WORD 


TIMCA 


•TIMEOUT VALUE FOR PORT A 




005420 


012637 


001264 






MOV 


(SP)*,TIMEAP 


•♦25X TOLERANCE 




005424 


01 2637 


001266 






MOV 


(SO)*.TIMEAM 


•-25X TOLERANCE 





.•VERIFY 'HAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 



005430 
005436 
0054^0 



025727 
103001 
104055 



001256 000764 



CMP 

8HIS 

EMT 



TIME. #500. 
3$ 

55 



.-WAS MEASURED TIME 
;8R IF IT WAS 



AT LEAST 500 MS? 



.•VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 



005442 012737 000240 177776 3$: 



MOV 



*<5»32.>,a#PS .-RESTORE PRIORITY TO 5 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



005450 
005454 
005462 
005466 
005474 
005502 
005510 
005516 
005524 
005532 
005540 
005546 
005554 
005562 
005570 
005576 
005600 
005604 
005606 
005610 
005614 
005622 
005630 
005636 
005642 
005644 
005652 



005037 
U12737 
060037 
012737 
113760 
016037 
042737 
C13737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001037 
104046 
000137 
013737 
013757 
1 1 5760 
005737 
001414 
013737 
013737 



001254 
000012 
001122 
011600 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



005774 
001170 
001226 
001226 
001164 

001224 
001172 



001122 

00112^ 
000010 
001170 
001 1 70 
001 164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 



66$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

SIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

MOV 



relerr .-clear the 'release error ' indicator 

#rmds,$8dadr .form the address of rmds for typeout 
r0,$8dadr .add the i/o base address 
*mol.'pgm:dpr;dry,sgddat .-comparison constant 
porta.rmcs2(r0) .-select port a. 

RMOS(RO),$TMP2 .-get THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP1WRL10M,$TMP2 .-CLEAR DONT CARES 



$TMP2.JTMP0 
#ATA1VV,$T«P0 
P0Rr8,RMCS2(R0) 
R«DS(R0),$TMF3 . 
#PIP!WRL!0H,$TMP3 
STMP3.$TMP1 
#ATAIVV,$TMP1 
$TW»0,fTMPl 
66S 
STMPO 
68$ 
46 
70$ 

$TMP2.$6DDAT 
P0RT8.PTN8R 
P0RT8.RMCS2(R0) 
$TMP0 
67$ 

PORTA, PTNBR 
$TMP3.$BDDAT 



COPY IT INTO •$T«PO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT 8. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.•CLEAR DONT CARES 
COPY IT INTO 'JTMPI' 

CLEAR PORT DEPENDENT BITS FROH THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PQRTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEU^RAl 
•BAD DATA' FOR ERROR TYPE OUT 





rsT 1 


MACRO V04.00 


4-APR-81 
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18:06:25 PAGE 10 


PORT "A* SE IZE^TIMEOUT 


TEST 








005660 


1 f 5/^60 


A A 1 *- 

0012<:'« 


000010 




M0V8 


PORTA. RMCS2(R0) 




AAC 7 7 7 


r A 1 1 
001 loo 






TST 


STMPl 


0056 7J 


AA1 AA/ 

001004 








BNE 


68S 


005674 


0'2737 


1 77777 


001254 


67S: 


MOV 


#-1 .RELERR 


005 /'O^ 


1 A/ A*^ T 








EMT 


22 


OOi'^Uh 


A1 If 7 / 7 


AA1 1 7 A 


001126 


68S: 


MOV 


$TMP2.$BDDAT 


AAC 71 "5 


A1 7 7"? 7 

01 5f5f 


V\JiCCH 


001240 




MOV 


PORTA. PTNBR 


AAC "^TA 

005720 


A/ T 71 7 


1 AA1 A A 

1 001 00 


001126 




BIC 


*ata;vv.$bddat 


AAC ^'iA. 

005 726 


025737 


AA1 A 1/ 

001124 


001126 




CMP 


SGDDAT.SBDDAT 


005734 


A A 1 / A 1 

UO 1401 








BEQ 


69$ 


AAC 

005756 


1 A/ AA7 








EMT 


7 


AAC 7/ A 

005740 


A1 T7T7 


00 1 1 


001126 


69S: 


MOV 


$TMP3.$8DDAT 


005 /''•o 


A1 T717 

01 3^5^ 


OUT tco 


001240 




MOV 


PORTS. PTNBR 






\ \J\J 1 WW 


001126 




BIC 


#ATA!VV,$8DDAT 


005762 


023737 


001124 


001126 




CMP 


$GDDAT.SBDDAT 


005770 


001401 








BEQ 


70$ 


005772 


104007 








EMT 


7 


005774 


000240 






70$: 


NOP 





StO 0046 



SELECT PORT A. 

SEE IF STATUS EG ZERO FROM PORT B. 
8R IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR W BIT 

SEE IF READ OK FROM PORT B- 

8R IF OK 



.•CHECK THE REGISTERS STORED THROUGH PORT B. 
;THE REGISTERS ARE STORED ON THE STACK. 



ALL REGISTERS SHOULD 6t ZERO. 



005776 


013737 


001226 


AAl ^/ A J ^ 

001240 4$: 


MOV 


PuRTa.PTNBR 


006004 


010037 


A A^ ^ 1 

001 122 




MOV 


RO , $6DADR 


006010 


062737 


0OCO14 


/\ A 1 1 

001 122 


ADD 


#RMcRl , JBDADR 


006016 


012637 


001126 




MOV 


CSP; ♦,J8DDAT 


006022 


AA1 / A-1 

001401 






BP A 

BEQ 


.♦4 


006024 


^ Ay AA^ 

104006 






EMT 


6 


AA^ ATZ. 

006026 


Al AAT7 

010057 


AAl 1 T5 

001 122 




MOV 


nO.SBDADR 


006032 


A^ T77~» 

062 73 ^ 

U 1 tOJf 


A A A AT/ 

000024 


A/%1 in 
001 1 22 


ADD 


»RmRl .»8DADR 


<JUol>*«u 


Ut> 1 1 CO 




MDV/ 
HUV 




006044 


00140* 






BEQ 


.♦4 


006046 


104006 






EMT 


6 


006050 


010057 


001122 




MOV 


R0.$8DADR 


006054 


062737 


000006 


001122 


ADD 


«RMDA,$8DADR 


006062 


012637 


001126 




MOV 


(SP)*,$8DDAT 


006066 


001401 






BEQ 


.♦4 


006070 


104006 






EMT 


6 


006072 


010037 


001122 




MOV 


R0,$6DADR 


006076 


062737 


000026 


001122 


ADD 


#RnDT,$BDADR 


006104 


012637 


001126 




MOV 


(SP)*.$8DDAT 


C06110 


001401 






BEQ 


.+4 


006112 


104006 






EMT 


6 


006114 


010037 


001122 




MOV 


R0,$8DADR 


006120 


062737 


000020 


001122 


ADD 


#RMLA,$BDADR 


006126 


012637 


001126 




MOV 


(SP)*,$eDOAT 


006132 


001401 






BEQ 


.♦4 


006134 


104006 






EMT 


6 


006136 


010037 


001122 




MOV 


R0,$6[^ADR 


006142 


062737 


000042 


001122 


ADD 


*RMER2,$BDADR 


006150 


012637 


001126 




MOV 


(SP)*,$8DDAT 


006154 


C01401 






BEQ 


.♦4 


006156 


104006 






EMT 


6 


006160 


010037 


001122 




MOV 


R0,$8DADR 


006164 


062737 


000032 


001122 


ADD 


JtTRMOF.SBDADR 


00617? 


012637 


001126 




MOV 


(SP)*,$BDDAT 


006176 


001401 






BEQ 


• •^4 



.•CHANGE '."ORT NUMBER' TO THE OPPOSITF PORT 
.'BASE ADDRESS FOR REGISTER RMER1 
.•ADDRESS OF RMER1 FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMER1 
.•CONTENTS ZERO ? 

.-BASE ADDRESS FOR REGISTER RMMR1 
.•ADDRESS OF RMMRl FOR TYPEOUT 
; CHECK THE STORED CONTENTS OF RMMRl 
.CONTENTS ZERO ? 

.•BASE ADDRESS FOR REGISTER RMDA 
.ADDRESS OF RMDA FOR TYPEOUT 
; CHECK THE STORED CONTENTS OF RMDA 
.•CONTENTS ZERO ? 

.-BASE ADDRESS FOR REGISTER RMDT 
.-ADDRESS OF RMDT FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMDT 
.•CONTENTS ZERO ? 

;8ASE ADDRESS FOR REGISTER RMLA 
.•ADDRESS OF RMLA FOR TYPECJT 
.•CHECK THE STORED CONTENTS OF RMLA 
.•CONTENTS ZERO ? 

;8ASE ADDRESS FOR REGISTER RMER2 
.•ADDRESS GF RMER2 FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMER2 
.•CONTENTS ZERO ? 

.•BASE ADDRESS FOR REGISTER RMOF 
.•ADDRESS OF RMOF FOR TYPEOUT 
; CHECK THE STORED CONTENTS OF RMO^ 
.•CONTENTS ZERO ? 



'•IRfclJ DU POR TST 1 MAC»0 VOA.OO 

PORT 'A' SEIZE/TI»1E0UT TEST 



I 4 
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SCO 0047 



'52 
170 

'71 



006200 


104006 






EMT 


6 




006202 


010057 


GOT 122 




MOV 


RO.SBDADR 


;8ASE ADDRESS FOR REGISTER RMDC 


006206 


062757 


000034 


001123 


ADD 


*RMDC,SBDADR 


.•ADDRESS OF RMDC FOR TVPEOUT 


0062U 


012657 


001 1 26 




MOV 


(SP)*,tBDDAT 


.•CHECK THE STORED CONTENTS Of RMDC 


006220 


001401 






QEQ 


.♦4 


.-CONTENTS ZERO ? 


006222 


104006 






EMT 


6 




006224 


010057 


001 1 22 




MOV 


RO.SBDADR 


.-BASE ADDRESS FOR REGISTER RMSN 


006250 


062757 


000050 


001122 


ADD 


tTPMSN.SBDADR 


.•ADDRESS OF RMSN FOR TYPEOOT 


006236 


012657 


001126 




MOV 


(i>P) + .$8DDAT 


.•CHECK THE STORED CONTFNTS OF RMSN 


006242 


001401 






BEQ 




.-CONTENTS ZERO ? 


006244 


104006 






EMT 


6 




006246 


010057 


001122 




MOV 


R0,$8DADR 


.-BASE ADDRESS FOR REGISTER RMECl 


006252 


062757 


000044 


001122 


ADD 


*RMEC1 .S8DADR 


.-ADDRESS OF RMECl FCR TYPE OUT 


006260 


012657 


001126 




MOV 


(SP)+,18DDAT 


; CHECK THE STORED CONTENTS OF RMfCI 


006264 


OOK01 






BEQ 


.♦4 


.•CONTENTS ZERO ? 


006266 


104006 






EMT 


6 




006270 


010057 


001122 




MOV 


RO.SBDADR 


.•BASE ADDRESS FOR REGIS fER RMEC2 


006274 


062737 


000046 


001122 


ADD 


#RMEC2.S8DADR 


.•ADDRESS OF RMEC2 FOR TYPEOUT 


006502 


012657 


001126 




MOV 


(SP)*.SBDDAT 


.-CHECK THE STORED CONTENTS OF RMEC2 


006506 


001401 






BEO 


.♦4 


.•CONTENTS ZERO ? 


00to510 


104006 






EMT 


6 




006312 


000004 




5$: 


SCOPE 




.•LOOP ? 



172 
173 



TEST 5 



PORT 'B' SEIZE/TIMEOUT TEST 



VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 



A, 



B. 



C. 



WRITE O'S INTO RMOA THROUGH PORT 'B'; 
HAS BEEN SEIZED. 



VERIFY THAT THE DRIVE 



006514 








TST3: 






006514 


005757 


001 300 






TST 


KY8CTL 


006520 


001406 








BEO 


2$ 


006522 


100002 








BPL 


1$ 


006524 


000157 


005074 






JMP 


EXEC 


006530 


012737 


177777 


001300 


IS: 


MOV 


*-1.KYBCTL 


006336 


012757 


006552 


001106 


2$: 


MOV 


#TEST5.SLPADR 


006344 


012757 


006552 


001110 




MOV 


#TEST5.SLP£RR 


006352 








TEST5: 




006352 


112757 


000003 


001102 




M0V8 


*3.$TSTNM 


006360 


012706 


001100 






MOV 


tSTACK.SP 


006364 


012757 


000002 


001176 




MOV 


#2..ST1MES 


006572 


012757 


000240 


1 77776 




MOV 


*<5*52.>,a*PS 


006400 


005057 


001270 






CLR 


1IME8 



READ EACH DRIVE REGISTER. EXCEPT RMCS1. THROUGH PORT 'A'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 

NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 



PERFORMING ONLY SINGLE TEST •> 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #5 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 2. ITERATIONS 



SET PRIORITY TO 5 IN CASE LOOPING 
CLEAR TIMEOUT VALUE FOR PORT B 



'ZMMRBO f<M05/?/2 DU POR TST 1 MACRO VOA.OO 
M PORT '8' SEIZE/TIMECXIT TEST 



006^04 005057 00127? 
006410 005037 &01 274 



0064 K 005037 
006420 012737 



006426 
006434 
006442 
006446 
006454 
006462 
006470 
006476 
006502 
006510 
006514 
006522 
006524 
006526 
006532 
006532 
006540 
006546 
006554 
006562 
006570 
006576 
006602 
006610 
006616 
006624 
006626 
006630 



006632 
006640 
006646 
006652 
006656 
006662 
006666 
006672 
006676 
006702 
006706 
006712 
006716 



113760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



113760 
013737 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 



001256 
00372C 



001226 
001226 
000006 
001224 
001224 
001224 
000012 
001122 
000012 
001124 
001124 



007660 

001226 
001226 
000012 
020001 
011600 
001124 
001166 
001126 
001166 
001124 



001260 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



001224 000010 

001224 001240 

000046 

000044 

000030 

000034 

000032 

000042 

000020 

000026 

000006 

000024 

000014 



J 4 
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CLR TJME8P .'CLEAR UPFER TIMEOUT TOLERANCE 
CLR TIME8M ; CLEAR LOWER TIMEOUT TOLERANCE 



SEO 0048 



; START THE TIMER 

CLR 
MOV 



TIME 

*2000. , WATCH 



.•CLEAR THE ELAPSED MME COUNTER 
.SET WATCH TO 2000. MS 



.•SEIZE THE DRIVE THROUGH PORT 8 



64$: 



65$: 



M0V8 
MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 



PORTS. RMCS2(R0) .'SELECT PORT B 
P0RT8.SE1ZPT ;STORE SEIZING PORT'S ADDRESS 
RMDA(RO) .-WRITE RMDA 

PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 



PORTA. OPPRT 
RMDS(R0).$8DDAT 
R0.$8DADR 
#RMDS.$BDADR 
SGDDAT 

$GDD>>T,S6DDAT 
64$ 

4 

5$ 



•OPPOSITE* PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

;8yPASS REST OF THE SUBTEST 



port8.rmcs2(r0) ;select port b 
p0rt8, ptnbr .move port address to location for tfpeout 
rmds(r0).$8ddat ;see if seizing port sees correct status 
#0m!pip,$8ddat .'clear dont care bits 

*«ol:pgmidpridry,$gddat .-expected status 
$gddat.$tmp1 .use good data as a nask 



$TIV1 
$8DDAT.$TMP0 
$TMP1 ,$TMPO 
$GDDAT.$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET 
8R IF THEV ARE 



.READ THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 



M0V8 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 



PORTA. RMCS2(R0) ;SELEC 
PORTA. PTNBR .MOVE PORT 



RMEC2(R0),-(SP) 
RMEC1(R0).-(SP) 
RMSN(RO),-(SP) 
RMDC(RO),-(SP) 
RMOF(R0),-(SP) 
RMER2<R0).-(SP) 
RMLA(RO).-(SP) 
RMDT(RO).-(SP) 
RMOA(RO),-(SP> 
RMMR1(R0),-(SP) 
RMER1(R0).-<SP) 



STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 



T PORT A 
ADDRESS 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



TO LOCATION FOR TYPEOUT 
RMEC2. PORT A. FOR CHECK 
RMEC1, PORT A. FOR CHECK 
RMSN. PORT A. FOR CHECK 
RMOC. PORT A. FOR CHECK 
RMOF, PORT A. FOR CHECK 
RMER2. PORT A, FOR CHECK 
RMLA, PORT A. FOR CHECK 
RMDT. PORT A. FOR CHECK 
RMDA, PORT A. FOR CHECK 
RMMRl. PORT A. FOR CHECK 
RMERl. PORT A. FOR CHECK 



.'WAIT FOR PORT B TO TIMEOUT 



7RMRB0 RM05/3/2 DU POR TST 1 MACRO V04.00 
T? PORT '8' SEIZE/TIMEOUT TEST 



006722 
006726 
006730 
00673A 
006736 
006740 
006744 
006752 
006760 
006764 
006766 
006772 



005760 
001006 
005737 
001372 
104036 
0001 37 
012737 
013737 
004537 
001270 
012637 
012637 



000012 
001260 



007344 
000340 
001256 
066324 

001272 
001274 



177776 
001270 



1$: 



2$: 



4-APR-81 



TST 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

JSR 

.WORD 

MOV 

MOV 



K 4 
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S£0 004 



RMDS(RO) 
2$ 

WATCH 
1S 
36 
4$ 

*<7*32.>,a#PS 
TIME.TIMEB 
R5,T0LER 
TLME8 

{SP)+.T]MEBP 
(SP)+,TIMEBM 



WAIT FOR THE DRIVE TO TIMEOUT 
8R WHEN TIMEOUT OCC'JRS 
CHECK WATCH 
8R IF NOT ZERO 

BYPASS TIMEOUT TIME CHECK 

SET PRIORITY TO 7 TO STOP CLOCK 

SAVE THE ELAPSED TIME FOR PORT B 

CALCULATE THE TOLFRANCE 

TIMEOUT VALUE FOR PORT B 

*25% TOLERANCE 

-25% TOLERANCE 



.•VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 



006776 


023727 


001256 


000764 




CMP 


007004 


103001 








BHIS 


007006 


104055 








EMT 










.•VERIFY 


THAT 


007010 


012737 


000240 


177776 


3$: 


MOV 










.•VERIFY 


THAT 


007016 


005037 


001254 






CLR 


007022 


012737 


000012 


001122 




MOV 


007030 


060037 


001122 






ADD 


CO 7034 


012737 


01 1600 


1 124 




MOV 


007042 


1 1 3760 


001 224 


U0001 0 




M0V8 


007050 


016037 


00001 2 


001 1 70 




MOV 


007056 


042737 


024(X)1 


001170 




BIC 


007064 


013737 


001 1 70 


0011 64 




MOV 


007072 


042737 


MAMA A A 

100100 


001164 




BIC 


007100 


1 1 3760 


001226 


000010 




M0V8 


007106 


016037 


000012 


001 1 72 




MOV 


007114 


042737 


024001 


001 1 72 




BIC 


007122 


A1 T7 Z7 


UOl ire 


OUT loo 




nuv 


007130 


042737 


lOO'fOO 


001166 




BIC 


007136 


023737 


001164 


001166 




C/1P 


007144 


001006 








BNE 


007146 


005737 


001164 






TST 


007152 


001037 








BNE 


007154 


104046 








EMT 


007156 


000137 


007342 






JMP 


007162 


013737 


001170 


001126 


66$: 


MOV 


007170 


013737 


001226 


001240 




MOV 


007176 


113760 


001226 


000010 




M0V8 


007204 


005737 


001164 






TST 


007210 


001414 








BEO 


007212 


013737 


001224 


001240 




MOV 


007220 


013737 


001172 


001126 




MOV 


007226 


113760 


001224 


000010 




M0V8 


007234 


005737 


001166 






TST 


007240 


001004 








BNE 


007242 


012737 


] 77777 


001254 


67$: 


MOV 


007250 


104022 








EMT 



TIME. #500. 
3$ 

55 



;WAS MEASURED TIME AT LEAST 500 MS? 
;8R If IT WAS 



*<5»32.>.a*PS .-RESTORE PRIORITY TO 5 



RELERR .CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RnDS,SBDADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDRESS 

*MOL!PGM!DPR!DRY.$GDDAT .-COMPARISON CONSTANT 
PORTA.RMCS2(R0) .'SELECT PORT A. 

RMDS(R0),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT 
*PIP.'WRL!0M,$TMP2 .'CLEAR DONT CARES 



$TMP2.$TMP0 
4fATA!VV.$TMP0 
PORTS. RMCS2(R0) 
RMDS(R0).$1MP3 . 
#PJP!WRL!0M.$TMP3 
$TMP3.$TMP1 
#ATAIVV,$TMP1 
ST«P0,$T«P1 
66$ 
$TMPO 
68$ 
46 
70$ 

$TMP2,$8DDAT 
P0RT8.PTNBR 
PORTS, RMCS2(R0) 
$T/VO 
67$ 

PORTA.PTNBR 
$Trv3,$6DDAT 
PORTA. RMCS2(R0) 
$TMP1 
68$ 

*-l, RELERR 

22 



COPY IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT 8. 

.'CLEAR DONT CARES 
COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
JS THE STATUS REGISTER THE SAME FROM BOTH PORTS ■> 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERftOR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT S. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PO''<T IF TEST SHOWS DRIVE MOT IN NEUTRAL 
'SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 8. 
SR IF NOT 

SET 'RELEASE ERROR' INDICATOR 



CZRMRBO DU POR TST 1 MACRO V04.00 4-APR-81 

T3 PORT 'B' SEIZE/TIMEOUT TEST 



L 4 

18:06: i?5 PAGE 10-10 



SEO OOSO 



007252 
007260 
007266 
007274 
007302 
007304 
007306 
007314 
007322 
007330 
007336 
007340 
007342 



013737 
013737 
042737 
023737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 



001 1 70 
001224 
100100 
001124 



001172 
001226 
100100 
001 12<. 



001126 
001240 
001126 
001126 



001126 
001240 
001126 
001126 



68$: MOV 


$TMP2.$BDDAT 


LOOK FOR BIT FAILURCS WHEN RMDS READ 


MOV 


POHTA.PTMBR 


CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 


BK 


*ATA. VV,$6DDAT . 


CMP 


$GDDAT,t8DDAT 


ALL BITS OK ? 


BEQ 


69$ 


BR IF OK FROM PORT A, 


EMT 


7 




69$ : MOV 


$TMP3.$BDDAT 


CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 


MOV 


PORTB.PTNBR 


■CHANGE PORT NUMBER 

•DON'T CHECK ATTN BIT OR VV BIT 


BIC 


»ATA.'VV,SBDDAT 


CMP 


$g:)Dat,sbddat 


;SEE If READ OK FROM PORT B. 


8E0 


70$ 


;8R If OK 


EMT 


7 




70$: NOP 







.-CHECK THE REGISTERS STORED THROUGH PORT A. 
;THE REGISTERS ARE STORED ON THE STACK. 



ALL REGISTERS SHOULD BE ZERO. 



007344 


015737 


001224 


001240 4$: 


MOV 


PORTA.PTNBR 


007352 


010037 


001122 




MOV 


R0,$8DADR 


007356 


062737 


000014 


001122 


ADD 


#RMER1 ,$8DADR 


007364 


012637 


001126 




MOV 


(SP)*,$BDDAT 


007370 


001401 






6E0 


.♦4 


007372 


104006 






EMT 


6 


007374 


01 0037 


001122 




MOV 


RO.SSDADR 


007400 


062737 


000024 


001122 


ADD 


#RMMR1 ,$BDADR 


007406 


012637 


001126 




MOV 


(SP) ♦,$BDDAT 


007412 


001401 






BEQ 


.♦4 


007414 


104006 






EMT 


6 


007416 


010037 


001 122 




MOV 


R0,$8DADR 


007422 


062737 


000006 


001122 


ADD 


#RMDA,$BDADR 


007430 


012637 


001126 




MOV 


(SP)*.$8DDAT 


007434 


001401 






BEO 


.♦4 


007436 


104006 






EMT 


6 


007440 


010037 


001122 




MOV 


R0,$8DADR 


007444 


062737 


000026 


001122 


ADD 


#RMDr«$6DADR 


007452 


OlCODf 


AA1 1 Oil 




rHJV 


y or/ ♦ , •oUi'A 1 


007456 


001401 






BEQ 


.♦4 


007460 


104006 






EMT 


6 


007462 


010037 


001122 




MOV 


RO.SSDADR 


007466 


062737 


000020 


001122 


ADD 


4rRnLA,SBDADR 


007474 


012637 


001126 




MOV 


(SP)*,$BDDAT 


007500 


001401 






BEO 


.♦4 


007502 


104006 






EMT 


6 


007504 


010037 


001122 




MOV 


RO.SSDADR 


007510 


062737 


C00042 


001122 


ADD 


#RM£R2.$8DADR 


007516 


012637 


001126 




MOV 


(SP)*.$BDDAT 


007522 


001401 






BEO 


.♦4 


007524 


104006 






EMT 


6 


007526 


010037 


001122 




MOV 


RO.SSDADR 


007532 


062737 


000032 


001122 


ADD 


#RMOF .SBDADR 


007540 


012637 


001126 




MOV 


(SP) ♦.S8DDAT 


007544 


001401 






BEQ 


.♦4 


007546 


104006 






EMT 


6 


007550 


010037 


001122 




MOV 


RO.SSDADR 


007554 


062737 


000034 


001122 


ADD 


/(TRMDCSBOADR 


007562 


012637 


001126 




MOV 


(SP)+,$BDDAT 


007566 


001401 






BEQ 


.♦4 



CHANGE 'PORT NUMBER' TO THE OPPOSITE PORT 
8ASE ADDRESS FOR REGISTER RMERl 
ADDRESS OF RfttRl FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMERl 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMMRl 
ADDRESS OF RMMRl FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMMRl 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMDA 
ADDRESS OF RMDA FOR TYPEOiJT 
CHECK THE STORED CONTENTS OF RMDA 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMDT 
ADDRESS OF RMDT FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDT 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMLA 
ADDRESS OF RMLA FOR TYPEOUl 
CHECK THE STORED CONTENTS OF RMLA 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMER2 
ADDRESS OF RMER2 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMER2 
CONTENTS ZERO ? 

8ASE ADDRESS FOR REGISTER RMOF 
ADDRESS OF RMOF FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMOF 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMDC 
ADDRESS OF RMDC FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDC 
CONTENTS ZERO ? 



CZHMR80 RM05/^/2 OU POR TST 1 WACRO V04.00 
T3 PORT 'B* 3E I ZE/ TIMEOUT TEST 



M 4 
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SEO 00S1 



!74 
188 
189 



007570 
00757? 
007576 
007604 
007610 
00761? 
0076K 
007620 
007626 
007632 
007634 
007636 
007642 
007650 
007654 
007656 
007660 



190 
2?3 



104006 
010037 
062737 
012637 
001401 
104006 
010037 
062737 
012637 
001401 
104006 
010037 
062737 
012637 
001401 
104006 
000004 



001122 
000030 
001126 



001122 
000044 
001 "26 



001122 
000046 
001126 



001122 



001122 



001122 



5$: 



EMT 
MOV 
ADD 
MOV 
BEQ 
EMT 
MOV 
ADD 
MOV 
BEQ 
EMT 
MOV 
ADD 
MOV 
BEQ 
EMT 
SCOPE 



RO.SSDADR 

#RMSN,SBDADR 

(SP)*.SBDDAT 

.♦4 

6 

RO.JBDADR 
*RMEC1 ,$8DADR 
(SP)*,$&DDAT 
.♦4 

6 

R0,$8DADR 

*RMEC2.S8DADR 

(SP)*.t8DDAT 

.♦4 

6 



BASE ADDRESS FOR REGISTER RMSN 
ADDRESS OF RMSN FOR TyPEOUT 
CHECK THE STORED CONTENTS OF RMSN 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RM6C1 
ADDRESS OF RMEC1 FOR TYPE OUT 
CHECK THE STORED CONTFNTS OF RMECl 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMEC2 
ADDRESS OF RMEC2 FOR TVPEOUT 
CHECK THE STORED CONTENTS OF RMfcC2 
CONTENTS ZERO ? 

LOOP ? 



TEST 4 



PORT 'A* SEIZE/RELEASE TEST 



TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMOS. 

B. SET VOLUME VALID AND CLEAR ANY ERROR 

C. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL, AND THAT NO ERRORS AfiE INDICATED BY THE 
DRIVE. 



007662 








TST4: 






007662 


005737 


001300 






rsT 


KY8CTL 


007666 


001406 








BEO 


2S 


007670 


100002 








8PL 


1$ 


007672 


000137 


003074 






JMP 


EXEC 


007676 


012737 


^77777 


001300 


1$: 


MOV 


#-1.KYBCTL 


007704 


012737 


007710 


001106 


2$: 


MOV 


#TEST4,$tPA0R 


007712 


012737 


007720 


001 no 




MOV 


«TEST4,SLPERR 


C07720 








TEST4: 






007720 


112737 


000004 


001102 




M0V8 


#4,$TST»#1 


007726 


012706 


001100 






MOV 


irSTACK,SP 


007732 


012737 


000012 


001176 




nov 


4rlO.,STINES 










.'START 


THE TIMER 


007740 


005037 


001256 






CLR 


TIME 


007744 


012737 


003720 


001250 




MOV 


#2000,, WATCH 



PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

BR IF JUST ENTERED TEST 
RETURN 6 GET NEXT TEST NLTBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #4 TO TEST NUMBER 
LOAD THE STACK POINTER 
:D0 10. ITERATIONS 



; CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 



007752 113760 001224 000010 



; SEIZE THE DRIVE AND SET VOLUME VALID 
.SEIZE THE DRIVE THROUGH PORT A 

M0V8 PORTA, RMCS2(R0) .-SELECT PORT A 



rZRMRBO RM05/5/2 DU POR TST 1 
TA PORT 'A* SEIZE/RELEASE 

007760 013737 001 22A 

007766 005060 000012 

007772 013737 001226 

010000 012760 000021 

010006 005037 001250 

010012 016037 000012 

010020 012737 000012 

010026 060037 001122 

010032 012737 000100 

0100AO 013737 001126 

0100A6 0A2737 17''677 

010054 023737 001124 

010062 OOKU 

010064 013737 001126 

010072 042737 000100 

010100 053737 001174 

010106 104013 

010110 005137 001250 

010114 000240 

010116 012760 000040 



010124 113760 001224 
010132 013737 001224 
010140 012760 000013 



010146 005037 001254 

010152 012737 000012 

010160 060037 001122 

010164 012737 011600 

010172 113760 001224 

010200 016037 000012 

010206 042737 024001 

010214 013737 001170 

010222 042737 100100 

010230 113760 001226 

010236 016037 000012 

010244 042737 024001 

010252 013737 001172 

010260 042737 100100 

010266 023737 001164 

010274 001006 

010276 005737 001164 

010302 001037 

010304 104046 

010306 000137 010472 

010312 013737 001170 

010320 013737 001226 

010326 113760 001226 

010334 005737 001164 

010340 001414 

010342 013737 001224 

010350 013737 001172 

010356 113760 001224 



MACRO V04.00 4-APR- 
TEST 



001 242 




Mm/ 

MOV 






r 1 D 
CLR 






MOV 


000000 




UAW 

MOV 






CLR 


AA1 1 OiL 

001 1 26 




MAI ' 

nOv 


UU 1 1 cc 




rlUv 






A r\ A 

ADD 


OU 1 \ CH 




MA\/ 

nUV 


AA1 1 iL/ 
OU 1 I OH 




MAW 

nOV 


Am 1 i.1 




D T r 
oi L 


AA1 1 L/ 

UU 1 1 o** 




TMO 

Lnr 






atu 


UU I 1 ' H 




MAW 

rlUV 


001174 




8JC 


001124 




BIS 






EMT 






COM 




66$: 


NOP 


AAA A 1 A 
UUUOIU 




MOV 




.•RELEASE THE 


000010 




MOVB 


AA1 5/.n 

UU 1 chU 




MOV 


nnnnnn 




MOV 




;VERIFY 


THAT 






CLR 


UU 1 1 cc 




MOV 






ADD 


UU 1 1 CH 




MOV 


nnnm n 

UUUU 1 u 




MOVB 


UU 1 1 f\} 




MOV 


f\^\^ 1 7n 

UU \ \ f\} 




BIC 


UU 1 1 o** 




MOV 


nm 1 Az, 

UU 1 ICf 




BIC 


UUvU 1 u 




MOVB 


nni 1 75 

UU life 




MOV 


nni 1 7? 

UU life 




BIC 


nni 1 

UU I 1 oo 




MOV 


nni 1 AA 
UU 1 1 oo 




BIC 


nni 1 AA 
UU 1 1 oo 




CMP 






BNE 






TST 






BNE 






EMT 






JW 


nni 1 5A 

UU 1 1 cO 


68$: 


MOV 


nni pz.n 

UU 1 chU 




MOV 


00001 0 




MOVB 






TST 






BEO 


001240 




MOV 


001126 




MOV 


000010 




MOVB 



N 4 
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PORTA, CEIZPT 
RMDS(RO) 
PORTB.OPPRT 
#21.RMCS1(R0) 
CKERR 

RMDS(RO) .$BDDAT 
#RMDS.$BDADR 
R0,$8DADR 



.•STORE SEIZING PORT'S ADDRESS 
;WRITF RMDS 

.•'OPPOSITE' PORT ADDRESS 

;SET VOLUME VALID 
.CLEAR THE 'CHECK ERROR* INDICATOR 
;GET CONTENTS OF RMDS 
.-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 



#VV.$GDDAT ;WHAT REGISTER SHOULD BE 



$8DDAT.$TMP0 
**CVV,$TMPO 
$GDDAT.$TMPO 
66$ 

$8D0AT,$TMP4 
#VV.$TMP4 
$TMP4,$GDDAT 
13 

CKERR 

#CLR,RMCS2(R0) 
DRIVE FROM PORT A 



.•MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.■COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 

.•CLEAR DRIVE 



P0RTA.RMCS2(R0) ;SELECT PORT A 

POR.'A.PTNBR ;MOV£ PORT ADDRESS TO LOCATION FOR TYPEOUT 
*13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 

THE DRIVE IS STILL IN NEUTRAL 



RELERR 

#RMDS,SBDADR 
RO^SBDADR 

/WiOL.'PGM'DPfilDRY 
PORTA. RMCS2(R0) 
R«DS(R0).$TMP2 
#PIP.'WRL!0M.$TMP2 
$TMP2.$TMP0 
#ATAIVV.$TMP0 
PORTS. RMCS2(R0) 
RMDS(R0).$TMP3 . 
*PIP fyRL!0M.$TMP3 
$TMP3.$TMP1 
*ATA!VV.$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$8DDAT 
PORFB.PTNBR 
P0RT8,RMCS2(R0) 
$TMPO 
69$ 

PORTA.PTNBR 
$TMP3.$BDDAT 
PORTA, RMCS2{R0) 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF FMDS TOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$GDDAT ; COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE "status REGISTER FROM PORT A. 

.-CLEAR DONT CARES 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SBLECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT 8. 

.-CLEAR DONT CARES 
COPY IT INTO '$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NFU^RAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 



CZRMR80 RM05/3/2 Du POR TST 1 
T4 POfiT 'A' SEIZE/RELEASE 

01036A 005737 001166 

010570 001004 

010372 012737 }77777 

010A00 10A022 

010A02 013737 001170 

010410 013737 001224 

010416 042737 100100 

010424 023737 001124 

010432 001401 

010434 104007 

010436 013737 001172 

010444 013737 001226 

010452 042737 100100 

010460 023737 001124 

010466 001401 

010470 104007 

010472 000240 

010474 005737 001254 

010500 001402 

CI 0502 000137 010756 

010506 113760 001224 

010514 013737 001224 

010522 005037 001250 

010526 016037 000012 

010534 012737 000012 

010542 060037 001122 

010546 005037 001124 

010552 013737 001126 

010560 042737 077777 

010566 023737 001124 

010574 001414 

010576 013737 001126 

010604 042737 100000 

010612 053737 001174 

010620 104017 

010622 005137 001250 

010626 000240 

010630 113760 001226 

010636 013737 001226 

010644 005037 001250 

010650 016037 000012 

01 0656 012737 000012 

010664 060037 001122 

010670 005037 001124 

010674 013737 001126 

010702 042737 077777 

010710 023737 001124 

010716 001414 

010720 013737 001126 

010726 042737 100000 

010734 053737 001174 

010742 104017 

010744 005137 001250 

010750 000240 

010752 000137 011010 



MACRO V04.00 4-APR-81 
^EST 







TST 






BNE 


001 254 


69$: 


MOV 






EMT 


001 126 


70$: 


MOV 


001240 




MOV 


001 1 26 




BiC 


001 126 




CMP 






BEO 






FMT 


001 1 26 


71$: 


MOV 


001240 




MOV 


001126 




BJC 


001126 




CMP 






BEO 






EMT 




72$: 


NOP 






TST 






BEO 






JMP 


000010 




M0V8 


001240 




MOV 






CLR 


001 1 26 




MOV 


001122 




MOV 






ADD 






CLR 


001164 




MOV 


001164 




BIC 


001164 




CMP 






BEO 


001 1 74 




MOV 


001 1 74 




BIC 


001124 




BIS 






EMT 






COM 




73$: 


NOP 


000010 




M0V8 


001240 




MOV 






CLR 


001126 




MOV 


001122 




MOV 






ADD 






CLR 


001164 




MOV 


001164 




BIC 


001164 




CMP 






BEQ 


001174 




MOV 


001 1 74 




BIC 


001124 




BIS 






EMT 






COM 




75$: 


NOP 






JMP 



;JF RELEASE 



B 5 
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SEO 0053 



$TMP1 
70$ 

#-1 ,RELERR 
22 

$TMP2,$BDDAT 

PORTA, PTNBR 

*ATA.VV,$BDDAT 

$GDDAT,$BDDAr 

71$ 

7 

$TMP3.$8DDAT 

PORTB.PTNBR 

#ATA'VV.$8DDAT 

$GDDAT,$8DDAT 

72$ 

7 



SEE IF STATUS EO ZERO FROM PORT 0. 
8R IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT QR VV BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

8R IF OK 



'0 NEUTRAL 



RELEHR ;DID DRIVE RETURN 

.♦6 ;8R IF IN NEUTRAL 

1$ ;G0 WAIT FOR DRIVE TO TIMEOUT 

PORTA, RMCS2(R0) .SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO},$BDDAT :GET CONTENTS OF RMDS 
/TRMDS.SSDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENT: TO '$TMPO' 
;SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8fi IF OK 
.COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO.$eDADR 
$GDDAT 

$8DDAT,$TMP0 
#*CATA,$TMP0 
$GDDAT,$TMPO 
73$ 

$eDDAT.$TMP4 
#ATA.$TMP4 
$TMP4,$GDDAT 
17 
CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



P0RTB,RMCS2{R0) .SELECT PORT B 

PORTS. PTNBR ;M0VF PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

WiDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO '$TMPC' 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
$GDDAT 

$eDDAT,$TMP0 
#*CATA.$TMP0 
$GDDAT,STMP0 
75$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4.$GDDAT 

17 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



2$ ;G0 CHECK FOR LOOP ON Ef^WOR 

MAND DIDN'T RELEASE THE DRIVE. WAIT FOR THE PORT TIMEOUT 



ZRMRBO DU POR TST 1 oiACRO VOA.OO 

^t* PORT 'A' SEI2E/RELEASE TEST 



C 5 
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?2^. 
238 
23Q 



010756 
010756 
01076A 
010772 
010776 
011000 
011004 
011006 
011010 



2A0 
241 



011012 
011012 
011016 
011020 
011022 
011026 
011034 
011042 
011050 
011050 
011056 
011062 



011070 
011074 



011102 
011110 
011116 
011122 
011130 
011136 
011142 



1 1 3760 
013737 
005760 
001004 
005737 
001364 
104036 
000004 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



001 226 
001226 
000012 

001260 



001300 



003074 
177777 
011050 
011050 

000005 
001100 
000012 



113760 
013737 
005060 
013737 
012760 
005037 
016037 



001226 
001226 
000012 
001224 
000021 
001250 
000012 



000010 
001 2<0 



001300 
001106 
001110 

001102 

001 1 76 



005037 001256 

012737 003720 001260 



000010 
001242 

001244 
000000 

001126 



SEO oos. 



;T0 RELEASE THE DRIVE 



1$: 



2$: 



M0V8 

MOV 

TST 

BNE 

TST 

BNE 

EMT 

SCOPE 



PORTS. RMCS2(R0) .-SELECT PORT B 

P0RT8.PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TrPEOUT 
.-WAIT FOR TIMEOUT TO RELEASE DRIVE 
;6R WHEN DRIVE RELEASED 
.•CHECK THE WATCH 
;8R IF NOT ZERO 



RMDS(RO) 
2$ 

WATCH 
1$ 
36 



;LOOP ? 



TEST 5 



PORT 'B' SEIZE/RELEASE TEST 



TEST THE OPERATION OF THE RELEASE COmm). DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT 'S* BV WRITING O'S INTO RMDS. 

B. SET VOLlflE VALID AND CLEAR ANY ERROR 

C. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFV THAT THE DRIVE 
RETURNED TO NEUTRAL. AND THAT NO ERRORS ARE IWICATED BV THE 
DRIVE. 



TST5: 



1$: 
2$: 

TESTS: 



TST KV8CTL 

BEQ 2S 

BPL 1$ 

JMP EXEC 

MOV #-l.KYBCTL 

MOV #TEST5,$LPADR 

MOV #TEST5.$LPERR 

M0V8 #5,$TSTNM 

MOV #STACK.SP 

MOV #10..STIMES 



.-START THE TIMER 

CLR 
MOV 



TIME 

#2000. ,WATCH 



.-PERFORMING ONLY SINGlE TEST ? 
-BR IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN t GET NEXT TEST HWBEK 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.SETUP ERROR LOOP ADDRESS 

.MOVE #5 TO TEST NUMBER 
.LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 



.-CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 



.SEIZE THE DRIVE AND SET VOLUME VALID 
.SEIZE THE DRIVE THROUGH PORT B 



M0V8 
MOV 

CLR 
MOV 
MOV 
CLR 
MOV 



PORTS. RMCS2(R0) ;SELECT PORT B 
PORTS. SE I ZPT ;STORP SEIZING PORT'S ADDRESS 

.WRITE RMDS 

.••OPPOSITE* PORT ADDRESS 

;SET VOLUME VALID 
.•CLEAR THE 'CHECK ERROR" INDICATOR 
;GET CONTENTS OF RMDS 



RMOS(RO) 
PORTA.OPPRT 
#2l,RMCS1v'R0) 
CKERR 

RMDS(RO).SBDDAT 



/^»1RB0 RH05/^/? DU POR TST 1 
T5 PORT 'B' SEIZE/RELEASE 

011150 0127J7 0OC012 

011156 060037 001122 

011162 012737 000100 

011170 013737 001126 

011176 0A2737 177677 

011204 023737 001124 

011212 OOUU 

C112K 013737 001126 

011222 042737 000100 

011230 053737 001174 

011236 104013 

011240 005137 001250 

011244 000240 

011246 012760 000040 



011254 113760 001226 
011262 013737 001226 
on 270 012760 000013 



011276 005037 001254 

011302 012737 000012 

011310 060037 001122 

011314 012737 011600 

011322 113760 001224 

011330 016037 000012 

011336 042737 024001 

011544 013737 001170 

011352 042737 100100 

011360 113760 001226 

011366 016037 000012 

011374 042737 024001 

011402 013737 001172 

011410 042737 100100 

011416 0257 i? 001164 

011424 001006 

011426 005737 001164 

011432 001037 

C11434 104046 

011436 000137 011622 

011442 013737 001170 

011450 013737 001226 

011456 113760 001226 

011464 005737 001164 

011470 001414 

011472 013737 001224 

011500 013737 001172 

011506 113760 001224 

011514 005737 001166 

011520 001004 

011522 012737 UJJn 

011530 104022 

011532 013737 001170 

01^540 013737 001224 



HACRO V04.00 4-APR-; 
TEST 



001122 




MOV 






ADD 


001124 




MOV 


001164 




MOV 


001^64 




BJC 


001164 




CMP 






BEQ 


001174 




MOV 


001 1 74 




BJC 


yjyj 1 1 cH 










EMT 






COM 




66$: 


NOP 


000010 




MOV 




.•RELEASE THE 






MOVB 


001240 




MOV 


000000 




MOV 




;VERJFr 


THAT 






CLR 


001122 




MOV 






ADD 


001124 




MOV 


000010 




MOVB 


001170 




MOV 


001170 




BIC 


001164 




MOV 


001164 




BIC 


000010 




MOVB 


001172 




MOV 


001172 




BIC 


001166 




MOV 


001166 




BIC 


001166 




CMP 






6NE 






TST 






BNE 






EMT 






JMP 


001126 


68$: 


MOV 


001240 




MOV 


000010 




MOVB 






TST 






BEO 


001240 




MOV 


001126 




MOV 


000010 




MOVB 






TST 






BME 


001254 


69$: 


MOV 






EMT 


001126 


70$: 


MOV 


001240 




MOV 
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#RMDS.$8DADR ;f0RM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR ;ADD RH/RM BASE ADDRESS 

*VV.$GDDAT ;WHAT REGISTER SHOULD BE 



$6D0AT,$TMP0 
♦•CVV.XTMPO 
$GDDAT,$TMPO 
66$ 

$8DDAT,$TMP4 
*VV,$TMP4 
$T,>1P4.$G0DA1 
13 

CKERR 

/rCLR,RMCS2(R0) 
DRIVE FROM PORT B 



;MOVE REGISTER CONTENTS TO 'STMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPV 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TrPEOUT 

.SET THE REGISTER COMPARE ERROR INDICATOR 

.•CLEAR DRI/E 



PORTB.RMCS2(R0) ;SELECT PORT 3 

PORTS. PTN6R ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) ;ISSUE RELEASE THROUGH PORT B 



THE DRIVE IS STILL IN NEUTRAL 



INDICATOR 
FOR TYPEOUT 



RELERR .-CLEAR THE "RELEASE ERROR 

*RMDS,$8DADR ;FO«M THE ADDRESS OF RMD5 
R0.S60ADR ;AOD THE I/O BASE ADDRESS 

«MOL!PGM!OPR!DRY.SGDDAT : COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(R0).$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIPJWRL!aM.$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 ;COPy IT INTO •$TMPO' 

#ATAiVV,$TMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0ftTB,RMCS2(R0) ."SELECT PORT B. 

RMDS{R0).$TMP3 :6ET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP.'WRL!0M.$TMPI ; CLEAR DONT CARES 



$TMP3.$TMP1 
#ATA!VV.$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$BDDAT 

PORTB.PTNBR 

PORTS, RMCS2(R0) 

$TMPO 

69$ 

PORTA, PTNBR 

$TMP3.$8DDAT 

PORTA. RMCS2(R0) 

$TMP1 

70$ 

#-1 .RELERR 

22 

$TMP2,$BD0AT 
PORTA, PTNBR 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME PROM BOTm PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEJTRAL 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EQ 0 ^ROM PORT A. 
BR IF ZERO 
SEIZING PORT IF TEST 
•BAD DATA' FOR ERROR 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 



SHOWS DRIVE 
TYPE OUT 



NOT IN NEUTRAL 



LOOK FOR BIT FAILURES 
CHANGE PORT NUMBER 



WHEN RMDS READ 



-J^MRBO RK)5/3/2 DU POR TST 1 
TS PORT 'B* SEIZE/RELEASE 



011546 
01155A 
011562 
011564 
011566 
011574 
011602 
011610 
011616 
0''1620 

01l^^^2 

011624 
011630 
011632 
011636 
011644 

111 



on 656 
011664 
CI 1672 
011676 
011702 
011710 
011716 
011724 
011726 
011734 
011742 
011750 
011752 
01 1 756 
011760 
011766 
01 1 774 
012000 
012006 
012014 
012020 
012024 
012032 
012040 
CI 2046 
012050 
012056 
012064 
012072 
012074 
012100 
012102 



012106 
012106 
012114 
012122 



042737 
023737 
001401 
■■04007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 
005737 
001402 
000137 
113760 
013737 



016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104017 
005137 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
005057 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104017 
005137 
000240 
000137 



1 1 3760 
013737 
005760 



100100 
001124 



001172 
001226 
100100 
001124 



001254 

012106 
001226 
001226 



MACRO V04.00 
TEST 

001126 
001126 



4-APR-81 18:06:25 PAGE 



5 

10-16 



SfO 0056 



001126 
001240 
001126 
001 1 26 



71$: 



72$: 



000010 
001240 



000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001224 
001224 
001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

012140 



001224 
001224 
000012 



001126" 
001122 



001164 
001164 
001164 

001174 
001 1 74 
001124 



000010 
001240 

001126 
001122 



001164 
001164 
001164 

001 1 74 
001174 
001124 



73$: 



75$: 



BIC 

CMP 

BEQ 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 

TST 

BEQ 

JMP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADO 

CLR 

MOV 

BIG 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BK 

BIS 

EMT 

COM 

NOP 

JMP 



#ATA.VV,$BDOAT 
$GDDAT,$BDDAT 

71$ 

7 

$TMP3.$BDDAT 

P0RT8,P7N8R 

4rATAIVV,$BDDAT 

$GDDAT.$BODAT 

72$ 

7 



;DON'T CHECK ATTN BIT OR VV BIT 

;ALL BITS 0< ' 

;8R IF OK ^ROff PORT A, 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 



RELERR ;DID DRIVE RETURN TO NEUTRAL ? 

.♦6 ;8R IF IN NEUTRAL 

1$ ;G0 WAIT FOR DRIVE TO TIMEOUT 

PORT8.RMC32(R0) ;SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TyPEOuT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMOS 
#R«DS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO '^TMPO' 
.-SAVE SPECIFIED BITS 
: COMPARE THE BITS 
:8R IF OK 
;COPy 'BAD DATA" 
; CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 



RO.$eDADR 
$GDDAT 

$8DDAT.$TMP0 
#*CATA.$TMP0 
$GODAT,$TMPO 
73$ 

$8DDAT,$TMP4 
*ATA.$TMP4 
$TnP4,$GDDAT 

17 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTA.RMCS2(R0) .SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TyPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT .-GET CONTENTS OF RMDS 
#Rf10S.$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO '$TMPO' 
.•SAVE SPECIFIED BITS 
; COMPARE ^hE BITS 
;BR IF OK 
;COPy 'BAD DATA' 
; CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 



KO.SSDADR 
$GDDAT 

$8DDAT,$TMP0 
#*CATA.$TMP0 
$GDDAT.$TMPO 
75$ 

$8DDAT,$TMP4 
#ATA,$TMP4 
$TMP4.$GDDAT 

17 

CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



2$ 



;G0 CHECK FOR LOOP ON ERROR 



.-IF RELEASE COMMAND DIDN'T RELEASE THE DRIVE, JAIT FOR THE PORT 
;T0 RELEASE THE DRIVE 



IMEOUT 



000010 
001240 



1$: 



M0V8 PORTA. RMCS2(R0) .-SELECT PORT A 

MOV PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
TST RMDS(RO) ;WAIT FOR TIMEOUT TO RELEASE DRIvE 



C/RMR80 RM05/3/^ DU POR TST 1 HACRO V04.00 
-5 PORT 'B' SEIZE/RELEASE TEST 



F S 
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257 
268 



012126 001 OOA 



2^6 
256 



012130 
0121 3A 
012136 
012U0 



005737 
001 36A 
10A036 
00000^ 



001260 



0121A2 
012K2 
012U6 
012150 
012152 
012156 
01216A 
012172 
012200 
012200 
012206 
012212 

012220 
012226 
012234 



012250 
012254 
012262 
C12266 
012274 
012302 
012310 
012316 
012324 
012332 
012340 
012346 
012354 
012362 
012370 
012376 
012400 
012404 
012406 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 

113760 
013737 
013737 



001 300 



003074 
Mini 
012200 
012200 

000006 
001100 
000012 

001224 
001224 
001224 



005037 
012737 
060037 
012737 
113760 
016037 
0^,2717 
013737 
042737 
113760 
016037 
042737 
013737 
0^2717 
023737 
001006 
005757 
001045 
104046 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



001300 
001106 
001110 

001102 

001176 

000010 
001240 
001242 



012242 012760 000013 000000 



001122 

001124 
000010 
001 1 70 
001 1 70 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



2t: 



BNE 
TST 
BNE 
EM' 
SCOPE 



2$ 

WATCH 

IS 

36 



;8R WHEN DRIVE RELEASED 
.•CHECK THE WATCH 
;8R IF NOT ZERO 

;LOOP ? 



•'tsr 6 



PORT 'A* NEUTRAL/RELEASE TEST 



•TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 
• 

• A. ISSUE A RELEASE COMMAND THROUGH PORT 'A' WITH THC DRIVE IN 

• NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 



TST6: 



1$: 
2$: 

TEST6: 



TST 
BEQ 
BPL 
JMP 
MOV 
MOV 
MOV 

M0V8 

MOV 

MOV 

M0V8 

MOV 

MOV 



KY8CTL 

2S 

1$ 

EXEC 

*-1.KY8CTL 

*TEST6.SLPADR 

#TEST6.$LPERR 

#6.$TSTNM 
#STACK,SP 
4r10.,STIMES 



PERFORMING ONLY SINGLF TEST ? 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUmR 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *6 TO TEST Nlf13ER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



PORTA.RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TY^EOUT 
PORTA.SEIZPT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 



.ISSUE A RELEASE COMMAND 

MOV #13,RMCS1(R0) 



ISSUE A RELEASE COMMAND 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



CLR RELERR 

MOV «RMDS,S8DADR 

ADD RO.SeOADR 

MOV #mol:pgm!dpr.'dry 

M0V8 PORTA. RMCS2<R0) 

MOV RMDS(R0),STMP2 . 

SIC #PJP:WRL!0M.$TfV»2 

MOV $TMP2.STMP0 

Bic *ata;vv.$tmpo 

M0V6 PORTS. RMCS2(R0) 

MOV RMDS(R0),$TMF3 . 

BK #PJP.'WRL!0M.$TMP3 

MOV $TMP3.STMP1 

BJC #ATA.'VV,STMP1 

CMP STMPO.tTMPl 

BNE 64$ 

TST tTMPO 

BNE 66$ 

EMT 46 



1W)ICAT0R 
FOR TVPEOUT 



CLEAR THE 'RELEASE ERROR 
FORM THE ADDRESS OF RMDS 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.-CLEAR DONT CAR^S 
COPY IT INTO 'STMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER F^OM PORT B. 

; CLEAR DONT CARES 
COPY IT INTO 'STMpr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME ^ROM BOTH POR' 
BR IF NO^ 

REGISTERS ARE THE SAME: ARE THEY ZERO ■> 
BR IF NOT 



269 
278 
279 



PORT 'A' 

012410 
012AK 
012422 
012A50 
012A36 
01 2AA2 
0124U 
012452 
012460 
012466 
012472 
012474 
012502 
012510 
012516 
012520 
012526 
012534 
012542 
012550 
012552 
012554 
012562 
012570 
012576 
012604 
012606 
012610 
012612 



DU ^OR ^ST 1 "WC^O 
NEUTRAL/RELEASE TEST 
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SECi 005o 



012614 
012614 
012620 
012622 
012624 
012630 
012636 
012644 
012652 
012652 
012660 
012664 

280 

281 012672 
012700 
012706 



000137 


012610 






JMP 


68$ 


013737 


001 1 70 


001 1 26 


64$: 


MOV 


$TMP2,$BDDAT 


013737 


001226 


001240 




MOV 


PORTS. PTNBR 


113760 


001226 


000010 




M0V8 


PORTR,RMCS2(R0) 


005737 


001164 






TST 


STMPo 


001414 








BEO 


63$ 


013737 


001224 


001240 




MOV 


PORTA, PTNBR 


013737 


00 1 1 72 


001126 




MOV 


$TMP3,$8DDAT 


1 1 3760 


001224 


000010 




M0V8 


POR TA,RMCS2(R0) 


005737 


001166 






TST 




001012 








BNE 


66$ 


012737 


1 77777 


001254 


65$: 


MOV 


#-1 .RELERR 


012760 


00001 1 


000000 




MOV 


#1 1 ,RMCS1 (RO) 


012760 


00001 3 


000000 




MOV 


*13,RMCS1 (RO) 


104030 








EMT 


30 


013737 


001 1 70 


001 126 


66$: 


MOV 


$TMP2,$BDDAT 


013737 


001224 


001240 




MOV 


PORTA, PT^^8R 


042737 


100000 


001126 




BJC 


#ATA,$BDDAT 


023737 


001124 


001 1 26 




CMP 


$GDDAT,$BDDAT 


001401 








BEQ 


67$ 


104007 








EMT 


7 


013737 


001 1 72 


001126 


67$: 


MOV 


$TMP3,$8DDAT 


013737 


001 226 


001240 




MOV 


POR T8, PTNBR 


042737 


100000 


001126 




BJC 


*ATA,$8DDAT 


023737 


001 ^24 


COl 126 








001401 








BEQ 


68$ 


104007 








EMT 


7 


000240 






68$: 


NOP 




000004 








SCOPE 





005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 

113760 
013737 
013737 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DAM FOR ERROR ME^iSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NCT IN NfUTRAl 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A, 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUIRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B- 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR If OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B, 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 8. 
BR IF OK 



.'LOOP ? 



•TEST 7 



PORT '8' NEUTRAL/RELEASE TEST 



•TEST OPERATION OF RELEASE COMMAND. DRIVE IN NEUTRAL 

• A. ISSUE A RELEASE COMMAND THROUGH PORT '8' WITH THE DRIVE IN 

• NEUTRAL; VERJFY THAT THE DRJVE REMAINS IN NEUTRAL. 



001300 



003074 
^77777 
012652 
012652 

000007 
001100 
000012 



001 300 
001106 
001110 

001102 

001 1 76 



TST7; 



1$: 
2$: 

TEST7: 



001226 000010 
001226 001240 
001226 001242 



TST 
BEO 
8PL 
JMP 
MOV 
MOV 
MOV 

M0V8 

MOV 

MOV 

M0V8 

MOV 

MOV 



KY8CTL 

2$ 

1$ 

EXEC 

#-1,KY8CTL 

#TEST7,$LPADR 

#TEST7,$LPERR 

#7.$TSTNM 
#STACK,SP 
*10..$TIMES 



PERFORMING ONLY SirJGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN ft GET NEXT TEST NUr«ER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *7 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



PORT8.RMCS2(R0) ; SELECT PORT 8 

P0RT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTS, SEIZPT ;ADDR OF PORT WHICH WILL ISSLf RELEASE 



;ft«10BO «<MOS/^/? DU POR TST 1 MACRO V04.00 4-APR-81 
PORT "B* NEUTRAL/RELEASE TEST 



?82 
301 
30? 











.•ISSUE 


A RElE> 


0127H 


012760 


COOOl 3 


000000 




MOV 










.-VERIFY 


THAT 


012722 


005037 


001 254 






CLR 


012726 


012737 


00001 2 


001122 




MOV 


01273A 


060037 


001122 






ADD 


0127AO 


012737 


011700 


001124 




MOV 


012746 


113760 


001224 


000010 




MOVR 


012754 


016037 


000012 


001170 




MOV 


012762 


042737 


024001 


001170 




BK 


012770 


013737 


001 1 70 


001164 




MOV 


012776 


042737 


100100 


001164 




SIC 


013004 


113760 


001226 


000010 




M0V8 


013012 


016037 


000012 


001 1 72 




MOV 


01 3020 


042737 


024001 


001 1 72 




SIC 


013026 


013737 


001 1 72 


001166 




MOV 


01 3034 


042737 


100100 


001166 




SIC 


013042 


023737 


001 164 


001166 




CMP 


013050 


001006 








BNE 


013052 


005737 


001164 






TST 


013056 


001045 








BNE 


013060 


104046 








EMT 


013062 


000137 


013262 






JMP 


013066 


013737 


001170 


001126 


64$: 


MOV 


013074 


013737 


001226 


001240 




MOV 


013102 


113760 


001226 


000010 




MOVB 


013110 


005737 


001164 






TST 


013114 


001414 








6EQ 


013116 


013737 


001 224 


001240 




MOV 


013124 


013737 


• 001 1 72 


001126 




MOV 


013132 


113760 


001224 


000010 




M0V8 


013140 


005737 


001166 






TST 


013144 


001012 








BNE 


013146 


012737 


M7777 


001254 


65$: 


MOV 


013154 


012760 


00001 1 


000000 




MOV 


013162 


012760 


000013 


000000 




MOV 


013170 


104030 








EMT 


013172 


013737 


001 1 70 


001126 


66$: 


MOV 


013200 


013737 


001224 


001240 




MOV 


013206 


042737 


100000 


001126 




SIC 


013214 


023737 


001124 


001126 




CMP 


013222 


001401 








BEQ 


013224 


104007 








EMT 


013226 


013737 


001 1 72 


001126 


67$: 


MOV 


013234 


013737 


001226 


001240 




MOV 


013242 


042737 


100000 


001126 




BIC 


013250 


023737 


001124 


001126 




CMP 


013256 


001401 








BEQ 


01 3260 


104007 








EMT 


013262 


000240 






68$: 


NOP 


01 3264 


000004 








SCOPE 



.••TEST 10 
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[ COMMAND 

<ri3.RMCt>l(R0) .-ISSUE A RELEASE COMMAND 
\ DRIVE IS STILL IN NEUTRAL 



StO 005V 



RELERR 

*rmds.$bdadr 
ro.ssdadr 
*mol:pgm:dpr!DRv 

POr'<TA.RMCS2(R0) 
RMDS(R0).$TMP2 , 
*PIP.'WRL!0M.$TMP2 



CLEAR THE 'RELEASE ERROR * INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPE OUT 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT ;COMP/ii^ISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A, 
; CLEAR DONT CARES 



$TMP2.$TMP0 ;COPV IT INTO •$TMPO' 
♦ATA!VV.$TMPO ;CLEAR PORT DEPENDENT BITS FkQM THE COPY 

ports. rmcs2(r0) ;select port b. 

rmds(r0),$tmp3 ;get the drive status register from port 8. 
/»pip.wrl:om.$tmp3 .-clear dont cares 



$TMP3.$TMP1 
*ATAIVV.$TMP1 
$TMP0.$TMP1 
64$ 
$TMPO 
66$ 
46 
68$ 

$TMP2,$BDDAT 
PORTS. PTNBR 
PORTS, RMCS2(R0) 
$TMPO 
65$ 

PORTA. PN6R 

$TMP3.$8DDAT 

PORTA.RMCS2(R0) 

$Trv»i 

66$ 

#-1 .RELERR 

*11.RMCS1(R0) 

#13.RMCS1(R0) 

30 

$T«P2.$8DDAT 

PORTA^PTNBR 

4rATA.$8DDAT 

$GDDAT.$6DDAT 

67$ 

7 

$t;^3.$8DDat 

PORTS.PTNBR 
#ATA.$8DDAT 
$GDDAT.$6DDAT 
68$ 

7 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THE^ ZERO ? 
BR IF NOT 

BYPASS THE hEST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEU^'RAL 
•SAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
8R IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT Nl/«£R 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



.LOOP ? 



PORT 'A' RELEASE INTERFERENCE TEST 



I 5 
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StQ 0060 



503 
327 



01334A 
013352 
013356 
01336A 
013372 
013400 
013404 
01341? 



013420 
013426 
01 3434 
013440 
013446 
013454 
013462 
013470 
013A74 
013502 
013506 
013514 
013516 



VERJ^r THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED Br THf OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT '8* Br WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT '8'. 

D. RELEASE THE DRIVE THROUGH PORT 'B' . VERIFY ^haT THE DRIVE SWITCHED 
TO PORT 'A*. 

E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE RETURAtfD 
'0 NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



013266 








TSnO: 








01 3266 


005737 


001300 






-ST 


KY8CTL 


PERFORMING ONLY SINGLE TEST ? 


CI 3272 


001406 








BEO 


2$ 


8R IF NOT 


013274 


100002 








BPL 


IS 


8R IF JUST ENTERED TEST 


013276 


000137 


003074 






JMP 


EXEC 


RETURN ft GET NEXT TEST VJMBER 


013302 


012737 


^ 77777 


001 300 


1$: 


MOV 


#-1,KY8CTL 


•SET SINGLE TEST INDICATOR 


013310 


012737 


013324 


001106 


2$: 


MOV 


#TEST10,SLPADR . 


•SETUP SCOPE LOOP ADDRESS 


013316 


012737 


013324 


001110 




nov 


#TEST10.»LPERR . 


■SETUP ERROR LOOP ADDRESS 


013324 








TEST10: 






;n0VE #10 TO TEST NlfBER 


013324 


112737 


000010 


001102 




nov8 


#10.»TSTNM 


013332 


012706 


001100 






MOV 


#STACK,SP 


;LOAD THE STACK POINTER 


013336 


012737 


000012 


001176 




MOV 


#10.,STIMES 


;;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



113760 


001224 


000010 


M0V8 


PORTA,RMCS2(R0) 


005060 


000012 




CLR 


RMDS(RO) 


012760 


00001 1 


000000 


MOV 


*11,RMCS1(R0) 


012760 


000013 


000000 


MOV 


/H3,RMCS1(R0) 


113760 


001226 


000010 


M0V8 


PORTB.RMCS2(R0) 


005060 


000012 




CLR 


fiMDS(RO) 


012760 


00001 1 


000000 


MOV 


#11.RMCS1(R0) 


012760 


000013 


000000 


MOV 


#13.RMCS1(R0) 



SELECT PORT #A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT *8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



•8' 



.SEIZE THE DRIVE THROUGH PORT B 



113760 
013737 
005060 
113760 
013737 
013757 
016037 
010037 
062737 
005037 
023737 
001403 
104004 



001226 
001226 
000012 
001224 
001224 
001224 
000012 
001122 
000012 
001124 
001124 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



Move 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 



PORTS, RMCS2(R0) .SELECT PORT 8 
PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO> .-WRITE RMDS 

PORTA. RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TfPEQuT 



PORTA.OPPRT 
RMDS(R0).$8DDAT 
RO.SBDADR 
*RMDS.$BDADR 
SGDDAT 

$6DDAT,$BDDAT 

64S 

4 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 
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SfcCi uVr 



015520 
013524 
013524 
013532 
0^3540 
0135A6 
013554 
01 3562 
013570 
013574 
013602 
013610 
013616 
013620 
013622 



013624 
CI 3632 
013640 



000137 014530 



113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



1 1 3760 
013737 
012760 



001226 
001226 
000012 
020001 
011700 
001124 
001 16o 
001126 
001166 
001124 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



64$: 



65$: 



jMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BiC 

CMP 

6EQ 

EMT 

NOP 



1$ 



;8rPASS REST OF THE SUBTEST 



PORTS, RMCS2(R0) .'SELECT PORT B 

P0RT8.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
*0M. PIP, $BDDAT .-CLEAR DONT CARE BITS 

#MOL.PGM.DPR.DRY!VV.$GDDAT ;EXPECTED STATUS 
$GDDAT,$TMP1 ;USE GOOD DATA AS A MASK 

; COMPLEMENT THE EXPECTED STATUS 
;SAVE THE ACTUAL STATUS 
.•CLEAR UNWANTED BITS 
.ARE THE EXPECTED STATUS BITS SET ? 
;8R IF THEY ARE 



$TMP1 

$8DDAT.$TMP0 
$TMP1 ,$TMPO 
$GDDAT.$TMPO 
65$ 

5 



001224 
001224 
000013 



0000^0 
001240 
000000 



;TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 

M0V8 PORTA, RMCS2(R0) .'SELECT PORT A 

MOV PORTA, PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV *13.RMCS1(R0) .'ISSUE A RELEASE COMMAND THROUGH PORT A 

.•VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 



013646 


005037 


001250 






CLR 


ckerr 


;CLEAR THE 'CHECK ERROR* INDICATOR 


013652 


016037 


000012 
000012 


001126 




MOV 


RMDS(R0).$8DDAT 


.'GET CONTENTS OF RMOS 


013660 


012737 


001122 




MOV 


#RMDS.$8DADR ;F0RM REGISTER ADDRESS OF ERROR MESSAGE 


013666 


060037 


001122 






ADD 


R0,$8DADR 


.ADD RH/RM BASE ADDRESS 


013672 


005037 


001124 






CLR 


$GDDAT 


.WHAT REGISTER SHOULD BE 


013676 


023737 


001124 


001126 




CMP 


$GDDAT.$6DDAT 


;IS THE REGISTER OK ? 


013704 


001403 








BEO 


66$ 


;8R IF OK 


013706 


104010 








EMT 


10 




013710 


005137 


001250 






COM 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


013714 


016037 


000000 


001126 


66$- 


MOV 


RMCS1(R0).$6DDAT ;GET THE CONTENTS OF RHCSI 


01 3722 


012737 


000000 


001122 




MOV 


/TRMCSI .$aDADR 


.FORM ADDRESS OF REGISTER 


013730 


060037 


001122 






ADD 


R0.$8DADR 


.ADDRESS BASE 
;IS 'MCPE' SET ? 
;8R IF NOT 


013754 


032737 


020000 


001126 




BIT 


*MCPE.$80DAT 


013742 


001404 








BEQ 


67$ 


013744 


104011 








EMT 


11 


.CLEAR 'MCPE* 


013746 


012760 


040000 


000000 




MOV 


/TTRE.RMCSKRO) 


013754 


000240 






67$: 


NOP 






013756 


005737 


001250 






TST 


CKERR 


.-WAS RMDS NON ZERO ? 


013762 


00K02 








BEO 


.♦6 


.CONTENTS OF RMDS SEEN BY PORT A 


013764 


000137 


014530 






JMP 


1$ 


.•DRIVE IN NEUTRAL. BYPASS REST OF TEST 



.■RELEASE THE DRIVE FROM PORT 8 

013770 113760 001226 000010 M0V8 PORT8,RMCS2(R0) .-SELECT PORT B 

013776 013737 001226 001240 MOV P0RT8.PTN8R .'MOVE PORT ADDRESS TO LOCATION ^OR TYPEOUT 

014004 012760 000013 000000 MOV #13.RMCS1 (RO) ; ISSUE RELEASE THROUGH PORT B 

.•VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT 8 

014012 005037 001254 CLR RELERR .CLEAR 'RELEASE ERROR' INDICATOR 

014016 0127-37 111700 001124 MOV #ATA!MOL .P6M.DPR!DRY! VV.$GDDAT .-COMPARISON CONSTANT 

014024 012737 000012 001122 MOV *RMDS.$BDADR .-REGISTER ADDRESS INCREMENT 

014032 060037 001122 ADD R0.$aDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 



IZRMRBO RM05/3/2 DU POR TST 1 flACRO V04.00 
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0U056 
OUOAA 
0U052 
0U060 
0H066 
0U074 
01A102 
01A10A 
0H110 
0K112 
0U1U 
0K122 
OKI 30 
OKI 36 
014140 
014142 



4-APR-8 i 



C14144 
014152 
014160 



014166 
014172 
014200 
014204 
014212 
014220 
014226 
014234 
014242 
014250 
014256 
014264 
014272 
014300 
014306 
014314 
C14316 
014322 
014324 
014326 
014332 
014540 
014346 
014354 
014360 
014362 
014370 
014376 
014404 
014410 
014412 
014420 



1 1 3760 


001224 


000010 




nOva 


013737 


001224 


001240 




nOV 


016037 


000012 


001 164 




MOV 


1 1 3760 


001226 


000010 




nOVb 


013737 


001 226 


001240 




nOv 


016037 


000012 


001 1 26 




MOv 


001 404 








BEO 


005737 


001164 






T C T 

TST 


001401 








BEQ 


104031 








rMT 

ErlT 


013737 


001 164 


001 1 26 


68S: 


MOv 


013737 


001224 


001240 




MOV 


023737 


001124 


001126 




CMP 


001401 








BEQ 


104027 








EMT 


000240 






69$: 


NOP 








.•RELEASE THE 


113760 


001224 


000010 




M0V8 


013737 


001224 


001240 




MOV 


012760 


000013 


000000 




MOV 



K -3 
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PORTA, RMCS2(R0) .SELECT PORT A 

PORTA. PTNBR :MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
RMDS(RO).$TMPO ;READ STATUS REGISTER FROM PORT A 
PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
RMDS{RO).$BDDAT .-DRIVE STATUS FROM PORT 8 

;8R IF STATUS FROM PORT B ZERO 
;IS STATUS FROM PORT A ZERO ? 
;8R IF ZERO 



68$ 
$TMPO 
68$ 

31 

$TMPO,$BDDAT 

PORT A, PTNBR 

$GDDAT,$BDDAT 

69$ 

27 



.•CHECK STATUS FROM PORT A 
.-CHANGE PORT ADDRESS FOR TVPEOUT 
; COMPARE WITH CONSTANT 
;8R IF OK 



PORTA. RMCS2(R0) ; SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
#13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT A 



;VERIFV THAT THE DRIVE IS STJLL IN NEUTRAL 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



014526 
001170 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

177777 
000011 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001172 
001 1 72 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 
000000 



70$: 



71$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIG 

MOV 

SIC 

M0V8 

MOV 

BK 

MOV 

BJC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEQ 

MOV 

MOV 

M0V8 

TST 

BNE 

MOV 

MOV 



RELERR .'CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RM0S,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

#MOL.'PGM!DPRIDRY!VV,$GPDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .SELECT PORT A. 

RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PJPJWRL!aM,$TMP2 ; CLEAR DONT CARES 

$TMP2.$TMP0 .-COPY IT INTO •$T«PO' 

#ATA;vV.$TMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRJVE STATUS REGISTER FROM PORT B. 
#PJP!WRL!0M,$TMP3 ; CLEAR DONT CARES 



$TMP3.$TMP1 
#ATA!VV,$TMP1 
$TMP0,$TMP1 
70$ 
$TMPO 
72$ 
46 
74$ 

$TMP2.$8DDAT 

PORTS, PTNBR 

P0RTS,RMCS2{R0) 

$TMPO 

71$ 

PORTA, PTNBR 

$TMP3,$6D0AT 

PORTA. RMCS2(R0) 

$TMP1 

72$ 

#-1, RELERR 
#11,RMCS1(R0) 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
JS THE STATUS REGISTER THE SAME FROM BOTH PORTS ^ 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

8YPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
SR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
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SFO 0(y ' 



328 
3A7 
348 



0K426 


012760 


00001 3 


000000 




MOV 


*i5,RMCSl (RO) 


OKA 34 


104026 








EnT 


26 


014456 


013737 


001170 


001126 


72i: 


MOV 




014444 


013737 


001224 


001240 




MOV 


PORTA, PTN8R 


014452 


04273'' 


100000 


001126 




BIG 


*ATA,»BDDAT 


014460 


023737 


001124 


001126 




CMP 


SGDDAT ,roDDAT 


014466 


001401 








BEQ 


r5i 


014470 


104007 








EMT 


7 


014472 


013737 


001 1 72 


001 126 


7^J; 


MOV 


» 1 Mr J , »oUt)A 1 


014500 


013737 


001226 


001240 




MOV 


PUR lo,rTNBK 


014506 


042737 


1 00000 


0011 26 




al C 




014514 


\lc5r5f 




UU 1 1 CO 








014522 


001401 








BEQ 


741 


014524 


104007 








EMT 


7 


014526 


000240 






74$: 


NOP 




014530 


000004 






1$: 


SCOPE 





PAGE 



014532 

014532 005737 

014556 001406 

014540 100002 

014542 000157 

014546 012757 

014554 012757 

014562 012757 
014570 

01457HDR1CZRMR8SE0 



001500 



005074 
1 77777 
014570 
014570 



001500 
001106 
001110 



;RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMOS REAP 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
QR IF OK 



.-LOOP ? 



•»»»»*»»»*»»•»**•»*#»**♦**•**»»**•*****•»»♦»••♦•*•••**•*•**••••• 

iTEST n PORT 'B' RELEASE INTERFERENCE TEST 

•VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 

* 

» 

* 

* 
* 
* 
* 

* 



IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT '8'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A*. 

t/. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE SWITCHED 
TO PORT '8'. 

E. RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



tSTIl 



1$: 
2$: 



TEST11 
00010000 



TST 
BEQ 
8PL 
JMP 
MOV 
MOV 
MOV 



KY8CTL 
2$ 
IS 

EXEC 

#-1.KYBCTL 

#TEST11,$LPADR 

#TEST11,$LPERR 

810728 



PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

8R IF JUST ENTERED TEST 
RETURN e GET NEXT TEST Nlf«ER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 



PDP10 411 



CZRMR80 RM05/3/2 DU PGR TST 1 MACR 

SEQ 0001 



1 
2 
3 
4 
5 
6 
7 
8 
9 
'0 

n 



.REM 



M 5 



12 

U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 

35 
36 
37 
38 
39 
AO 
A1 
«2 
43 
44 



PRODUCT CODE 
PRODUCT NAWE 
PRODUCT DA"E 
MAINTAINER: 
AUTHOR: 



IDENTIFICATION 
AC-F9368-MC 
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NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
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THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
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2 1 . A8STRAC F 

3 

5 THE RM05/3/2 DUAL PORT LOGIC TEST PERFORMS A SERJES Of 

i TESTS WHICH VERirr THAT THE RM05/3/2 DUAL PORT LOGIC 

7 IS FUNCTIONING PROPERLY. ONLV THE CONTROL LOGIC IS TESTED 

8 BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 

9 IS NOT TESTED BY THIS PROGRAM. 

]? BOTH PORTS OF THE DRIVE ARE CABI ED TO THE SAME MASSOUS BY 

15 A SPECIAL ADAPTER CABLE. THI' i»RAN6EMENT AL' OWS THE DUAL 

13 PORT LOGIC TO BE TESTED FROM ONE 1, RHll OR PH70. 

15 THIS PROGRAM IS THE FIRST PAn. OF .HE DUAL PORT OP'ION 

lb LOGIC TEST. THE SECOND PART OF THC TEST PERFORMS 

17 MANUAL INTERVENTION TESTS. 

18 
79 
20 

21 2. REQUIREMENTS 

22 

24 2.1 EQUIPMENT 

26 PDP-n PROCESSOR 

27 20K MEMORY 

28 KWII-L OR KWll-P CLOCK 

29 TERMINAL 

30 RHil OR RH70 

31 1 - DISK DRIVE (RM05, RM03 OR RM02) 

3^ RM DUAL PORT TEST CABLE (P/N: 7010507-02) 

3A 2.2 PREREQUISITE PROGRAMS 

36 RM05/3/2 DISKLESS TEST, PART 1 I 2 

38 RM05/3/2 FUNCTIONAL TEST. PART 1, 2 i 3 

40 THE PRELIMINARY PROGRAMS MUST BE RUN TWICF: ONCE FROM 

41 EACH PORT (A & B^ 

43 2.3 OTHER PROGRAMS 

45 A. THE OPERATION OF THE "PORT SELECT" SWITCH IS TESTED 

46 BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 
47 

48 B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 

49 TESTED BY THE RM05/3/2 PERFORMANCE EXERCISER PROGRAM. 
50 

51 

53 3. LOADING PROCEDURES 

55 THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER TAPE 

56 LOADER OR IT MAY BE LOADED FROM THE APPROPIATE MEDIA 

57 USING THE ASSOCIATED 'XXDP* LOADER. THE PROGRAM KAY NOT 
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58 BE INCLUDED JN AN 'XXDP' CHAJN. 

«) 
61 

62 {.. STARTING PROCEDURES 

65 

6A 

6S C STARTING ADDRESSES 
66 

67 A. THE NOr-«nAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 

68 200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 

59 TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 
^0 TESTED. 

II B. . THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 

1} USE THE CURRENT DRIVE ADDRESS. 

74 

75 C. THE PROGRAM CAN BE STARTED AT LOCATION 210 (8) TO ALLOW THE 

76 ADDRESS OF THE RM11 OR RH70 TO BE CHANGED. 

78 4.2 OPERATOR ACTION 

79 

80 A. CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 

81 e BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

82 B. LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
85 THE MASS8US USED FOR TESTING. 

84 C. SWITCH THE 'PORT SELECT' SWITCH ON THE DRIVE TO BE 

85 TESTED TO THE 'A/B' POSITION. CYCLE THE D-^IVE UP. 

8^ D. LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 

87 INTO THE SWITCH REGISTER (OR THE 'SOFTWARE* SWITCH REGISTER, 

88 REFER TO SECTION 5.2). 

89 E. PRESS START. 

90 F. ENTER THE DRIVE NUMBER. 

91 G. ENTER THE NUMBER OF THE TEST TO BE RUN. ('CARRIAGE RETURN' 

92 OR '0' WILL RUN ALL TESTS.) 

93 H. THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
9^ FROM LOCATION 204. 

96 
97 

98 5. OPERATING PROCEDURES 

99 

100 

lOJ 5.1 'SOFTWARE* SWITCH REGISTER 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 

104 THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 

105 NOT PRESENT AND WILL USE A *SOFTWARE* SWITCH REGISTER. THE 

106 'SOFTWARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 

107 SETTINGS OF THE 'SOFTWARE* SWITCHES ARE CONTROLLED THRa»GH A KEYBOARD 

108 ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G'. THE PROGRAM WILL 

109 RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 

110 IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 

111 'SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 

112 TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

IH 'SUIR = NNNNNN NEW =' 
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115 

116 EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 

117 IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' AND 

118 'CONTROL U" FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 

119 DURING SWITCH ENTRY. 
120 

121 ON PROCESSORS WITH HARDWARE SWITCH REGISTERS. THE 'SOFTWARE' SWITCH 

122 REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 

123 ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 

124 AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 
125 

126 5.2 OPERATIONAL SWITCH SETTINGS 

127 

128 WITH ALL SWITCHES SET TO 7ER0, THE PROGRAM WILL TYPE 

129 ALL ERRORS AND CONTINUE TESTING. 

13? THF SWITCH SETTINGS ARE: 
132 

133 SW<15>=1 HALT ON ERROR 

15A SW<U>=1 LOOP ON TEST 

135 SW<13>=1 INHIBIT ERROR TYPEOUTS 

136 SW<11>=1 INHIBIT TEST ITERATIONS 

137 SW<10>=1 RING TTY BELL ON ERROR 

138 SW<09>=1 LOOP ON ERROR 
139 

KG 5.3 TEST SELECTION 

]tl INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 

K? TEST NUMBER;' MESSAGE. ANY VALID TEST NLMBER CAN BE 

K4 ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 

145 RETURN (CR). THE LOOP ON TEST SWITCH. SW<14>. MUST BE SET 

146 TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST. 
147 

148 TO RUN ALL TESTS IN SEQUENCE. ENTER EITHER A '0' FOl LOWED 

149 BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 

150 PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 

152 THE 'RUBOUT KEY' (RO) CAN BE USED TO DELETE THE LAST 

153 CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 

154 WILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 

155 BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 

156 TYPED AND WILL BE SEPARATED BY 'V FROM THE CHARACTERS 

157 ENTERED BY THE OPERATOR. 
158 

159 THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 

160 'CONTROL U' . 
161 

162 5.4 TEST CABLE CONNECTION 

163 

164 TO TEST THE RM05/3/2 DUAL PORT OPTION WITH THIS PROGRAM. 

165 A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 

166 P/N: 7010507-02). THE TEST CABLE CONNECTS MASS8US A & MASSBUS 

167 B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 

168 THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 
169 

170 WITH THE DRIVE CABLE CONNECTED TO THE RM05/3/2 UNDER TEST. 

171 THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
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172 OF THE DRIVE WILL RESPOND TO A DIFFERENT MASS8US ADDRESS. 

173 THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 

174 ADDRESS PLUG. 

17I THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 

177 PORTS. (ONE PORT WILL HAVE THE ADDRESS OF ThF DRIVE; THE 

178 OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE) - 
179 

180 •••»•«••*••••••••»•••••*•*•••••**••***•*••**••*•****••••••• 

181 • ANY OTHE« DRIVE ON THE MASS8US WHICH HAS AN ADDRESS • 

182 ♦ IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE • 
133 * POWERED DOWN. ♦ 
184 

lH THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 

187 DEPEND ON WHICH PROCESSOR, RHn/RH70 IS TO TEST THE DRIVE. 

188 IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A, 

189 CONNECT THE MASSBUS CABLE FROM THE RH11/RH70 TO J 3 OF THE 

190 RM05/3/2 BACK PANEL, THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 

191 FROM J2 to J7 OF THE BACK PANEL AND TEf<«INATE THE PORT '8" AT J6- 

192 

193 WHEN THE DUAL PORT TEST CABLE IS COft^ECTED, THE ATTENTION 

194 BITS FOR PORTS A 4 B ARE ASSERTED IN THE SAME BIT POSITION 

195 WHEN 'RMAS' (ATTENTION SlfflARY REGISTER) IS READ. THE ATTENTION 

196 BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE 

197 THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 

198 INCLUSIVE 'OR' OF THE PORT A t PORT B ATTENTION BITS. BECAUSE 

199 OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 

200 'RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 

201 OF THE SELECTED PORTS'S ATTENTION BIT. 

202 
205 
204 

205 6. ERRORS 

206 

-»Q7 

208 WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE iS 

209 CALLED AND IF SW<13> IS NO' SET, THE ERROR MESSAGE PERTAINING 

210 TO THE ERROR WILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 

211 THE FOLLOWING: 

212 

213 A. AN ERROR MESSAGE 

214 B. A DATA HEADER LINE 

215 C. A DATA LINE CONTAINING: 

216 1. THE TEST NUMBER 

217 2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 

218 CALL WAS MADE 

219 3. CONTENTS Of 'HE APPROPIATE REGISTERS 
220 

221 
222 
223 

224 7, MISCELLANEOUS 

225 

226 

227 7.1 RESTRICTIONS 

228 
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229 
230 
?31 
232 

233 ^.2 
23^ 
235 
236 
237 
238 
239 

2^0 _ _ 

2A1 7.3 
2A2 
243 
2<.4 

246 7. A 

247 
248 
249 
250 

252 A. 

253 
254 

2" 

256 7.5 
257 
258 
259 
260 

262 7.6 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 

27^ 8. 

274 

276 8. 1 

277 
278 
279 
280 
281 
282 
283 
284 
285 



TU RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KUH-P 
OR A KWn-L CLOCK. ADD! TJONAL LY, THE DRIVE UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 

LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION. AND DOES NOT TEST THE UNLOAD COWAND 
OR THE 0PE:<ATI0N OF THE PORT SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 i 2.3) 



EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS, 
SUBSEQUENT PASSES TAKE 2 MINUTES 25 SECONDS. 

REQUIRED TESTS 



PASS 2 AND 



IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE, THE 
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
TESTS ARE RUN: 

TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
EACH PORT. 

DISK SURFACE USAGE 

THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
DRIVE MUST BE CYCLED UP AND BE ON LINE FOR THE DIAGNOSTIC TO BE 
RUN. 

LOOP ON ERROR OPTION 

IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
BECAUSE THE PROGRAM MUST RESET THE RM05/3/2 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR SW<09> IS PERFORMED 
AT THE END Of THE TEST - NOT AT THE POINT WHERE THE ERROR 
UAS DETECTED. 



TEST DESCRIPTIONS 



METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 

THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
(•ATA* ft 'VV') AND VERIFIES THAT CORRECT STATUS IS READ 
THROUGH BOTH PORTS. (THE CORRECT STATUS IS 'MOL'. 'PGM'. 
'DPR*, t 'DRV.) IF NEITHER PORT SEES ALL ZEROS FROM 
RMDS. THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND THAT ANY BIT DE5CREPANCY BETWEEN PORTS INDICATES A 
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?86 FAILURF IN THE PATH FOR THAT BIT. 

a87 

?88 ADDlTJOAiALLY. THE PORT REQUEST FLOPS (ROA, ROB) Of THE 

289 P1AINTEMANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 

290 THE DRIVE IS IN NEUTRAL. 
29^ 

292 8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SH/ED 
•593 

294 THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SFIZFD BY 

295 CHECKING THE DRIVE STATUS REGISTER (RMOS) THROUGH 

296 THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 

297 SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 
>98 ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E., 

299 CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 

300 THE OPPOSITE PORT), THE PR06RA^ CONCLUDES THAT THE DRIVE 

301 HAS BEEN SEIZED BY THE SPECIF HD PORT. 
502 

30? 8.3 METHOD USED TO VERIFY PORT REQUESTS 
304 

305 THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 

306 TESTED TO DETERMINE IF : 

307 . A DRIVE IS IN NEUTRAL, I .E. , RQA AND ROB ARE ZERO; 

308 . A DRIVE IS SEIZED, I.E., RQA Oft ROB IS ONE; 

309 . A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED TO THE 

310 ALTERNATE PORT, I.E.. RQA AND RQ8 ARE ONE. 
311 

312 
31? 

3K TEST 1 NEUTRAL ACCESS TEST 

316 VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 

318 A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 

319 DRIVE IS A DUAL PORT RM05/3/2, THAT THE DRIVE IS OML INE <R«DS HAS 

320 'MOL'. 'PGM*. 'DPR', t 'DRY* BITS SET). AND THE THE DRIVE SERIAL 

321 NUMBER READ THROUGH BOTH PORTS IS THE SAME. 

323 B. THE TEST IS REPEATED THROUGH BOTH PORTS. 
324 

325 

326 TEST 2 PORT 'A' SEIZE/TIMEOUT TEST 
327 

328 VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 

329 ir CAN BE RELEASED BY THE ONE SECOND TIMER. 

331 A. WRITE O'S INTO RMDA THROUGH PORT 'A*; VERIFY THAT THE DRIVE 

332 HAS BEEN SEIZED. 

334 B. READ EACH DRIVE REGISTER. EXCEPT RMCSl. THROUGH PORT '8'; 

335 VERIFY THAT O'S ARE READ FROM EACH REGISTER. 
336 

337 C. WAIT FOR THfc PORT TIMEOUT TO RELEASE THE DRIVE. 

338 MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

339 VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 

340 NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 
341 

342 
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TEST 3 PORT 'Q' SEJZE/TIMECUT TEST 

t THAT THE DRIVE CAN BE SEIZED BY WRITING A REWTE REGISTER AND THAT 
IT CAN BE RELEASED BV THE ONE SECOND TIMER. 

WRITE O'S INTO RMOA THROUGH PORT '8'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

READ EACH DRIVE REGISTER, EXCEPT RMCS1, THROUGH PORT 'A'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS, 
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348 
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350 




551 


B. 


552 




353 




554 


C. 


555 




556 




557 




558 




559 
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562 


TEST 


563 




364 


A. 


365 




566 


B. 


567 




368 


C. 


569 




570 




571 




572 




575 


TEST 


57^ 




575 


TEST 


576 




577 


A. 


578 
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B. 
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C. 
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TEST 
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TEST 
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A. 
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• TEST 


595 




596 


TEST 


597 




598 


A. 


599 





SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
SET VOLUME VALID AND CLEAR ANY ERROR 

ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL. AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 



SET VOLUME VALID AND CLEAR ANY ERROR 

ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVc. 



NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 



ISSUE A RELEASE COMMAND THROUGH PORT .'B' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRiVE REMAINS IN NEUTRAL. 
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TEST 
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A. 
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8. 


428 




429 


C. 


430 




43l 


D. 


432 
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• E. 
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TEST 
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450 




451 


D. 


452 




453 


E. 
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455 




456 





IS SEIZED BV THE OTHER PORT. 

SEIZE THE DRIVE THROUGH PORT '8' BV WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A*. 

VERIFY THAT THE DRIVE IS STILL SEIZED BV PORT '8'. 

RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT 'A*. 

RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 11 PORT "8' RELEASE INTERFERENCE TEST 

1 THAT A COMMAND ISSUED BY ONE PORT 15 NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

ISSUE A RELEASE COMMAND THROUGH PORT 'S'. 

VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A'. 

RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE SWITCHED 
TO PORT 'a'. 

RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 12 PORT 'A' RELEASE W/ERRORS TEST 

i THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 

SEIZE THE DRIVE THROUGH PORT "A* BY WRITING O'S INTO RMDS. 

WRITE rs INTO RMER1 THROUGH PORT 'A*. 

. . JE A RELEASE COMMAND THROUGH PORT "A*. VERIFY THAT ^he 'GO* 
•i.T HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
-AT RMER1 HAS NOT BEEN CLEARED. 

a£AR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT "A*. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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C57 TEST 13 PORT '8' RELEASE W/ERRORS TEST 

^59 VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 

460 BITS ARE SET IN THE DRIVE. 

462 A. SEIZE THE DRIVE THROUGH PORT '8' BV WRITING O'S INTO RMDS. 

463 

464 B. WRITE VS INTO RMERl THROUGH PORT '8'. 

465 

466 C. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE 'GO' 

467 BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 

468 1HAT RMERl HAS NOT BEEN CLEARED. 
469 

470 D. CLEAR RMERl BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT '8'. 

471 

472 E. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 

473 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
474 

475 

476 TEST 14 PORT 'A* SEIZE AND CLEAR TEST 

477 

478 VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

479 PORT TO RELEASE THE DRIVE. 
480 

481 A. SEJZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'A*. 

482 VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

483 

484 B. ISSUE A DRIVE CLEAR THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 

485 DOES NOT RETURN TO NEUTRAL. 
486 

487 C. ISSUE A MASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 

488 THE DRIVE DOES NOT RETURN TO NEUTRAL. 

489 

490 D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

491 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
492 

493 

494 TEST 15 PORT 'B' SEIZE AND CLEAR TEST 

495 

496 VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

497 PORT TO RELEASE THE DRIVE. 

498 

499 A, SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT '8'. 

500 VERIFY THAT THE DRIVE HAS BEEN SEIZED. 
501 

502 B. ISSUE A DRIVE CLEAR THROUGH PORT '8' AND VERIFY THAT THE DRIVE 

503 DOES NOT RETURN TO NEUTRAL. 

504 

505 C. ISSUE A MASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 

506 THE DRIVE DOES NOT RETURN TO NEUTRAL. 
507 

508 D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE 

509 ' RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
510 

511 

512 TEST 16 SEIZE 'A' BY RMCSl TEST 

513 
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5K VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 

515 If THE DRIVE IS IN NEUTRAL. 

5'6 

517 A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'A'; VERIFY THAT 

518 THE DRIVE IS SEIZED. 
519 

520 B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'; VERIFY THAT THE DRIVE 

521 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

522 
523 

52A TEST 17 SEIZE '8' BY RMCS1 TEST 

526 VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 

527 If THE DRIVE IS IN NEUTRAL. 
528 

529 A. READ THE CONTROL REGISTER (RMCS1) THROUGH fJORT '8'; VERIFY THAT 

530 THE DRIVE IS SEIZED. 
531 

532 B. ISSUE A RELEASE COMMAND THROUGH PORT '8'; VERIFY THAT THE DRIVE 

533 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
53A 

535 

536 TEST 20 PORT 'A' INHIBIT SEIZE BY RMCSl TEST 

537 

538 VERIFY THAT READING THE CONTROL REGISTER (RMCSl) DOES NOT SET 'PORT 

539 REQUEST' IF THE DRIVE IS SEIZED. 

5A0 

5A1 A. SEIZE THE DRIVE THROUGH PORT '8' BY READING RMCSl. VERIFY THAf 

5A2 THE DRIVE HAS BEEN SEIZED. 

543 

544 8. READ THE CONTROL REGISTER FROM PORT 'A' VERIFY THAT 'DVA* IS NOT 

54i SET. 

5A6 

5A7 C. ISSUE A RELEASE COMMAND THROUGH PORT '8*. VERIFY THAT THE DRIVE 

5A8 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

549 
550 

551 TEST 21 PORT '8' INHIBIT SEIZE BY RMCSl TEST 

552 

553 VERIFY THAT READING THE CONTROL REGISTER (RMCSl) DOES NOT SET 'PORT 

554 REQUEST* IF THE DRIVE IS SEIZED. 

555 

556 A. SEIZE THE DRIVE THROUGH PORT 'A* BY READING RMCSl. VERIFY THAT 

557 THE DRIVE HAS BEEN SEIZED. 
558 

559 8. READ THE CONTROL REGISTER FROM PORT 'B*. VERIFY THAT 'DVA' IS NOT 

560 SET. 
561 

562 C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

563 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
564 

565 

566 TEST 22 SEIZE BY RMAS TEST 

567 

568 TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 

569 (RMAS) SEIZES THE DRIVE. VERIFY THAT 'REQUEST IS SET FOR THE OTHER 

570 PORT. 
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572 A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY ^HAT THE DRIVE 

573 , IS SEIZED. 
574 

575 B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 

57tj DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 

577 OPPOSITE PORT AND VERIFY THAT thE DRIVE IS IN NEUTRAL. 

578 
579 

580 TEST 23 INHIBIT SEIZE BY RMAS TEST 

581 

532 VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A 'ZERO' IS WRITTEN INTO 

583 THE DRIVE'S ATTENTION BIT, 

58A 

585 A. SELECT A DRIVE NOT BEING TESTED A/.D WRITE ;VLL BITS, EXCEPT THE 

586 BIT OF THE DRIVE BEING TESTED, NTO THE ATTENTION REGISTER. 
587 

588 B. VERIFY THAT THE DRIVE IS STILL NEUTRAL. 

589 

590 

591 TEST 24 SET PORT 'A* REQUEST TEST 

592 

593 VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 

59A DRIVE IS SEIZED BY THE OTHER PORT. 

595 

596 A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

597 

598 B. WRITE O'S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 

599 ' SEIZED BY PORT 'B'. 
600 

601 C. ISSUE A RELEASE COMMAND FROM PORT '8' AND VERIFY THAT THE DRIVE 

602 SWITCHED TO PORT 'A'. VERIFY THAT THE ATTENTION BIT !S SET FOR 

603 PORT 'A' AND IS NOT SET FOR PORT '8'. 
604 

605 D. ISSUE A RELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 

606 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

607 
608 

609 TEST 25 SET PORT '8' REQUEST TEST 

610 

611 VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 

612 DRIVE IS SEIZED BY THE OTHER PORT. 
613 

614 A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

615 

616 B. WRITE O'S INTO RMOS FROM PORT '8'; VERIFY THAT THE DRIVE IS STILL 

617 SEIZED BY PORT 'A*. 

619 C. ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY THAT THE DRIVE 

620 SWITCHED TO PORT '8'. VERIFY THAT THE ATTENTION BIT IS SET FOR 

621 PORT '8' AND IS NOT SET FOR PORT 'A'. 

623 D. ISSUE A RELEASE COMMAND THROUGH PORT '8' AND VERIFY 'HAT THE DRIVE 

624 RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
625 

627 TEST 26 TEST RESET ATTENTION 'A* BY DRIVE CLEAR 
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SEQ OOU 



628 

629 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 

630 SEIZING PORT. 

til A. SET EACH PORT '$ ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 

633 SET. 

63<; 

635 B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

637 C. ISSUE A DRIVc CLEAR COMMAND. 

638 

639 D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE ATTENTION 

640 BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTIOfJ BIT FOR PORT 
6A1 '8' IS STILL SET. 

642 
643 

644 TEST 27 TEST RESET ATTENTION 'B' BY DRIVF CLEAR 

645 

646 VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLV THE ATTENTION BIT OF THE 

647 SEIZING PORT. 

649 A. SET EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 

650 SET. 

652 B. SEIZE THE DRIVE THROUGH PORT '8' Bv WRITING O'S INTO RMDS. 

653 

654 C. ISSUE A DRIVE CLEAR COMMAND. 

655 

656 D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE ATTENTION 

657 

658 BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 

659 'A' IS STILL SET. 
660 

662 TEST 30 RESET ATTENTION 'A' BY GO TEST 

663 

664 VERIFY THAT THE '60 BIT CLEARS ONLY THE ATTENTION BIT OF THE 

665 SEIZING PORT. 
666 

667 A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 

668 ATTENTION BITS ARE SET. 

669 

670 B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S 

671 INTO RMDS. 
672 

673 C. ISSUE A NOP COMMAND. 

674 

675 D. RELEASE THE FRIVE THROUGH PORT 'A'. VERIFY THAT THE 

676 ATTENTION BIT FOR PORT 'A' IS RESET. AND THE 

677 ATTENTION BIT FOR PORT 'B' IS STIL SET. 
678 

679 

680 TEST 31 RESET ATTENTION '8' BY GO TEST 

681 

682 VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 

683 SEIZING PORT. 
684 
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6§5 A. SET EACH PORT'S ATTENTION BIT. AND VERIFY THAT BOTH 

686 ATTENTION BITS ARE SET. 

687 

688 B. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S 

689 INTO RMDS. 
690 

691 C. ISSUE A NOP COMMAND. 
692 

693 D. RELEASE THE FRIVE THROUGH PORT '8'. VERIFY THAT THE 

69A ATTENTION 3IT FOR PORT '8' IS RESET. AND THE 

695 ATTENTION BIT FOR PORT 'A* IS STIL SET. 

696 

697 

698 TEST 32 TEST RESET ATTENTION 'A' & '8' BY MASS8US INIT 
699 

700 VERIFY THAT MASS8US CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 

^01 DRIVE IS IN NEUTRAL. 

703 A. SET THE ATTENTION BITS FOR BOTH PORTS. 
70A 

705 B. VERIFY THAT THE DRIVE IS IN NEUTRAL, 
f 06 

707 C. ISSUE A MASS8US INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 

708 RESET. 
709 

710 

711 TEST 33 RESET ATTENTION 'A' & '8' BY RMAS 

713 VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 

71^ APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 

716 A. SET THE ATTENTION BITS FOR BOTH PORTS. 

718 B. VERIFY THE DRIVE IS IN NEUTRAL. 

720 C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 

^21 THAT BOTH ATTENTION BITS ARE RESET AS SEEN B^ RMAS. 

723 

72A TEST 34 PORT 'A' ALTERNATE ATTENTION l=ATH TEST 

726 VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

728 A. SET THE ATTENTION BIT FOR PORT 'A'. 

730 B. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S INTO RMDS. 

732 C. READ THE ATTENTION REGISTER I VERIFY THAT THE ATTENTION BIT 

733 FOR THE DRIVE IS SET. 

735 

736 TEST 35 PORT '8' ALTERNATE ATTENTION PATH TEST 

738 VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

7^0 A. SET THE ATTENTION BIT FOR PORT 'B'. 
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SEQ OC ' 



7(*2 
743 

7<,4 

745 

746 

747 

748 

749 

7S0 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

785 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 



B. SEIZE THE DRIVE THROUGH PORT 'A* BV WRITING O'S INTO RMOS. 

C. READ THE ATTENTION REGISTER I VERIFV THAT THE ATTENTION BIT 

FOR THE DRIVE IS SET. 

TEST 36 SET ATTENTION 'A* BY COMMMAND TEST 

TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BIT«; AF TCR A 

A. ISSUE A OFFSET COMMAND THROUGH PORT 'A'. 

B. WAIT FOR THE OFFSET COMM/»A<D TO COMPLETE ('DRY' TO BECOME 

•T). VERIFY THAT THE ATTENTION BIT FOR PORT 'A' IS SET AND 
THAT THE ATTENTION BIT FOR PORT '8' IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY 'HAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 37 SET ATTENTION '8' BY COMMMAND TEST 

TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B' . 

B. WAIT FOR THE RECALIBRATE COWWID TO COMPLETE CD^Y" TO BECOME 

•T). VERIFY THAT THE ATTENTION BIT FOR PORT 'Q' IS SET A.ND 
THAT THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 40 PORT 'A* SET VOLUME VALID TEST 

VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 

*A. WITH PORT 'A* SELECTED. RESET AND SET 'UNIT READY" 

STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT 'VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 

COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT 'A' AND SELECT THE DRIVE FOR 

PORT '8'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 

PORT '8' THEN RELEASE PORT 'B*. 
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7^9 

800 

801 

802 

803 

80A 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

324 

825 

826 

827 

828 

829 

83U 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 



TEST 41 PORT '8* SET VOLUME i/ALiD TEST 

VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 

A. WITH PORT '8' SELECTED. RESET AND SET 'UNIT READY" 

STATUS USING DIAGNOSTIC MODE, VERIFY THAT THE DRIVE 
IS SEIZED AND THAf 'VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

8. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT '8' AND SELECT THE DRIVE FOR 

PORT 'A'. VERIFY THAT ATTENTION IS STJl SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 

PORT "A' THEN RELEASE PORT 'A'. 

TEST 42 TEST PORT 'A' TIMEOUT DOES NOT RFSET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING 0"S INTO RMDS. 

B. WRITE rs INTO RMERl THROUGH PORT 'A' TO FORCE AN ATTENTION. 

C. WAIT FOR THP DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 

NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A' AND NOT SET FOR 
PORT 'B': AND THAT BOTH PORTS SEE TS IN THE ERROR REGISTER. 

TEST 43 TEST PORT '8' TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

B. WRITE rs INTO RMERl THROUGH PORT '8'. 

C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 

NEUTRAL; THAT ATTENTION IS SET FOR PORT 'B' AND IS NOT SET FOP 
PORT 'A': AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 

TEST 44 POHT 'A' RETRIGGER BY DEMAND TEST 

VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASS8US DEMAND, 
A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
8. WAIT 500 MS AND READ RMDS THROUGH PORT 'A*. 
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856 C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦ OR - 25X OF THE SPECIFIED 

857 TIME. (THE MEASUREMENT IS MADE FROM STEP 'B'./ 
858 

a59 D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

860 BIT IS SET. 

861 

863 TEST 45 PORT '8' RETRIGGER BY DEMAND TEST 

865 VERIFY THAT THE POm TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 

866 

8o7 A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

868 / 

869 B. WAIT 500 MS AIID WRITE 0*8 INTO RMDS THROUGH PORT 'A*. 

870 * 

871 C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦ OR - 25X OF THE SPECIFIED 

872 TIME. (THE MEASUREMENT IS MADE FROM S^EP 'B'.) 

'873 

874 D. THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

875 BIT IS SET. 
876 

877 

878 TEST 46 PORT 'A* TIMEOUT/RELEASE TEST 

879 

880 VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

881 SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 
882 

883 A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

884 

885 B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'A'- 

886 

88/ C. ISSUE A RELEASE COMMAND FROM PORT •8', VERIFY THAT THE DRIVE 

888 HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA* BIT DID NOT 

889 SET FOR PORT 'B*. PEGI5TERS WILL NOT BE CHECKED THROUGH PORT 'A'. 
890 

891 D. WAIT THE TIMEOUT INTERVAL ♦ 25X. VERIFY THAT THE DRIVE HAS 

892 BEEN RELEASED. 
893 

894 E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

895 RETLtRNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

896 
897 

898 TEST 47 PORT '8' TIMEOUT/RELEASE TEST 

899 

900 VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

9C1 SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

902 

903 A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

904 

905 8. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT '8'. 

906 

907 C. ISSUE A RELEASE COMMAND FROM PORT 'A'. VERIFY THAT THE DRIVE 

908 HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 

909 SET FOR PORT 'A'. REGISTERS WILL NOT BE CHECKED THROUGH PORT '8'. 

910 

911 D. WAIT THE TIMEOUT INTERVAL ♦ 25X. VERIFY THAT THE DRIVE HAS 

912 BEEN RELEASED. 
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SEO 001 



01 X 
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01 7 


VERIF 


01 A 




010 


A 


o?n 




0P1 




0?? 

7C.C 




0?^ 


k r 


0?4 




o?s 




OP^ 


D 

1/ • 


0?7 






F 

b • 






930 




931 


P 

• • 


95? 




933 




93A 




935 


G. 


936 




937 




938 




939 


TEST 


9A0 




941 


VERIF 


9A2 




9<.3 


A. 


94^ 




9^5 


6. 


946 




947 


r. 


948 




949 




950 


D. 


951 




952 


F 


953 




954 




955 


F . 


956 




957 




958 




959 


G. 


960 




961 




962 




963 


A 



SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMD3. 

WRITE TS INTO RMER1 , RMER2 THROUGH PORT 'A*. 

READ RMER1. RMER2 THROUGH PORT '8'. VERIFY THAT PORT 
'B* SEES O'S FROM EACH OF THESE REGISTERS. 

CLEAR RMER1, RMER2 THROUGH PORT 'A'. 

WRITE rS INTO RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT 
PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 

RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT '8' AND THAT THE ATTENTION BIT FOR PORT '8' IS 
SET AND THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

WRITE 1'S INTO RMERl. RMER2 THROUGH PORT '8'. 

READ RMERl, RMER2 THROUGH PORT 'A'. VERIFY THAT PORT 
'A' SEES O'S FROM EACH OF THESE REGISTERS. 

CLEAR RMERl. RMER2 THROUGH PORT '8'. 

WRITE rS INTO RMERl. RMER2 THROUGH PORT 'A'. VERIFY THAT 
PORT '8' SEES O'S FROM EACH OF THESE REGISTERS. 

RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT 'A* IS 
SET AND THE ATTENTION BIT FOR PORT '8' IS NOT SET. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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597 
598 



599 



600 
601 



0011 00 
10AOO0 
000004 



00001 1 
00001? 
000015 
000200 
1 7777b 
1 7777t 
1 7777A 
U7772 
177570 
1 77570 



000000 
C00001 
000002 
000003 
OOOOOA 
000005 
000006 
000007 
000006 
000007 



000000 
0000«0 



•LAST REVISION OA-APR-81 

ITIE CZRMR80 RM05/3/2 DU POR TST 1 
COPYRIGHT (C) 1981 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SP6S.. CO. 80919 

PROGRAM BY MIKE lEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE FDP-II MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-C!>), ''8-MAR-81 

S8TTL OPERATIONAL SWITCH SETTINGS 



SWITCH 

15 
U 
13 
11 
10 
9 



USE 



HALT ON 
LOOP ON 
INHIBIT 
INHIBIT 
BELL ON 
LOOP ON 



ERROR 
TEST 

ERROR TYPE OUTS 

ITERATIONS 

ERROR 

ERROR 



.S8TTL BASIC DEFINITIONS 



.••INITIAL ADDRESS 
STACK =1100 
ERROR = EMT 
SCOPE = lOT 



OF THE STACK POINTER nOO 



; .-BASIC 
; .-BASIC 



DEFINITION 
DEFINITION 



OF 
OF 



.-•MISCELLANEOUS DEFINITIONS 



HT 

LF 
CR 
CRLF 
PS 

PSW=PS 

STKLMT 

PIRQ 

DSWR 

DDISP 



11 
12 
15 
200 
177776 

1 7777t, 
U7772 
'.77570 
} 77570 



ERROR 
SCOPE 



TAB 



CALL 
CALL 



CODE FOR HORIZONTAL 
CODE FOR LINE FEED 
CODE FOR CARRIAGE RETURN 
CODE FOR CARRIAGE RETURN-LINE 
PROCESSOR STATUS WORD 



FEED 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



.-•GENERAL PURPOSE REGISTER DEFINITIONS 



RO 
R1 
R2 
R3 
RA 
R5 
R6 
R7 
SP 
PC 



XO 
X-i 
%2 

:3 

Z4 
15 
Z6 
X7 
X6 
17 



.-•PRIORITY LEVEL 
PRO - 0 
PRl - AO 



GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 



DEFINITIONS 

; .-PRIORITY LEVEL 0 
;;PRIORITY lEVEL 1 
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BASIC DEFINITIONS 

000100 
OOOUO 
000200 
000240 
000300 
000540 



100000 
040000 
020000 
010000 
004000 
002000 
C01000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



T 00000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
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PR2 
PR3 
PR4 
PR 5 
PR6 
PR 7 
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S£Q C'O. 



= 100 
- 140 
= 200 
= 240 
= 300 
= 340 



PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 
PRIORITY 



LEVFL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 



2 
3 
4 
5 
6 
7 



.•••'SWITCH 

SU15 

SW14 = 

SW13 

SW12 

SW11 r 

SWIO 

SW09 

SWOB 

SW07 

SW06 = 
SWOS 

SW04 = 

SW03 

SW02 

SW01 

SwOO 

SW9=SW09 
SW8=SW08 
SW7=SW07 
SU6=SW06 
SW5=SW05 
SW4=SU04 
SW3=SW03 
SW2=SW02 
SW1=SU01 

suo-swoo 



REGISTER" 

100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 

2 

1 



SWITCH DEFINITIONS 



; -DATA 
BIT15 
BITU 
BIT13 
BIT12 
BITU 
BIT10 
8IT09 
BIT08 
8IT07 
BIT06 
8IT05 
8IT04 
BJT03 
BIT02 
BIT01 
BITOO 
BIT9=8IT09 
BIT8=8IT08 
BIT7=8IT07 
8IT6=8IT06 
BIT5=8IT05 



BIT DEFINITIONS 
= 100000 
= 40000 
= 20000 
= 10000 
= 4000 
= 2000 
= 1000 
= 400 
= 200 
= 100 
= 40 
= 20 
= 10 
= 4 
= 2 
1 



(BITOO TO BinS) 



CZRMRBO RM05/3/? DU 
BASIC DEFINITIONS 



POR TST 1 MACRO V04.00 
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SEO Q02'e 



602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

6K 

615 

616 

617 

618 

619 

620 

621 

622 

623 

62A 

625 

626 

627 

628 

629 

630 

631 

632 

633 

65« 

635 

636 

637 

638 

659 



000020 
000010 
000004 
000002 
000001 



OOOOOA 
rooOlO 

OOOOK 
000020 
000024 
000030 
000034 
000060 
000064 
000240 



000100 
000200 
000400 
001000 
002000 
020000 
040000 
100000 



BIT4-8IT04 
BJT3-BIT03 
BIT2=8IT02 
B1T1=8JT01 
BIT 0=8 J TOO 

;»8ASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC = 4 ;;TiriE OUT AND OTHER ERRORS 

RFSVEC = 10 .-.-RESERVED AND ILLEGAL INSTRUCTIONS 

T8ITVEC = 14 ;:"T" BIT 

TRTVEC = 14 ;; TRACE TRAP 

BPTVEC = 14 ; .-BREAKPOINT TRAP (8PT) 

lOTVEC = 20 ;; INPUT /OUTPUT TRAP (lOT) •*SCOPE»« 

PWRVEC = 24 ;; POWER FAIL 

EMTVEC = 30 ;;EriULATOR TRAP (EMT) ••ERROR»* 

TRAPVEC = 34 .-.-"TRAP" TRAP 

TKVEC =^ 60 ;;TTV KEV80ARD VECTOR 

TPVEC = 64 .-.-TTY PRINTER VECTOR 

PIROVEC = 240 ; .-PROGRAM INTERRUPT REQUEST VECTOR 

.S8TTL RH/RM REGISTERS 

.-CONTROL AND STATUS REGISTER 1 (RMCSl) 



IE 

Ruy 

A16 

A17 

PSEL 

MCPE 

TRE 

SC 



= 100 
= 200 
= 400 
= 1000 
= 2000 
= 20000 
= 40000 
- 100000 



(BIT »b) 



INTERRUPT ENABLE 
READY (81 T »7) 
HIGH ORDER BUS ADDRESS 
HIGH ORDER BUS ADDRESS 
PORT SELECT (8IT *10) 
MASS8USS PARITY ERROR (81 T 
TRANSFER ERROR (BIT «14) 
SPECIAL CONDITION (BIT *15) 



BIT 
BIT 



(BIT 
(81 T 

*13) 



#8) 
*9) 



.-CONTROL AND STATUS REGISTER 2 (RMCS2) 



000001 


uo 




1 


000002 


ui 




2 


000004 


U3 




4 


000010 
000020 


6AI 




10 


PAT 




20 


000040 


CLR 




40 


000100 


IR 




100 


000200 


OR 




200 


000400 


MDPE 




400 


001000 


MXF 




1000 


002000 


PGE 




2000 


004000 


NEM 




4000 


010000 


NED 




10000 


020000 


JPE 




20000 


040000 


UCE 




40000 


100000 


DLT 




100000 



UNIT SELECT (BIT #0) 
UNIT SELECT (BIT *1) 
UNIT SELECT (BIT »2) 

8US ADDRESS INCREMENT INHIBIT (BIT A3) 
MASS8US PARITY TEST (BIT *4) 
CLEAR (BIT *5) 
INPUT READY (BIT *6) 
0UTP»JT READY (BIT /t7) 

MASS Ejus parity error (8it «8) 

MISSED transfer ERROR (81 T #9) 
PROGRAM ERROR (BIT ^f^0) 
NON EXISTENT MEMORY (BIT *11) 
NON EXISTENT DRIVE (BIT »^2) 
UNI8US PARITY ERROR (81 T »M) 
WRITE CHECK ERROR (BIT <rl4) 
DATA LATE (BIT *15) 



.-DATA BUFFER REGISTER (RMDB) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.S8TTL RM REGISTERS 



Rf» PE&ISTERS 
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6A0 

641 

642 

043 

644 

645 

646 

647 

648 

649 

650 

651 

652 

65^ 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

675 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 



000001 
000002 
000004 
000010 
000020 
000040 
004000 



000040 



000001 
000100 
000200 
000400 
001000 
002000 
004000 
01 0000 
020000 
040000 
100000 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004 000 
010000 
020000 
040000 
100000 



000001 
001000 
040000 
100000 



000001 



;C0NTR0L AND STAIUS REGISTER *1 . (*00) 



GO 

n 

F2 
F3 
F4 
DVA 



1 
2 
4 

10 
20 
40 

4000 



GO BJT (6JT *0) 

FUNCTION CODE BIT *1 

FUNCTION CODE BIT *2 

FUNCTION CODE BIT *5 

FUNCTION CODE BIT #4 

FUNCTION CODE BIT *5 
DEVICE AVAILABLE (BIT *n ) 



.•CONTROL STATUS REGISTER #2 (RMCS2) 

CLR = BITS . .-CONTROLLER CLEAR 



.DRIVE STATUS REGISTER (RMDS) (*01) 



DM 

vv 

DRV 
DPR 
PGM 
L8T 
WRL 
MOL 
PIP 
ERR 
ATA 



BITOO 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 



OFFSET MODE 

VOLUME VALID (BIT »6) 

DRIVE READY (BIT #7) 

DRIVE PRESENT (BIT *8) 

PR0GRAMA8LE (BIT *9) 

LAST SECTOR TRANSFERRED (BIT #10) 

WRITE LOCK (BIT #11) 

MEDIUM ON-LINE (BJT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 
ATTENTION ACTIVE (SIT #15) 



.ERROR REGISTER #01 (RMER1) (#02) 



JLF 




1 


ILLEGAL FLWCTION (BIT #0) 


ILR 




2 


ILLEGAL REGISTER (BIT #1) 


RMR 




4 


REGISTER MODIFICATION REFUSED (BIT #2) 


PAR 




10 


■PARITY ERROR (BIT #3) 


FER 




20 


FORMAT ERROR (BIT #4) 


WCF 




40 


■WRITE CLOCK FAIL (BIT #5) 


ECH 




100 


■ECC HARD ERROR (BIT #6) 


HCE 




200 


■HEADER COMPARE ERROR (BIT #7) 


HCRC 




400 


■HEADER CRC ERROR (BIT #8) 


AOE 




1000 


■ADDRESS OVERFLOW ERROR (BIT #9) 


JAE 




2000 


INVALID ADDRESS ERROR (BIT #10) 


WLE 




4000 


; WRITE LOCK ERROR (BIT #11) 


DTE 




10000 


•DRIVE TI'-iING ERROR (BIT #12) 


OP I 




20000 


■OPERATIO^ INCOMPLETE (BIT #13) 


UNS 




40000 


•DRIVE UNSAFE (BIT #14) 


DCK 




100000 


•DATA CHECK ERROR (BIT 15) 



.-MAINTAINABILITY REGISTER (RMMR1)(#03) 



DMD 
MUR 
ROB 
RQA 



= 1 

- BIT09 
= BITK 
= BIT15 



DIAGINOSTIC MODE (BIT #0; 
MAINTENANCE UNIT READY 
PORT B REQUEST FLOP 
PORT A REQUEST FLOP 



.•ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
ATO = 1 ;DEVICE 0 (8JT #0) 



CZRW80 RM05/3/2 DU POR TST 1 
RM REGISTERS 
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SEO 0024 



697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 



000002 
000004 
000010 
000020 
000040 
000^00 
000200 



000001 

000002 

000004 

000010 

000020 

000040 

000100 

000200 

000400 

004000 

020000 

040000 

100000 



000100 
000200 
000400 
001000 
002000 



000010 
000200 
002000 
004000 
010000 
020000 
100000 



000200 
002000 
004000 
010000 



ATI 
AT2 
AT3 
AT4 
AT 5 
AT6 
AT7 



2 
4 

10 

20 

40 

100 

200 



DE /ICE 
DEi'ICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 
DEVICE 



1 
2 
3 
4 
5 
6 
7 



(8JT 
(BIT 
(8IT 
(BIT 
(BIT 
(BIT 
(BIT 



.•DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) 
;(FACH BIT IS CALLED BY BIT NUMBER) 

.DRIVE TYPE REGISTER (RMDT) (*06) 



*1) 
#2) 
*?) 
#4) 
#5) 
«6) 
*7) 

(#05) 



DTOO 




1 


DT01 




2 


DT02 




4 


DT03 




10 


DT04 




20 


DT05 




40 


DT06 




^00 


DT07 




200 


DT08 




400 


DRQ 




4000 


MOH 




20000 


TAP 




40000 


NBA 




100000 


; LOOK-AHEAD REGI 


SCO 




100 


SCI 




20C 


SC2 




400 


SC3 




1000 


SC4 




2000 



DRIVE TYPE NUMBER BIT 1 / 

DRIVE TYPE NUMBER BIT 2 

DRIVE TYPE NUMBER BIT 3 

DRIVE TYPE Nl/«ER BIT 4 

DRIVE TYPE NUMBER BIT 5 

DRIVE TYPE Nl/CER BIT 6 

DRIVE TYPE NUMBER BIT 7 

DRIVE TYPE N^ER BIT 8 

DRIVE TYPE NUMBER BIT 9 

DRIVE REQUEST REQUIRED (BIT *11) 

MOVING HEAD (BIT #13) 

TAPE DRIVE (BIT *14) 

NOT BLOCK ADDRESSED (BIT #15) 



(#07) 



SECTOR COUNT FIELD 0 (BIT #6) 
SECTOR COUNT FIELD 1 (BIT #7) 
SECTOR COUNT FIELD 2 (BIT #8) 
SECTOR COUNT FIELD 3 (SIT #9) 
SECTOR COUNT FIELD 4 (BIT #10) 



;RM ERROR REGISTER #2 (RMER2) (#10) 



DPE 

DVC 
L8C 
LSC 
IVC 
OPE 
SKI 



10 

200 

2000 

4000 

10000 

20000 

100000 



.OFFSET REGISTER (RMOF) (#11) 



OFD 
HCI 
ECI 
FMT16 



= 200 
= 2000 
= 4000 
= 10000 



DATA PARITY ERROR (BIT #3) 
DEVICE CHECK (BIT #7) 
LOSS OF BIT ClOCK (BIT #10) 
LOSS OF SYSTEM CLOCK (BIT #11) 
INVALID COMMAND (BIT #12) 
OPERATOR ERROR (BIT #13) 
SEEK INCOMPLETE (BIT #14) 



OFFSET FORWARD (BIT #5) 
HEADER COMPARE INHIBIT (BIT #10) 
ERROR CORRECTION CODE INHIBIT (BIT 
FORMAT BIT (BIT #12 



#11) 



.•DESIRED CYLINDER ADDRESS (RMDC) (#12) 
;(EACH BIT IS CALLED BY BIT NUMBER) 



SERIAL NUMBER REGISTER 
(EACH IS CALLED BY BIT 



(RMSN) (#14) 
NUMBER) 



rZRMRBO RM05/^/2 DU POR TST 1 
RM REGISTERS 

?5A 
755 
756 
757 
758 
759 
760 
761 
762 

763 000000 
76A 000002 

765 OOOOOA 

766 000006 

767 000010 

768 00001 2 

769 0000 K 

770 000016 

771 000020 

772 000022 

773 000024 
77A 000026 

775 000030 

776 000032 

777 00003A 

778 OOOOAO 

779 000042 

780 COOOAA 

781 000046 
782 
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;ECC POSITION REGISTER (RMEC1) (*16) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RMEC2) (*17) 
;(FACH BIT IS CALLED BY BIT NUM8ER) 

.SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 







Q 






2 


R^6A 


- 


4 


RMDA 


_ 


6 


RMCS2 


- 


10 


RMDS 




12 


RMER1 




14 


R^^<\S 




16 


RMLA 




20 


RMD8 




22 


RMMRI 




24 


RMDT 




26 


RMSN 




30 


RMOF 




32 


RMDC 




34 


RMM«2 




'.O 


RMEft2 




42 


RMEC1 




44 


RrtEC2 




46 



CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UN18US ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 

CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 

DRIVE STATUS REGISTER (DRIVE REG 01) 

ERROR REGISTER *1 (DRIVE REG. 02) 

ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 

LOOK AHEAD REGISTER (DRIVE REG. 07) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 

MAINTAINA8ILITY REGISTER (DRIVE REG. 03) 

DRIVE TYPE REGISTER (DRIVE REG. 06) 

SERIAL NLMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINOEP ADDRESS REGISTER (DRIVE REG. 12) 
MAINTENANCE REGISTER »2 (DRIVE REG. 14) 
ERROR REGISTER *2 (DRIVE REG. 15) 
ECC POSITION REGISTER (DRIVE REG. 16) 
ECC PATTERN REGISTER (DRIVE REG. 17) 



'ZRMRBO OU POR TST 1 

TRAP fAKHER 



000000 



0001 7A 
000176 



000200 

2 

3 00020^ 

4 

5 



00C1 74 
000000 
000000 



000137 
000137 



000210 

000046 
000046 066110 

000052 
000052 020000 

000210 



MACRO V04,C0 
.S8TT 



002240 
002246 
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TRAP CATCHER 



SFO 002' 



.=0 



•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2. HALT" 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 



DISPREG: 
SWREG: 



.WORD 
.WORD 



0 
0 



,S8TTL STARTING ADDRESS(ES) 
JMP »(fSTART 
JMP a/lfSrART1 

.S8TTL ACT 11 HOOKS 



.-.•SOFTWARE DISPLAY REGISTER 
.-.•SOFTWARE SWITCH REGISTER 



.-.-JUMP TO STARTING ADDRESS OF PROGRAM 
.•START AND CHANGE THE RH/RM ADDRESS 



;HOOKS REQUIRED BY ACT11 
ISVPC=. 
.=46 
SENDAD 

.=52 

.WORD 20000 
.=$SVPC 



.-SAVE PC 

;;1)SET LOC. 46*10 ADDRESS OF $ENDAD IN .SEOP 

;;2)SET LOC. 52 TO 20000 
;; RESTORE PC 



C2RMRB0 RM05/3/2 DU POR TSf 1 
rOMMON TAGS 
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SEO 00?/ 



.S8TTL COMMON TAGS 



.••THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
.••USED IN THE PROGRAM. 



con 00 



.=1100 



001 100 






tCMTAG 






.•START OF CC^ON TAGS 


001 100 


000000 




$PASS: 




.WORD 


0 ; 


.•CONTAINS PASS COUNT 


001 10? 


000 




STSTNM 


iSYTE 


0 


•CONTAINS THE TEST NUMBER 


00110? 


000 




SERFLG 


iSYTE 


0 


•CONTAINS ERROR FLAG 


0011 OA 


000000 

www 




SICNT. 




WORD 


0 


•CONTAINS SUBTEST ITERATIC3N COUNT 


001106 


000000 

www 




SLPADR 


.WORD 


0 


•CONTAINS SCOPE LOOP ADDRESS 


001110 


000000 

www 




SLPERR 


.WORD 


0 


•CONTAINS SCOPE RETURN FOR ERRORS 


001112 


000000 

www 




SERTTL 


.WORD 


0 


.'CONTAINS TOTAL ERRORS DETECTED 


00111A 


000 




$JTEMB 


.BYTE 


0 


•CONTAINS ITEM CONTROL BYTE 


001115 


001 




SERMAX 


.BYTE 


1 


; CONTAINS MAX. ERRORS F»ER TEST 


001116 


000000 

www 




SERRPC 


.WORD 


0 


.'CONTAINS PC OF LAST ERROR INSTRUCTION 
.'CONTAINS ADDRESS OF 'GOOD' DATA 
'CONTAINS ADDRESS OF 'BAD' DATA 
.'CONTAINS 'GOOD' DATA 
.'CONTAINS 'BAD' DATA 


001120 


000000 

www 




SGOAOR 


.WORD 


0 


001122 


000000 




$8DA0R 


■ .WORD 


0 


00112A 


000000 




SGDDAT 


■ .WORD 


0 


001126 


000000 




S8DDAT 


.WORD 


0 


001130 


ooocoo 








.WORD 


0 


.'RESERVED— NOT TO BE USED 


001132 


000000 








.WORD 


0 




001134 


000 




SAUTOB: .BYTE 


0 


.'AUTOMATIC MODE INDICATOR 


001135 


000 




SINTAG 


• .BYTE 


0 


.'INTERRUPT MODE INDICATOR 


001136 


000000 








.WORD 


0 




001KO 


^ 77570 




SWR: 




.WORD 


DSWR 


.'ADDRESS OF SWITCH REGISTER 


0011^2 


1 77570 




DISPLAY: .WORD 


DDJSP 


.'ADDRESS OF DISPLAY REGISTER 


001144 


1 77560 




$TKS: 




1 77560 




.'TTY KBD STATUS 


001146 


1 77562 




$TK8: 




177562 




;TTY KBD BUFFER 


001150 


1 77564 




$TPS: 




177564 




;TTY PRINTER STATUS REG. ADDRESS 


001152 


1 77566 




STPB: 




177566 




;TTY PRINTER BUFFER REG. ADDRESS 


001 1 54 


000 




SNULL 




.BYTE 


0 ; 


.■CONTAINS NULL CHARACTER FOR FILLS 


001155 


002 




$FILLS 


• .BYTE 


2 


.'CONTAINS # OF FILLER CHARACTERS REQUIRED 
.'INSERT FILL CHARS. AFTER A "LINE FEED" 
.•"TERMINAL AVAILABLE" FLAG (BIT<07>=0-YES) 


001156 


012 




SFILLC 


• .BYTE 


12 


001157 


000 




$TPf LG 


• .BYTE 


0 


001160 


000000 




SREGAD 


: .WORD 


0 


.'CONTAINS THE ADDRESS FROM 
















.'WHICH (SREGO) WAS OBTAINED 


001162 


000000 




SREGO 




.WORD 


0 ; 


.'CONTAINS (( SREGAD )•^0) 


001164 


000000 




STMPO 




.WORD 


0 


.'USER DEFINED 


001166 


000000 




STMPl 




.WORD 


0 


;USER DEFINED 


001170 


000000 




$TMP2 




.WORD 


0 


.•USER DEFINED 


001172 


000000 




$TMP3 




.WORD 


0 


.'USER DEFINED 


001174 


000000 




STMP4 




.WORD 


0 ; 


.'USER DEFINED 


001176 


000000 




STIMES 


. 0 




.'MAX. NUMBER OF ITERATIONS 


001200 


000000 




$ESCAPE:0 




.'ESCAPE ON ERROR ADDRESS 


001202 


207 


377 


377 SBELL 




.ASCIZ 


<207><377><377> ] 


:CODE FOR BELL 


001206 


077 




SOUES 




.ASCII 


/If 


.'CU'STION MARK 


001207 


015 




$CRLF 




.ASCII 


<15> 


; .VriAGE RETURN 


001210 


012 


000 


$LF: 




.ASCIZ 


<12> 


.1 INC FEED 
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SEQ 002a 







.S8TTL 


USER DEFINED TAGS 


001212 


1 72540 


CI y c CD • 


.WORD 


172540 


001214 


1 72542 


tLKLbo: 


.WORD 


172542 


001216 


000104 


JLrVfcL : 


.WORD 


104 


001 220 


177546 




.WORD 


177546 


001222 


/N/N/N « /N 

000100 


CI 1 \ic r • 
»LLvfc C : 


.WORD 


100 


001224 


ftrtAAAA 

000000 


DAD T A • 


.WORD 


0 


001226 


000000 


OAD TD ■ 
POR 18 . 


.WORD 


0 


001230 


000000 


DAD T • 

PUH 1 C : 


.WORD 


0 


001232 


AA AAAA 

000000 


DOC T A • 

Kwi 1 a: 


.WORD 


0 


001 23A 


AAAA A A 

000000 


one TD . 


.WORD 


0 


001236 


000000 


A CD^ • 


.WORD 


0 


001240 


AAA AAA 

000000 


PiNoK: 


.WORD 


0 


001 242 


A AAA A A 

000000 




.WORD 


0 




AAAAAA 

000000 




.WORD 


0 


001246 


AAAAAA 

000000 




.WORD 


0 


001250 


AAAAAA 

000000 


rk* CDD - 


.WORD 


0 


001252 


AAAAAA 

000000 


IklAC C T 7 • 


.WORD 


0 


001 25^ 


AAAAAA 

000000 


DCI CDD* 

KtLcKK. 


.WORD 


0 


001256 


AAAAAA 

000000 




.WORD 


0 




ooooou 


1 lA T ru - 
WA 1 (,n . 


.WORD 


0 


001 262 


ooooou 


1 inCA: 


.WORD 


0 


0012:0*1 


AAAAAA 

ooooou 


T fMC AD • 


• WORD 


0 


001266 


AAAAAA 

uuuouu 


T T MC AM • 


.WORD 


A 
U 


001270 


000000 


TIMES: 


• WORD 


0 


001272 


000000 


TIME8P: 


.WORD 


0 


001274 


000000 


TIflEBM: 


.WORD 


0 


001276 


000000 


TIMES: 


.WORD 


0 


001300 


AAAAAA 
000000 


KTOL 1 L : 


.WORD 


0 








.WORD 


0 






.S8TTL 


RH/RM 


UNI8US AND 


001 304 


1 76700 


SRMADR: 


.WORD 


1 76700 


001306 


000254 


SRMVEC: 


.WORD 


254 



ADDR OF KW11-P STATUS REGISTER 

ADDR OF <W11-P COUNTER BUFFER 

ADDR OF KW11-P VECTOR 

ADDR OF KW11-L STATUS REGISTER 

ADDR OF KWn-L VECTOR 

ADDRESS OF PORT A 

ADDRESS OF PORT B 

ADDfRESS OF DIFFERENT DRIVE 

REQUEST BIT FOR PORT A 

REQUEST BIT FOR PORT B 

ATA-A OR ATA-e = 1 

CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 

CONTAINS THE ADDRESS OF THE SEIZING PORT 

CONTAINS THE ADDRESS OF THE 'OPPOSITE' PORT 

NUPCER OF THE CURRENT TEST 

IF -1, A REGISTER MISCOMPARISON OCCURRED 

IF -1, THE PORT IN 'SEIZPT* DID NOT SEIZE THE DRIVE 

IF -1. THE PORT IN 'SEIZPT' DID NOT RELEASE THE DRIVE 

ELAPSED TIME COUNTER 

WATCH DOG TIMER LOCATION 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
PORT A TIMEOUT VALUE ♦ 25Z 
PORT A TIMEOUT VALUE - 25X 

THE TIA^OUT ONE-SHOT VALUE MEASURED THROUGH PORT B 
PORT A TIMEOUT VALUE ^ 25X 
PORT 8 TIME VALUE - 251 

STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 

SINGLE TEST INDICATOR 

CHANGE THE RH/RM ADDRESS INDICATOR 



; RH/RM UNI8US ADDRESS 
.•INTERRUPT VECTOR ADDRESS 
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SEO 002<^ 



.SBTTL EROOft POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTlNfcNT. 

•NOTE!: IF II TEM8 IS 0 THE ONLY PERTINENT DATA IS (SERRPO. 

•N0TE2: EACH ITE1 IN THE TABLE CONTAINS A POINTERS EXPLAINED AS FOLLOWS: 

• EM ; .-POINTS TO THE ERROR MESSAGE 

• DM ; .-POINTS TO THE DATA HEADER 

• DT ; .-POINTS TO THE DATA 

• DF ;;P0INTS TO THE DATA FORMAT 



1 
2 
3 
A 
5 
6 
7 
8 
9 

10 

11 

^2 

13 

U 

15 

16 

1/ 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

AO 

<.1 

42 



001310 



001310 
001312 
001 3K 
001316 



001 3?0 
001322 
001324 
001326 



001330 
001332 
001334 
001 336 



001340 
001342 
001344 
001346 



001350 
001352 
001354 
001356 



001360 
001362 
001364 
001566 



072724 
077341 
101230 
101516 



072745 
077341 
101230 
101516 



072767 
077412 
101244 
101516 



073051 
077461 
101312 
101531 



073102 
0/7604 
101260 
101523 



073150 
100054 
101332 
101523 



SERRTB: 
.-ERROR 1 



EMI 
DHl 
DTI 
DFl 



.-ERROR 2 



EM2 
DHl 
DTI 
DF1 



.-ERROR 3 



EM3 
DH3 
DT3 
DFl 



.-ERROR 4 



EM4 

DH4 
DT7 
DF7 



.-ERROR 5 



EMS 
DH5 
DT5 
DF5 



.-ERROR 6 



EM6 

DHl 3 
DT13 
DF5 



.-WRONG DRIVE TYPE 



.-DRIVE NOT ON LINE 



.-SERIAL NUMBERS NOT ^HE SAME 



.-DRIVE NOT SEIZED BY PORT 'N' 



.-WRONG STATUS SEEN BY THE SEIZING PORT 



.-REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZFD 



CZR«1RB0 RM05/5/2 DU PQR TST 1 
ERROR POINTER TABLE 



4? 
44 
A5 

<6 001370 

47 001372 

48 001374 

49 001376 
SO 

51 
52 

53 001400 
34 001402 

55 001404 

56 001406 
57 

58 
59 

60 001410 

61 001412 

62 001414 

63 0014^6 
64 

65 
66 

67 001420 

68 001422 

69 001424 

70 001426 
71 

72 
73 

74 001430 

75 001432 

76 001434 

77 001436 
78 

79 
80 

81 001440 

82 001442 

83 001444 

84 001446 
85 

86 
87 

88 001450 

89 001452 

90 001454 
001456 



MACRO y04.00 4-APR-81 



91 
92 
93 
94 

95 001460 

96 001462 

97 001464 

98 001466 
99 



073250 
077660 
101312 
101531 



073331 
077604 
101260 
101523 



073361 
100003 
101230 
101516 



073445 
100550 
101420 
101544 



073515 
100054 
101332 
101523 



073602 
100054 
101332 
101523 



073645 
077660 
101312 
101531 



073724 
077660 
101312 
101531 



;bRR0R 7 



EM7 

DH7 
DT7 
DF7 



.•ERROR 10 



EM10 
DH5 
DT5 
DF5 



.•ERROR 11 



EM11 
DHll 
DTI 
DF1 



.•ERROR 12 



EMI 2 
DH36 
DT37 
DF36 



.■ERROR 13 



EMI 3 
DH13 
DT13 
DF5 



.ERROR 14 



EMI 4 
DH13 
DT13 
DF5 



.•ERROR 15 



EMI 5 
DH7 
DT7 
DF7 



.•ERROR 16 



EMI 6 
DH7 
DT7 
DF7 



C 8 
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.•REGISTER CONTENTS INCORRECT AFTER RELEASE/T MEOUT 



.•REGISTER CONTENTS INCORRECT 



.•CONTROL BUS PARI TV ERROR WHILE READING REGISTER 



.-DRIVE NOT SEIZED BV DRIVE CLEAR COMMAND 



.••VOLUME VALID' BIT NOT SET BV READIN PRESET 



.•'VOLUME VALID* SET ON THE OPPOSITE PORT 



.-THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 



;ATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET 



^Z«MRBO DJ PQR TST 1 

ERROR POINTER TABLE 



D 8 
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100 






101 






102 


001470 


073777 


103 


001472 


077660 


104 


001474 


101312 


105 


001476 


101531 


106 






107 






108 






109 


001 500 


074056 


110 


001502 


100550 


111 


001504 


101420 


112 


001506 


101544 


113 






114 






115 






116 


001510 


074136 


117 


001512 


100550 


118 


001514 


101420 


119 


C01516 


101544 


120 






121 






122 






123 


001520 


074211 


124 


001522 


100174 


125 


001 524 


101350 


126 


001526 


101540 


127 






128 






129 






130 


001530 


074276 


131 


001532 


100272 


132 


001534 


101362 


133 


001536 


101516 


134 






135 






136 






137 


001540 


074344 


138 


001542 


100272 


139 


001544 


101362 


140 


001 546 


101516 


141 






142 






143 






144 






145 


001550 


074423 


146 


001552 


100550 


'47 


001554 


101410 


148 


001556 


101544 


149 






150 






151 






152 






153 


001 560 


074466 


154 


001562 


100174 


155 


001564 


101350 


156 


001566 


101540 



SEO 0051 



.•ERROR 17 



EMI 7 
DH7 
0T7 
OF 7 



;tRR0R 20 



FM20 
DH36 
DT37 
DF36 



.-ERROR 21 



EM21 
DH36 
DT37 
DF36 



.•ERROR 22 



EM22 
DH?2 
0T22 
DF31 



.•ERROR 23 



EM23 
DH23 
DT23 
DF1 



.•ERROR 24 



En24 

DH23 
DT23 
DFl 



.•ERROR 25 



Eri25 
DH36 
DT36 
DF36 



.■ERROR 26 



EM26 
DH22 
0T22 
DF31 



.-ATTN BIT WRONG AFTER RELEASE - RPQUEST NOT SET 



;D'<IVE NOT SEIZED WHEN ATTN BJT FOR PO.'IT CLEARED 



:DRJVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 



.-DRIVE NOT IN NEUTRAL AFTER TIMEOUT, REQUEST NOT SET 



; TIMEOUT CLEARED THE DRIVE'S ERROR BIT 



;RELFASE COMMAND RELEASED DRIVE WITH ERRORS SET 



; TIMEOUT ONE-SHOT DID NOT RETRIGGER 



.-DRIVE NOT IN NEUTRAL AFTER "RELEASE. REQUEST NOT SET 



:ZRMft80 RM05/3/2 DU POR ^ST 1 
ERROR POINTER TABLE 



E 8 
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1S7 








27 


• JO 






'ERROR 


1 








EM27 




001 570 


074555 




1 O 1 


001 S7? 


\Jii OQv 




DH7 




001 574 


10151? 




DT7 




0O1 576 


101 5^1 




DF7 

l/r r 












IAS 








50 


1 OO 








FM50 


1 A7 


001600 


074651 






00160? 


100550 




Dh56 


1 AQ 


001604 


101410 

1 W 1 ~ 1 w 




DT36 


1 70 


001606 






DF56 

I/' Jw 


1 f 1 










17? 






: ERROR 


31 


1 7^ 










1 74 


001610 


074726 




EM31 


175 


00161? 


1 004 5 1 

1 ww*f J * 




DH31 


1 7f» 


noi6i4 


101 576 




DT51 


177 


001616 


101540 

1 w 1 */~ w 




Of 31 


178 










1 79 






- ERROR 


32 


ifln 

1 OV 










181 


001620 


075005 




EM32 


18? 


001622 


077604 




DH5 




001 6?4 


101260 

• W 1 LWw 




DT5 


184 


001 6?6 


101525 




DF5 


185 










186 






; ERROR 


33 


187 










188 


001630 


075Q54 




EM33 


18Q 


00165? 


100550 




DH56 


190 


001654 


101410 

I W 1 ^ 1 w 




DT36 


191 


001 

v/v 1 v/^o 


101544 




Df 56 


19? 










195 






; ERROR 


34 


194 










195 


001640 


075156 




EM34 


196 


00164? 


100550 




DH36 


197 


001644 

WW 1 \-/^~ 


101410 




DT36 


198 


001646 

WW 1 \^y\J 


101544 




DF36 


199 










?00 






; ERROR 


35 


201 










202 


001650 

WW 1 W-ZW 


075261 




EM35 


?05 

C w J 


00165? 

WW • VJi^C 


100550 




DH36 


?04 


001654 


101420 
101544 




Dr37 


?05 


001656 




OF 36 


206 










?07 






'ERROR 


36 


208 










209 


001660 


0753A0 




EM36 


210 


001662 


100550 




DH36 


211 


00166A 


lOKlO 




DT36 


212 


001666 


101544 




DF 36 


213 











.'REGISTER WRONG AFTER RELEASE WITH REQUEST SET 



.'DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 



.•DRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 



.-ATTN BIT WRONG AFTER RECALIBRATE COMMAND 



.'DRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WH£LE DRIVE SEIZED 



.'DRIVE RETURNS TO NEUTRAL IF MASSBUS INIT GIVEN WiilLE DRIVE SEIZED 



k|l 



.'DRIVE DID NOT RETURN TO NEUTRAL B^ TRIGGERING TiflEOUT ONE SHOT 



.•TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 



» 



f/RMRBO RMOS/3/t: DU POR TST 1 
ERROR POINTER TABLE 
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214 

?16 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

238 

229 

250 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

24 ^ 

246 

247 

248 

249 

250 

251 

25? 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 



001670 
001672 
001674 
001676 



001700 
001702 
001704 
001706 



001710 
001712 
001714 
CC'716 



001720 
001722 
001 724 
001 726 



001 730 
001 732 
001734 
001736 



001740 
001742 
001744 
001746 



001750 
001752 
001 754 
001756 



001760 
001762 
001764 
001766 



075412 
100550 
101420 
101544 



075460 
077341 
101362 
101516 



075535 
100273 
101362 
101516 



075577 
100577 
101430 
101547 



075665 
100577 
101430 
101 547 



075 742 
100616 
101376 
101540 



07601 7 
077341 
101230 
101516 



076071 
100714 
101436 
101540 



.'ERROR 37 



EM37 
DH36 
DT37 
DF36 



; ERROR 40 



En40 
DHl 
DT23 
DF1 



.-ERROR 41 



EM41 
DH23 
DT23 
DF1 



.•ERROR 42 



EM42 
DH42 

DF42 



.-ERROR 43 



EM43 
PH42 
DT42 
DF42 



.ERROR 44 



En44 
DH44 
0T31 
DF31 



.-ERROR 45 



EM45 
DHl 
DTI 
DF1 



.ERROR 46 



EM46 
DH46 
DT46 
DF31 



;Efi(ROR 4/' 



F 8 
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.•DRIVE IS NON-EXISTENT 



.-A-TENTION FOR PORT NOT RESET 8Y MASS8US ClEAR 



.•TIMEOUT CLEARED ATTENTION BIT 



.-DRIVE NOT IN NEUTRAL OR SEIZED 



.-DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 



.-WRITE ATTENTION BIT DID NOT SET PORT REQUEST 



;PORT SELECT SWITCH ON DRIVE NOT IN 'A/B' 



.•CAN'T ACCESS DRIVE THROUGH EITHER PORT 



ZRMRBO R.^S/?/2 DU POR TST 1 
FRROR POINTER TABLE 



2/1 

272 

?73 

27t. 

275 

276 

277 

278 

279 

280 

281 

232 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

205 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

507 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

320 

327 



001770 
001 772 
001 774 
001776 



02000 
002002 
002004 
002006 



002010 
002012 
002014 
002016 



002020 
002022 
002024 
002026 



002030 
002032 
002034 
002036 



002040 
002042 
002044 
002046 



002050 
002052 
002054 
002056 



002060 
002062 
002064 
002066 



076140 
100272 
1013b2 
101516 



076226 
100054 
101332 
101523 



076310 
077604 
101260 
101523 



076377 
100054 
101332 
101523 



076472 
100272 
101230 
10^516 



076553 
100174 
101450 
101540 



076646 
101011 
10146? 
101551 



076713 
101067 
101474 
101555 



•lACRn V04.00 4-APR-8I 



EM47 
DH23 
DT23 
DF1 



.•ERROR 50 



EM50 
DH13 
DT13 
DF5 



.•ERROR 51 



EM51 
DH5 
DT5 
DF5 



.•ERROR 52 



EM52 
DH13 
DT13 
DF5 



.•ERROR 53 



EM53 
DH23 
DTI 
DF1 



.•ERROR 54 



EM54 
DH22 
DT54 
DF31 



.•ERROR 55 



EM55 
DH55 
Dr55 
DF55 



.•ERROR 56 



EM56 
DH56 
DT56 
DF56 



;fcRROR 57 



G 8 
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.-ATTN BIT FOR SEIZING PORT NOT CLEARED QV DRIVE CLEAR 



;ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMCVWO 



.'ATTN BIT NOT CLEARED BY MASS8US INIT, DRIVE IN NEUTRAL 



.-ATTN BIT SET AFTER TIMEOUT. 'ERR' SET. NO REQUEST 



.•CAN'T READ ATTN BIT FROM OPPOSITE PORT 



.•RELEASE COMMAND RECOGNIZED WHEN I3SUFD BY NON-SEIZING PORT 



.•TIMEOUT ONE-SHOT IS LESS THAN 500 MS 



;RH/RM DIDN'T RESPOND TO ADDRESSING 



RMOS/5/2 DU POR 'ST 1 
FRROR POINTER TABLE 



H 8 
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5cV 




Ml Or jO 


33U 




1 U 1 Uf o 


531 






Die 


'JUcvJ'O 


ini <;PT 








77/. 






77C 






7XA 

3 jO 






777 






77a 
33o 


UUc 1 U*» 


1 ni PAD 


77Q 

33t 




im '5P^ 

1 V 1 JCJ 


7z.n 






7/.1 

3*» 1 






7Z.5 






j*» J 


nnpi If) 






nripi 1 ? 


100272 


3*» J 


UUc 1 1 *» 


1 V/ 1 joc 


7/ A 


UUc 1 1 o 


101 SIIA 


7Z.7 






7z.a 

3*»0 










0771 1 5 




nnpi pn 

VJUt. 1 1 W 


J J 1 






7^3 
3 JC 




1 V 1 J jC 


7';'< 
3j3 


UUc 1 cD 


101 ^P^ 


J J** 


















3 J f 




0771 A? 






100SS0 

1 \J\J J J\J 






initio 


TAD 


VA/C 1 JO 


101 S4i 


V>1 
jO 1 






jOc 














nopi^o 




J03 


nnpi^p 


077^^0 


7AA 

XX) 


A/Spl 


101 "^IP 


7A7 
jOf 


nnpi AA 


lOIS^I 




















371 


0021 50 


077271* 


372 


002152 


077604 


373 


0021 54 


101260 


374 


002156 


101523 


375 







EMS 7 
DH57 
DT57 
DF5 



.■ERROR 60 



EM60 
0H5 
DTS 
DF5 



.•ERROR 61 



EM61 
DH23 
DT23 
DF1 



.•ERROR 62 



E«62 
DH13 
DT13 
DF5 



.•ERROR 63 



EM63 
DH36 
DT36 
DF36 



.ERROR 64 



En64 

DH7 
DT7 
DF7 



.-ERROR 65 



EM65 
DH5 
DT5 
DF5 



;PORT REQUEST FLOPS WRONG 



.•ATTENTION BITS NOT RESET BV RMAS 



.•ATTENTION NOT RESET BY GO 



.•ATTENTION RESET BV GO WHEN NOT SEIZED 



.•DRIVE SEIZED BY UNIT READY CHANGE 



; ATTENTION NOT SET BY UNIT READY CHANGE 



;VV NOT RESET BY UNIT READY 



CZRMRBO RM05/3/2 DU PGR TST 1 
FRRCR DQIMTER TABLE 



1 
2 

3 002160 
k 002162 

5 0021 6A 

6 002166 
002172 



011600 
0057AO 
022626 

10A401 002174 
000417 





00223? 






7 


002232 


CI 0046 




8 


002234 


1 04402 




9 


002236 


0C0240 




10 








11 








12 








13 








U 


002240 


005037 


001 302 


'5 


002244 


000403 




16 








17 


002246 


012737 


1 77777 


18 








19 


002254 


000240 




20 


002256 


005227 


000000 


21 


002262 


001375 




22 


002264 


000005 




23 








24 










002266 


012706 


001100 




002272 


005026 






002274 


022706 


001140 




002300 


001374 






002302 


012706 


001100 



002306 
002314 
002322 
002330 
002336 
002344 
002352 
C02360 
002364 
002370 
002376 
002404 



012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 
012737 
012737 



066364 
000340 
066746 
000340 
072304 
000340 
065746 
001176 
001200 
000001 
002376 
002404 
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.•THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 



000020 
000022 
000030 
000032 
000034 
000036 
065740 



001115 
001106 
001110 



002412 


013746 


000004 




002416 


012737 


002452 


000004 


002424 


012737 


177570 


001140 


002432 


012737 


177570 


001142 


002440 


022777 


-[77777 


'\7kt^72 


002446 


001012 






002450 


000403 






002452 


012716 


002460 





BADTMO: MOV 
TST 



;;65$: 

64t: 



CMP 

TYPE 

BR 

.ASCII 

MOV 

TVPOC 

NOP 



(SP).RO 
-(RO) 

(SP)*,(SP)* 
.65$ 
64$ 



SAVE PC WHERE THE TIME OUT OCCURED 
ADJUST PC -2 
RESTORE STACK POINTER 
.-TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 



<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 



RO.-(SP) 



.S8TTL START OF PROGRAM 



START: 



CLR 
BR 



001302 STAfiTl: MOV 

START2: NOP 
INC 
6NE 
RESET 



CHGADR 
START2 

#-1, CHGADR 



#0 

.-4 



;SETUP FOR TYPING OUT PC 

;PUT •HALT(0>' INSTRUCTION HERE IF VOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 



.'CLEAR THE 'CHANGE RH/RM ADDRESS' INDICATOR 
;G0 TO THE STAi?T 

;SET THE 'CHANGE RH/RM ADDRESS' INDICATOR 



TTY LOOP, WAIT FOR INCREMENT 
OF WORD 

CLEAR THE WORLD 



S8TTI INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS ($CMTAG) AREA 
#$CMTAG,R6 
(R6> + 
#SWR,R6 
.-6 

fSTACK.SP 
FEW VECTORS 
#$SCOPE,*riOTVEC 
*340.a#I0TVEC+2 
#$ERR0R.8#EMTVEC 
#340.*rEMTVEC+2 
#$TRAP.a#TRAPVEC 



MOV 
CLR 
CMP 
BNE 
MOV 

.-.■INITIALIZE A 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLft 
CLR 
MOVB 
MOV 
MOV 



*340.8#TRAPVEC+2;LEVEL 7 



$ENDCT,$EOPCT 
SrjMES 
$E SCAPE 
*1.$ERMAX 
#..$LPADR 
*..$LPERR 



FIRST LOCATICtfJ TO BE CLEARED 
CLEAR MEMORY LOCATION 
DONE? 

LOOP BACK IF NO 
SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 
LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 
LEVEL 7 

.TRAP VECTOR FOR TRAP CALLS 



SETUP END-OF -PROGRAM COUNTER 
INITIALIZE NUMBER OF ITERATIONS 
CLEAR THE ESCAPE ON FRROR ADDRESS 
ALLOW ONE ERROR PER TEST 
INITIALIZE THE LOOP ADDRESS FOR SCOPE 
SETUP THE ERROR LOOP ADDRESS 



;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



; .-EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



64$: 



BR 
MOV 



-1", SETUP FOR A 
a»ERRVEC,-(SP) 
/(r64$.»rERRVEC 
/(TDSWR.SWR 
*DDISP. DISPLAY 

#-1 .aswR 
66$ 

65$ 

*65$.(SP) 



SOFTWARE SWITCH REGISTER. 
:SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SWICH REGISTER 
;ANO A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
;8RANCH IF NO TIMEOUT TRA^' OCCURRED 
;AND THE HARDWARE SWR IS NOT -1 
;8RANCH IF NO TIMEOUT 
SET UP FOR TRAP RETURN 



.ZftMRBO RM05/3/2 DU POR TST 1 
INIMALIZE THE COMMON TAGS 



MACRO VOA.OO 4-APR-8^ 



002456 
002460 
002466 
002474 



000002 
012737 
012737 
012637 



000176 
0001 74 
000004 



25 






26 002500 


012737 


002160 








28 






c~ 






002514 


005227 


1 77777 


002520 


001037 




002522 


022737 


066110 


002550 


001433 




002532 


104401 


002540 


002536 


000430 




002620 






002620 


005737 


000042 


002624 


001006 




002626 


025727 


001140 


002634 


001005 




002636 


104406 




002640 


000403 




002642 


11 2737 


000001 


002650 






30 






31 002650 


004737 


070610 


32 002654 


004737 


003246 


33 002660 


104<.01 


072572 


34 002664 


104412 




35 002666 


012637 


001224 


36 002672 


025727 


001 224 


37 002700 


101403 




38 OOP 70? 


104401 


072421 


39 002706 


000762 




40 002710 


013737 


001224 


41 002716 


005237 


001226 


42 002722 


04273/ 


000016 


43 002730 


013746 


001224 


44 002734 


042716 


1 77771 

I f f f f % 


45 002740 


052637 


001226 


46 002744 


104401 


072444 


47 002750 


013746 


001224 


002754 


104403 




002756 


001 




002757 


000 




48 002760 


104401 


072473 


49 00?764 


013746 


001226 


002770 


104403 




002772 


001 




002775 


000 




50 002774 


104401 


001207 



001140 
001142 



000004 
000006 



000042 



RT] 
MOV 
MOV 
66$: MOV 



65S: 



J 8 
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«SWREG,SWR ;, -POINT TO SOFTWARE SWR 
*D J SPREG, DISPLAY 

(SP)*.a#ERRVEC ;; RE STORE sERROR VECTOR 



StU 005/ 



.-SETUP "TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 

MOV *8ADTM0,ERRVEC ;S£TUP FOR UNEXPECTED TIMEOUT 
MOV #PR6.ERRVEC*2 .-LEVEL 6 



.S8TTL 
:;TYPE 



;;68$: 

67$: 

.S8TTL 



000176 
001134 



69$: 
70$: 



1$: 



000007 

001226 
001226 



2$: 



TYPE PROGRAM NAME 
THE NAME OF THE PROGRAM 



IF FIRST PASS 



INC 


#-1 


; .-FIRST TIMS'* 


BNE 


67$ 


;; BRANCH IF NO 


CMP 


»$ENDAD.a*42 


;;ACT-11? 


BEO 


67$ 


.-.-BRANCH IF YES 


TYPE 


.68$ 


.-.-TYPE ASCIZ STRING 


BR 


67$ 


.-.-GET OVER THE ASCIZ 


.ASCIZ 


<CRLF>aCZRMR80 


- RM05/3/2 DUAL PORT 



GET VALUE FOR SOFTWARE 

TST 3*42 

BNE 69$ 

CMP SWR.^rSWREG 

BNE 70$ 

GTSUR 

BR 70$ 

M0V8 <lfl.$AUT08 



SWITCH REGISTER 

ARE WE RUNNING UNDER XXDP/ACT? 
BRANCH IF YES 

SOFTWARE SWITCH REG SELECTED? 
BRANCH IF NO 
GET SOFT-SUR SETTINGS 

.-.SET AUTO-MODE INDICATOR 



JSR 

JSR 

TYPE 

RDOCT 

MOV 

CMP 

BLOS 

TYPE 

BR 

MOV 

INC 

BIC 

MOV 

BIC 

BIS 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

MOV 

TYPOS 
.BYTE 
.BYTE 
TYPE 



PC.STKINT 
PC, CHANGE 
,ENTERA 

(SP) ♦.PORTA 
PORTA. #7 
2$ 

.ADRERR 
1$ 

PORTA. POR TB 
PORTB 
#16,P0RTB 
PORTA, -;<SP) 
**C6.(SV) 
(SP)+. PORTB 
.PORTAIS 
PORTA, -(SP) 



1 
0 

.PORTBIS 
PORTB. -(SP) 



1 

0 

,$CRLF 



SETUP THE TTY KEYBOARD 
CHECK/CHANGE THE RH/RM ADDRFSS 
ENTER DRIVE ADDRESS 
GET THE ADDRESS 
STORE THE ADDRZSS 
SEE IF ADDRESS TOO LARGE 
8R IF NOT 

TYPE ADDRESS ERROR MESSAGE 
TRY AGAIN 

GENERATE THE PORT 6 ADDRESS 
INCREMENT THE ADDRESS 
LEAVE BIT 0 

PUT PORT A ADDRESS ON THE STACK 
-^lSAVE bits 1 6 2 

BJTS 1 6 2 IN PORT B ADDRESS 
;^PO»fr A ADDRESS IS ' 
SAVE PORTA FOR TYPEOUT 
TYPE PORT A ADDRESS 
60 TYPE— OCTAL ASCII 
TYPE 1 DIGIT(^) 
SUPPRESS LEADING ZEROS 
•PORT B ADDRESS IS ' 
SAVE PORTB FOR TYPEOUT 
TYPE PORT B ADDRESS 
GO TYPE—OCTAL ASCII 
TYPE 1 DIGIT(S) 
SUPPRESS LEADING ZEROS 
ANOTHER CR-LF 



CZRMRBO RW05/^/2 DU POR TST 1 MACRO VOA.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



o1 
62 



51 003000 

52 005006 

53 0030U 
5^ 003022 
55 003026 

58 003034 
003040 
003044 
003050 

59 003054 

60 003060 
003064 
003070 

63 003072 
64 
65 
66 

67 003074 

68 003076 

69 003102 

70 003106 

71 003112 

72 003116 

73 003122 
003124 
003130 

76 003134 

77 003140 

78 003146 

79 003154 

80 003162 

81 003166 

82 003170 

83 003172 

84 003174 

85 003200 

86 003204 

87 003206 

88 003212 

89 003214 

90 003216 

91 003220 

92 003226 

93 003232 

94 003240 

95 003244 
96 

97 
98 

99 003246 

100 003252 

101 003254 

102 003260 

103 003264 

104 003270 

105 003272 

106 003276 



74 

75 



013737 
C62737 
042737 
013701 
116137 
005037 
005037 
005037 
005037 
004737 
000137 
104401 
000000 
000776 



000005 

005037 

104401 

013700 

012706 

004737 

000240 

004737 

005037 

005037 

112737 

012737 

012737 

104401 

104412 

012601 

001002 

000' 

020 

003403 

104401 

000763 

005301 

006301 

016137 

005237 

012737 

000177 

000000 



005737 
001421 
005037 
104401 
013746 
104402 
(04401 
104401 



001224 
000006 
177770 
001224 
101672 
001 262 
001264 
001270 
001272 
066130 
003074 
072522 



1 7777t 
0C1207 
001304 
001100 
066130 

070610 
001300 
001100 
000001 
003146 
003154 
072560 



003374 
101702 

072600 



101556 
001300 
000001 
000000 



001302 

001302 
072640 
001304 

001207 
072675 



001250 
001230 
001230 

00123'S 



3$: 



4-APR-8 1 



MOV 
ADD 
BIC 
MOV 

Move 

CLR 

CLR 

CLR 

CLR 

JSR 

JMP 

TYPE 

HAl T 

BR 



K 8 
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SEO 0038 



PORTA.PORTC 

*6.P0RTC 

/)r-C7,P0RTC 

PORTA, Rl 

ATABITCRD.ASRl 

TIMEA 

TIMEAP 

UME8 

TJME8P 

PC, CKCLK 

EXEC 

,N0CL0CIC 
3$ 



;GEMERATE ADDRESS OF DRIVE NOT TESTED 

.•COMPLEMENT SOME BITS 

.•SAVE ONLY LOWER BITS 

.•USE PORT A ADDRESS AS INDEX 

;GET ATTENTION BIT FOR DRIVE 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATIC*^ 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•SETUP CLOCK 
.•CLOCK HAS BEEN STARTED 
;N0 CLOCK ON SYSTEM 
.•FATAL ERROR 
.-INTERLOCK THE HALT 



.•ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 



EXEC; 



001115 
001106 
001110 



003244 
001104 



1$: 

2$: 
3$: 

4$: 



RESET 




CLR 


PS 


TYPE 


.tCRLF 


MOV 


SRMADR.RO 


MOV 


(ITS TACK, SP 


JSR 


PCCKCLK 


NOP 




JSR 


PC.STKINT 


CLR 


KYSCTL 


CLR 


$PASS 


MOVE 


#1,$ERMAX 


MOV 


#.,$LPAOR 


MOV 


#.,$LPERR 


TYPE 


.TESTNO 


RDOCT 




MOV 


(SP)*.R1 


BNE 


2f 


JWP 


TSTl 


CMP 


Rl ,WAXTN 


BLE 


3S 


TYPE 


,BADNO 


BR 


IS 


DEC 


R1 


ASL 


Rl 


MOV 


TSTADR(R1),4$ 


INC 


KYSCTL 


MOV 


#1-$ICNT 


JMP 


i4i 


.WORD 


0 



; CLEAR EVERYTHING 

.•CLEAR THE PROCESSOR STATUS WORD 

; CR-LF 

;RH/RM ADDRESS FOR INDEXING 

.-LOAD STACK POINTER 

.-START THE CLOCK 

.•RETURN IF NO CLOCK 

.•INITIALIZE THE KEYBOARD 

.•CLEAR SINGLE TEST INDICATOR 

.•CLEAR THE PASS COUNT 

;SET ERROR MAX TO 1 

.•INITIAL SETTING FOR LOOP ADDRESS 

.-INITIAL SETTING FCJR LOOP ON ERROR ADDRESS 

.•ASK FOR TEST NLWER 

;GET THE NUMBER 

;PUT ENTRY INTO Rl 

;8R IF NOT ZERO 

.•ENTER ZERO - PERFORM ALL TESTS 

;SEE IF NUMBER GREATER THAN MAXIMUM 

;BR IF LESS OR EQUAL 

.BAD ENTRY 

;TRY A6AJN 

.•DECREMENT ENTRY 

.•SHIFT IT LEFT 

.-GET THE TEST ADDRESS 

;SET SINGLE TEST INDICATOR 

.•PRESET ITERATION COUNT 

;G0 TO THE SELECTED TEST 

.TEST ADDRESS GOES HERE 



.•CHANGE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 



CHANGE: TST 
BEQ 
CLR 

1$: TYPE 
MOV 
TYPOC 
TYPE 
TYPE 



CHGADR 
3S 

CHGADR 

.ADDRIS 

$RriADR.-(SP) 

,$CRLF 
.NTRH 



.•CHANGE THE ADDRESS ? 
;8R IF NOT 

.-CLEAR THE INDICATOR 
.•TYPE OUT WHAT THE PRESENT ADDRESS IS 
;PUT THE ADDRESS ON THE STACK 
;TYPE THE ACTUAL ADDRESS 

; CR-LF 

.-ASK FOR NEW ADDRESS 



CZRMftBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 
GET VALUE FOR SOFTWARE SWITCH REGISTER 



L 8 
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^07 
108 
109 

no 
111 

112 
113 
lU 
115 
^16 

11/' 
118 
119 
120 



003302 
0O330A 
00^306 
003310 
003314 
003316 
00332A 
003330 
003334 
003336 
003336 
003340 
003544 
003346 
003354 



1044V 
005716 
001402 
011637 
005726 
012757 
013700 
005760 
000404 

104056 
062706 
000745 
012737 
000207 



001 304 

003336 
001304 
000002 



000004 



000004 



2S: 
3»: 



4$: 



000006 000004 5$: 



RDOCT 

TST 

BEO 

MOV 

TST 

MOV 

MOV 

TST 

BR 

EMT 

ADD 

BR 

MOV 

RTS 



(SP) 
2$ 

(SP),$RMADR 

(SP)* 

#4$,a#4 

SRMADR.RO 

RMUC(RO) 

5S 

56 

#4,SP 
U 

tf6,a»y4 
PC 



S£0 0059 



0 OR 'CR* ENTERED ? 

BR IF EITHER ENTERED (NO ADDRESS CHANGE) 

NEW RH/RM ADDRESS 

CORRECT THE STACK P01^ TER 

LOAD TRAP ADDRESS 

GET RH/RM ADDRESS 

RESPONDS AT THAT ADDRESS ? 

BR IF VES 



RESET THE STACK POINTER 
GET ADDRESS AGAIN 
RESTORE THE VECTOR 
RETURN 



CZRMRBO RM05/3/2 OU POR 'ST 1 

TESTb 



MACRO V04.00 



M 8 
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SFQ OOAC 



1 
2 
16 
17 
18 



19 

?0 



.S8TTL TESTS 



003356 013700 001304 

003362 012746 000240 

003366 012746 003374 

003372 000002 
003374 



TST1AA: 



64S: 



MOV 
MOV 
MOV 
RT] 



SRMADR.RO 
#PR5.-(SP) 
#64$, -(SP) 



.RESTORE RO AFTER END OF PASS 

;PUT NEW PS ON STACK 

;PUT NEW PC OK STACK 

;POP NEW PC AND PS 



TEST 1 NEUTRAL ACCESS TEST 

VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 

A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 
DRIVE IS A DUAL PORT RM05, RM03 OR RM02 AND THAT THE DRIVE 
IS ONLINE (RMDS HAS 'MOL'. 'PGM', 'DPR', & 'DRY' BITS SET), 
AND THE THE DRIVE SERIAL NUMBER READ THROUGH BOTH PORTS IS 
'HE SAME. 

B. THE TEST IS REPEATED THROUGH BOTH PORTS. 





003374 








TST1: 






003374 


005737 


001300 






TST 




003400 


001406 








BEO 




003402 


100002 








BPL 




003404 


000137 


003074 






JMP 




003410 


012737 


1 77777 


001300 


1$: 


MOV 




003416 


012737 


003432 


001106 


2$: 


MOV 




003424 


012737 


003432 


001110 




MOV 




003432 








TEST1 : 






003432 


112737 


000001 


001102 




M0V8 




003440 


012706 


001100 






MOV 




003444 


012737 


000001 


001176 




MOV 


22 003452 


012760 


000040 


000010 




MOV 


24 










.■VERIFY 


THAT 


25 












33 


003460 


113760 


001224 


000010 




M0V8 




005466 


013737 


00122'. 


001240 




MOV 




003474 


005760 


000012 






TST 




003500 


005037 


001250 






CLR 




003504 


016037 


000010 


001126 




MOV 




003512 


012737 


000010 


001122 




MOV 




003520 


060037 


001122 






ADD 




003524 


005037 


001124 






CLR 




.003530 


013737 


001126 


001164 




MOV 




003536 


042737 


^67777 


001164 




BIC 




003544 


023737 


001124 


001164 




CMP 




003552 


001414 








BEO 




003554 


013737 


001126 


001174 




MOV 




003562 


042737 


010000 


001174 




BIC 




003570 


053737 


001174 


001124 




BIS 




003576 


104037 








EMT 




003600 


005137 


001250 






COM 



KYBCTL 

2$ 

1$ 

EXEC 

*-T.KYBCTL 
*TEST1,$LPADR 
#TEST1 ,$LPERR 

*1.$TSTNM 
#STACK.SP 

iri.$TiMes 



PERFORMING ONLY SiNGLE TEST ? 
8R IF NOT 

BR IF JUST ENTERED T£ST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *1 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 1 ITERATION 



#CLR,RMC^2(R0) ; INITIALIZE THE MASS8US 
.VERIFY THAT DRIVE IS PRESENT THROUGH PORTS A & B 
PORTA,RMCS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .-SEE IF DRIVE (PORT A) PRESENT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

R«CS2(R0),S8DDAT ;GET CONTtNTS OF RMCS2 
#RMCS2.t8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO 'STMPO' 
.SAVE SPECIFIED BITS 
: COMPARE THE BITS 
;8R IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 



RO.SBDADR 
SGDDAT 

S8DDAT,STMP0 
#*CNED,$TMP0 
$GDDAT,$TMPO 
64$ 

$8DDAT,$TMP4 
*NED,$TMP4 
$TMP4,$GDDAT 
37 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CZRMRBO RM05/3/2 OU POR TST 1 
Tl NFUTRAL ACCESS TEST 



00360A 
003606 
003612 
0036K 
003622 
003630 
003636 
0036A2 
003646 
00365A 
003662 
003666 
003672 
003700 
003706 
003714 
003716 
003724 
003732 
C03740 
003742 
003746 
003750 
003754 
003756 

34 

35 
36 

40 003764 
003772 
004000 
004004 
004012 
004020 
004024 
004032 
004040 
004042 
004050 
004052 
004060 
004062 
004064 
004070 
004072 
004100 
004106 
004112 
004120 
004126 
004132 
004140 
004146 
004150 
004156 
004160 
004166 



MACRO V04.00 



N 8 
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SEO 0041 



000240 






64$: NOP 


005737 


001250 




TIT 

TST 


001403 






6EQ 


012760 


000040 


000010 


MOV 


1 1 3760 


001226 


00001 0 


M0v8 


013737 


001226 


A A -i ^ / A 

001 240 


MOV 


005760 


000012 




T C T 

TST 


005037 


001250 




CLR 


016037 


000010 


A A 1 1 T ^ 

OOr 26 


MOV 


0\2757 


00001 0 


AA1 in 

001 1 2c 


MA V / 

MOV 


060037 


001 12c 




ADD 


005037 


001 1 24 




/* 1 A 

CLR 


0137^7 


001 1 26 


AA 1 1 ^ / 

001164 


MOV 


042737 


167777 


AA1 1 ^/ 

001 164 


BIC 


023757 


001 1 ^4 


AA 11^/ 

001 164 


CnP 


001414 






A 

ocQ 


013737 


001 1 c6 


AAi 1 "7/ 
001 1 f** 


nOV 


A/ 


A1 A AAA 

01 uooo 


AAI 1 7/ 
UOl 1 /^4 


oi L 


033737 


AA1 17/ 

001 1 /4 


AAI I "5/ 

001 lc4 


D T C 
□ JS 










005137 


001250 




COM 


000240 






66$: NOP 


005737 


001250 




TST 


001403 






BEQ 


012760 


000040 


000010 


MOV 



113760 
013737 
005037 
016037 
012737 
060037 
012737 
022737 
001413 
022737 
001407 
023737 
001403 
104001 
005137 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
022737 
001413 
Q227Z7 
001407 
025757 
001403 



CKERR ;WAS 'NED* SET ? 

. + 10 .-BR IF NOT ; 

*CLR.RMCS2(R0) ; ISSUE MASS8US INI r TO CLEAR 'NED' 
PORTS. RMCS2(R0) .'SELECT PORT 0 

PORTS. PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TrPEOUT 
RMDS(RO) .-SEE IF DRIVE (PORT B) PRESENT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

R«CS2(R0).$8DDAT ;GET CONTENTS OF RMCS2 
*Ri'>1CS2,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO 'STMPO' 
SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;8R IF OK 
;COPY 'SAD DATA' 
: CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 



RO.SSDADR 
SGDDAT 

$8DDAT,$TMP0 
#*CNED,$TMPO 
SGDDAT. STMPO 
66S 

$8DDAT,$TMP4 
*NED,$TMP4 
$TMP4, SGDDAT 
37 

CKERR 



CKERR 
.♦10 

#CLR,RMCS2(R0) 



;SET THE REGISTER COMPARE ERROR INDICATOR 

WAS 'NED' SET ? 
8R IF NOT 

ISSUE MASS8US INIT TO CLEAR 'NED' 



.-CONFIRM THAT DRIVE IS AN RM05. RM03 OR RM02 AND IS DUAL PORTED 



001224 
001224 
001250 
000026 
000026 
001122 
024027 
024024 

024025 

001124 



001250 

001226 
001226 
001250 
000026 
000026 
001122 
024027 
024024 

024025 

001124 



000010 
001240 

001126 
001122 

001124 
001126 

001126 

001126 



000010 
001240 

001126 
001122 

001124 
001126 

001126 

001126 



68S: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 

EMT 

COM 

NOP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEQ 

CMP 

BEQ 

CMP 

BEQ 



P0RTA,RMCS2(R0J .-SELECT PORT A 

PORTA.PTHBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDT(RO),SeDDAT ;GET CONTENTS OF RMDT 
#RMDT.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.$8DADR 
#024027, SGDDAT 
#024024, SBDDAT 
68S 

#024025, SBDDAT 
68S 

SGDDAT, SBDDAT 
68$ 

1 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
DUAL PORT RM03 ? 
YES !! 

DUAL PORT RM02 ? 
YES !! 

IS THE REGISTER OK ? 
8R IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDT (RO), SBDDAT ;6ET CONTENTS OF RJ-IDT 
#RMDT,S8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.S8DADR 
#024027, SGDDAT 
#024024, SBDDAT 
70$ 

#0240«;5, SBDDAT 
70S 

SGDDAT, SBDDAT 
70S 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOU! D BE 
DUAL PORT RM03 ? 
YES !! 

DUAL PORT RM02 ? 
YES !! 

IS THE REGISTER OK ? 
SR IF OK 



ZiRmQO W05/3/2 DU POR TST 1 
n NEUTRAL ACCESS TEST 



HACRO V04.0C 
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SEQ 004^ 



004170 


104001 








FMT 


004172 


005137 


C012S0 






COM 


004176 

41 


000240 






70$: 


NOP 


42 








.•VERIFY 


THROl 


43 












48 004200 


1 1 3760 


001224 


000010 




nove 


004206 


013737 


001224 


001 240 




nov 


0042K 


005037 


001250 






CLR 


004220 


016037 


000012 


001126 




MOV 


004226 


012737 


000012 


001122 




MOV 


D04254 


060037 


001122 






ADD 


004240 


012737 


001000 


001124 




MOV 


004246 


013737 


001126 


001164 




MOV 


004254 


042737 


1 76777 


001164 




BIG 


0CK262 


023737 


001124 


001164 




CMP 


004270 


001414 








BEQ 


004272 


013737 


001126 


001174 




MOV 


004500 


042737 


001000 


001 1 74 




BiC 


004306 


053737 


X1 174 


001124 




BIS 


004314 


104045 








EMT 


004316 


005137 


001250 






COM 


C04522 


000240 






72$: 


NOP 


004524 


005037 


001250 






CLR 


004330 


016037 


000012 


001 126 




MOV 


004336 


012737 


000012 


001122 




MOV 


004344 


060037 


001122 






ADD 


004350 


012737 


010600 


001124 




MOV 


004356 


013737 


001126 


001164 




MOV 


004364 


042737 


^ 67177 


001164 




BJC 


004372 


023737 


001124 


001164 




CMP 


004400 


001414 








BEO 


004402 


013737 


001126 


001174 




MOV 


004410 


042737 


010600 


001 1 74 




BIT 


004416 


053737 


001 1 74 


001124 




BIS 


004424 


104002 








EMT 


004426 


005137 


001250 






COM 


004432 


000240 






74$: 


NOP 


004434 


113760 


001226 


000010 




M0V8 


004442 


013737 


001226 


001240 




MOV 


004450 


005037 


001250 






CLR 


C04454 


016037 


000012 


001126 




MOV 


004462 


012737 


000012 


001122 




MOV 


004470 


060037 


001122 






ADD 


004474 


012737 


001000 


001124 




MCV 


004502 


013737 


001126 


001164 




MOV 


004510 


042737 


1 76777 


001164 




BK 


004516 


023737 


001124 


001164 




CMP 


004524 


001414 








BEQ 


004526 


013737 


001126 


001 1 74 




MOV 


004534 


042737 


001000 


001174 




BIC 


004542 


053737 


001174 


001124 




BIS 


004550 


104045 








EMT 


004552 


OC5137 


001250 






COM 


004556 


000240 






76$: 


NOP 


004560 


005037 


001250 






CLR 


004564 


016037 


000012 


001126 




MOV 



1 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•VERIFY THROUGH BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
PORTA, RMCS2(R0) .SELECT PORT A 

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMOS(R0).$8DDAT ;G£T CONTENTS OF RMDS 
#RMDS.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.■COPY 'BAD DATA' 
.CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
#PGM.$GDDAT 
$8DDAT,$TMP0 
#*CP6M.$TMP0 
$GDDAT.$TMPO 
72$ 

$eDDAT.$TMP4 
#PGM.$TMP4 
$TMP4.$GDDAT 

45 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 
#R«DS.$eDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR .ADD RH/RM BASE ADDRESS 

#MOL!DPR!DRY,$GDDAT ;yKAT REGISTER SHOULD BE 
$8DDAT,$TMP0 .-MOVE REGISTER CONTENTS TO •$TMPO' 
#*C10600,$TMP0 .SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
.•BR IF OK 
;COPV 'SAO DATA' 
.•CLEAR TME MASKED BITS 
.•'OR' WITH GOOD DATA FOR TYPECJT 



$GDDAT.$TMPO 
74$ 

$BDDAT.$TMP4 
#10600,$TMP4 
$TMP4.$GDDAT 

2 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTS. RMCS2(R0) .'SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADO RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

.'MOVE REGISTER CONTENTS TO '$TMPO' 
:SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
*PGM.$GDDAT 
$8DDAT,$TMP0 
/»*CPGM,$TMPO 
$GDDAT.$TMPO 
76$ 

$8DDAT.$TMP4 
#PGM,$TMP4 
$TMP4,$GDDAT 
45 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMD5(R0).$8DDAT ;GET CONTENTS OF RMDS 



RMOS/3/*? DU POR TST 1 
NEUTRAL ACCESS TEST 



0(K572 
004600 
004604 
004612 
004620 
004626 
004634 
004636 
004644 
004652 
004660 
004662 
004666 

49 
50 
51 

52 004670 

53 004676 

54 004704 

55 004712 

56 004720 

57 004726 

58 004730 

59 004732 

60 004740 

61 004742 

62 004744 
63 

81 
82 



012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
P53737 
104002 
005137 
000240 



113760 
016037 
1 1 3760 
016037 
023737 
001406 
104003 
032777 
001001 
000000 
000004 



000012 
001122 
010600 
001126 
167177 
001124 

001126 
010600 
001174 

001250 



001224 
000030 
001226 
000030 
001124 



MACRO V04.00 



001122 

001124 
00r64 
00r64 
001164 

001 1 74 
001 1 '4 
001124 



78S: 



C 9 
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000010 
001124 
000010 
001126 
001126 



100000 174200 



MOV 
ADD 
MOV 
MOV 
B!C 
CMP 
BEO 
MOV 
SIC 
BIS 
EMT 
COM 
NOP 



#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSACf 
R0,$8DADR .-ADD RH/RM BASE ADDRESS 

#MOL!DPR!DRV.$GDDAT ;UKAT REGISTER SHOULD BE 



SBDDAT.STMPO 
#»C10600.$TMP0 
$GDDAT.$TMPO 
78$ 

$8DDAT,$TMP4 
#10600, $TMP4 
ST^4,$60DAT 

2 

CKERR 



.•MOVE REGISTER CONTENTS TO 'JIMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
.BR IF OK 
;COPV 'BAD DATA* 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TVPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.-VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 



IS: 



MOVB 

MOV 

MOVB 

MOV 

CMP 

BEQ 

EMT 

BIT 

BNE 

HALT 

SCOPE 



PORTA.RHCS2(R0) 

RMSN(RO).$GDDAT 

P0RTB.RMCS2(R0) 

RMSN(RO),SBDDAT 

$GDDAT,S6DDAT 

IS 

3 

#sui5,aswR 

IS 



.•SELECT PORT A 

; STORE THE PORT A SERIAL NUMBER 
.•SELECT PORT B 

.-STORE THE PORT B SERIAL NUMBER 
;ARE THEY THE SAME ? 
;BR IF THEV ARE 

•HALT ON ERROR 

;BR IF SET - PROGRAM HAS ALREADY HALTED 
;HALT, POSSIBLE CABLE CONNECTION PROBLEM 
.•LOOP ? 



•TEST 2 



PORT "A* SEIZE/TIMEOUT TEST 



»VERIF 

• A. 
* 

• B. 

• C. 

* 



Y THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

WRITE O'S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

READ EACH DRIVE REGISTER, EXCEPT RMCSI . THROUGH PORT 'B'; 
VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 

NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 



004746 








tsT2: 






004746 


005737 


001300 






TST 


KYBCTL 


004752 


001406 








BEO 


2S 


004754 


100002 








8PL 


IS 


004756 


000137 


003074 






JMP 


EXEC 


004762 


012737 


1 77777 


001300 


1$: 


MOV 


#-1 .KYBCTL 


004770 


012737 


005004 


001106 


2$: 


MOV 


#TEST2,SLPADR 


004776 


012737 


005004 


001110 




MOV 


#TEST2.SLPERR 


005004 








TEST2: 






005004 


112737 


000002 


001102 




MOVB 


*2,STSTNM 



.•PERFORMING ONLY SINGLE TEST . 
;8R IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN t GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

.•MOVE #2 TO TEST NUMBER 



CZfMRBO RM05/3/2 oU POR TST 1 MACRO V04.00 
T,' PORT 'A* SEIZE /TIMEOUT TEST 



83 
151 



005012 
005016 

005024 
005032 
005036 
005042 



005046 
005052 



005060 
005066 
005074 
005100 
005106 
005114 
005122 
005130 
005154 
005142 
005146 
005154 
005156 
005160 
005164 
005164 
005172 
005200 
005206 
005214 
005222 
005230 
005234 
005242 
005250 
005256 
C05260 
005262 



005264 
005272 
005300 
005304 
005310 
005314 
005320 
005324 
005330 
005334 
C05340 



012706 
012737 

012737 
005037 
005037 
005037 



005037 
012737 



1 1 3760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



1 1 3760 
013737 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 



001100 
000002 

000240 
001262 
001264 
001266 



001256 
003720 



001224 
001224 
000006 
001226 
00 1226 
001226 
000012 
001122 
000012 
001124 
001124 



006312 

001224 
001224 
000012 
020001 
011600 
001124 
001166 
001126 
001166 
001124 



001176 
177776 



001260 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



001226 000010 

001226 001240 

000046 

000044 

000030 

000034 

000032 

000042 

000020 

000026 

OOOOOfc 
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MOV fSTACK.SP .-LOAD THE STACK POINTER 

MOV #2..$T1MES ;;D0 2. ITERATIONS 

MOV #<5«32.>,a*PS ;SET PRIORITr TO 5 IN CASE LOOPING 

CLR TIMEA ;CL5AR TIMEOUT VALUE FOR PORT A 

CLR TIMEAP .-CLEAR UPPER TIMEOUT TOLERANCE 

CLR TIMEAM ; CLEAR LOWER TIMEOUT TOLERANCE 



SEO 0044 



.■START THE TIMER 

CLR 
MOV 



TIME 

*2000. .WATCH 



.•CLEAR THE ELAPSED TIME COUNTER 
;£ET WATCH TO 2000, MS 



.•SEIZE THE DRIVE THROUGH PORT A 



64$: 



65S: 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

con 

MOV 
BIC 
CMP 
BEQ 
EMT 
NOP 



PORTA, RMCS2(R0) .'SELECT PORT A 
PORTA. SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDA(RO) .-WRITE RMDA 

PORT8.RMCS2(R0) ;SELECT PORT B 

PORTS. PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 



P0RT8.0PPRT 
RMDS(R0).$eDDAT 
R0,$8DADR 
»RMDS,SBDADR 
SGDDAT 

SGDDAT.SeDDAT 
64$ 

4 

5$ 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

8YPASS REST OF THE SUBTEST 



PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
R»1DS(R0),$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M!PIP,$8DDAT ;CLEAR DONT CARE BITS 

*«OL)PGM!DPRiDRY.$GDDAT .-EXPECTED STATUS 
$GDDAT,$TnP1 :USE GOOD DATA AS A MASK 



$Tf1P1 
$8D0AT,$TMP0 
$TMP1 .$TMPO 
$GDDAT.$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET 
BR IF THEY ARE 



;READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 



M0V8 PORTS, RMCS2(R0) ;SELEC 

MOV PORTS. PTNBR .-MOVE PORT 

MOV RMEC2(R0).-(SP) .STORE 

MOV R«EC1(R0),-(SP) .-STORE 

MOV RMSN(RO),-(SP) ;STORE 

MOV RMDC(RO).-(SP) ; STORE 

MOV RMOF(RO),-(SP) .-STORE 

MOV RMER2(R0),-(SP) .'STORE 

MOV RMLA(RO).-(SP) .'STORE 

MOV RMDT(RO),-(SP) .'STORE 

MOV RMDA(RO),-(SP) .'STORE 



T PORT B 
ADDRESS TO LOCATION FOR TYPEOUT 
REGISTER RMEC2. PORT B, FOR CHECK 
REGISTER RMECl, PORT B. FOR CHECK 
REGISTER RMSN, PORT B. FOR CHECK 
REGISTER RMDC, PORT B. FOR CHECK 
REGISTER RMOF. PORT B, FOR CHECK 
REGISTER RMER2, PORT B. FOR CHECK 
REGISTER RMLA. PORT B. FOR CHECK 
REGISTER RMDT. PORT B. FOR CHECK 
REGISTER RMDA, PORT B. FOR CHECK 



'ZRMRBO RM05/3/2 DU POR 'ST 1 MACRO VOA.OO 
T? PORT SEIZE/TIMEOUT TEST 



005550 



00535A 
005360 
005362 
005366 
005370 
0D5372 
005376 
005A0A 
005412 
005416 
005420 
005424 



0C5430 
005436 
005440 



016046 
016046 



005760 
001006 
005737 
001 372 
104036 
000137 
012737 
013737 
004537 
001262 
012637 
012637 



023727 
103001 
104055 



000024 
C00014 



00001 2 
001260 



005776 

000340 1 77776 
001 2S6 001262 
066324 

001264 
001266 



001256 000764 



4-APR-81 



MOV 



E 9 

18:06:25 PAGE 10-5 



RMriR1(R0),-(SP) .-STORE REGISTER RtTfi^, PORT B, FOR CHECK 
RMER1(R0),-(SP) .-STORE REGISTER RMER1. PORT B, FOR CHECK 



SEO 0045 



;WAIT FOR PORT A TO TIMEOUT 

1$: TST RMDS(RO) 

BNE 2$ 

TST WATCH 

BNE 1S 

EMT 36 

JMP 4$ 

2$: MOV ff<7«32.>.a*PS 

MOV TIME.TIMEA 

JSR R5.T0LER 

.WORD TI/MEA 

MOV (SP)*.TIMEAP 

MOV (SP)*.TIMEAM 



WAIT FOR THE DRIVE TO TIMEOUT 
BR WHEN TIMEOUT OCCURS 
CHECK. WATCH 
8R IF NOT ZERO 

BYPASS TIMEOUT TIME CHECK 

SET PRIORITY TO 7 TO STOP CLOCK 

SAVE THE ELAPSED TIME FOR PORT A 

CALCULATE THE TOLERANCE 

TIMEOUT VALUE FOR PORT A 

♦25X TOLERANCE 

-25% TOLERANCE 



.-VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 



CMP 

BHIS 

EMT 



TIME.*500. 

3$ 

55 



.-WAS MEASURED TIME AT LEAST 500 MS? 
.-BR IF IT WAS 



.-VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
005442 012737 000240 177776 3$: MOV *<5»32.> .a#PS .RESTORE PRIORITY TO 5 



.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



005450 
005454 
005462 
005466 
005474 
005502 
005510 
005516 
005524 
005532 
005540 
005546 
005554 
005562 
005570 
005576 
005600 
005604 
005606 
005610 
005614 
005622 
005630 
005636 
005642 
005644 
005652 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001037 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 



001254 
000012 
001122 
011600 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



005774 
001 1 70 
001226 
001226 
001164 

001224 
001172 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 



66$: 



CLR RELERR 

MOV #R«DS,$8DADR 

ADD RO.SBDADR 

MOV *MOL!PGM!DPRIDRY 

M0V8 PORTA. RMCS2(R0) 

MOV RMDS(R0),$TMP2 . 

BIC *PIP i URL !0M.STf1P2 

MOV $TMP2.$TMP0 

BIC <rATA!VV,$TMP0 

M0V8 PORT8.RMCS2(R0) 

MOV RM0S(R0>.»TMP3 . 

BIC *PI P!WRL!0M.STMP3 

MOV $TMP3,$TMP1 

BIC *ATAIVV,$TMP1 

CMP $TMP0,$TMP1 

BNE 66S 

TST $TMPO 

BNE 68$ 

EMT 46 

JMP 70$ 

MOV $TMP2.$8DDAT 

MOV PORTB.PTNBR 

M0V8 PORT8,RMCS?(R0) 

TST $TMPO 

BEO 67$ 

MOV PORTA.PTMBR 

MOV $TMP3.$8DDAT 



CLEAR THE 'RELEASE ERROR * INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.•CLEAR OONT CARES 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT 8. 

GET THE DRIVE STATUS REGISTER FROM PORT B, 

.-CLEAR DONT CARES 
COPY IT INTO '$TMP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: Ar^ THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 

8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'8AD DATA' FOR ERROR TYPE OUT 



F 9 

'>'<^<^Bj RM05/?/2 DU POR TST 1 MACRO VOA.OO 4-APR-8t 18:06:25 PAGF 10-6 
PORT 'A' SEIZE/TIMEOUT TEST 



005660 


t;3760 


001224 


000010 




M0V8 


PORTA. RMCS2(R0) 


.•SELECT PORT A. 


/ 


005666 


005737 


001166 






TST 


$TMP1 


;SEE IF STATUS EO ZERO rkon PORT 


B. 


005672 


001004 








BNE 


68$ 


;8R IF NOT 




00567A 


012737 


}77777 


001254 


67$: 


MOV 


*-1 .RELERR 


.-SET 'RELEASE ERROR' INDICATOR 




005702 


104022 








EMT 


22 






00570^ 


013737 


001170 


001126 


68$: 


MOV 


$TMP2,$BDDAT 


.•LOOK FOR BIT FAILURES WHEN RMDS 


READ 


005712 


013737 


001224 


001240 




MOV 


PORTA, PTN8R 


.•CHANGE PORT NUM3ER 




005720 


042737 


100100 


001126 




BJC 


*ATA. VV,$BDDAT 


;DON*T CHECK ATTN BIT OR VV BIT 




005726 


023737 


001124 


001126 




CMP 


$GDDAT,$BDDAT 


;ALL BITS OK ? 




005734 


001401 








BEQ 


69$ 


;8R IF OK FROM PORT A. 




005736 


104007 








EMT 


7 






005740 


r'3737 


001 1 72 


001126 


69$: 


MOV 


$TMP3,$BDDAT 


.•CHECK RMDS FOR BIT FAILURES - FROM POPT 


005746 


0(3737 


001226 


001240 




MOV 


P0RT8.PTN8R 


.CHANGE PORT NUMBER 

; DON'T CHECK ATTN BIT OR VV BF 




005754 


042737 


100100 


001 126 




BIC 


/IfATA. VV,$BDDAT 




005762 


023737 


001124 


001126 




CMP 


$GDDAT,$6DDAT 


.SEE IF READ OK FROM PORT B. 




005770 


001401 








BEO 


70$ 


;8R IF OK 




005772 


104007 








EMT 


7 






005774 


000240 






70$: 


NOP 









.•CHECK THE REGISTERS STORED THROUGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
;THE REGISTERS ARE STORED ON THE STACK. 



005776 


013737 


001226 


001240 4$: 


MOV 


PORTB.PTNBR 


.'CHANGE PORT NLMBER TO THE OPF*OSITE 


006004 


010037 


001 122 




MOV 


R0.$8DADR 


;8ASt ADDRESS FOR RfcGISTcR RMtRl 


006010 


C62757 


0000 H 


001 122 


ADD 


*F<MER1 ,$oDADR 


. A A AAP ^ C AP riAAl* A 1 F AA T W AC Af 1 T 

.•ADDRESS Or RncRl FOR TYPtOUT 


006016 


rtl 

012637 


Art! 1 

001 126 




MOV 


C5P/*,»oPDAT 


.CHECK THt STORED CONTENTS Or RMcRl 


006022 


001401 






BcO 




.CONTENTS ZERO 7 


006024 


104CX)6 






EMT 


6 




U<j6026 


010037 


001 122 




MOV 


R0.$6DADR 


;BASc ADDRESS FOR REGISTER RfWRl 


CX)6032 


^^^^ 

0t2757 


000024 


001 1 22 


ADD 


*RmR ! ,$8DADR 


.•ADDRESS OF RfTWl FOR TtPEOUT 


UJDU*tU 


U 1 cOj' 


\>\J 1 1 CO 




nu V 






006044 


001401 






BEQ 


.♦4 


.CONTENTS ZERO ? 


006046 


104006 






EMT 


6 




006050 


010037 


001122 




MOV 


RO,$eDADR 


;8ASE ADDRESS FOR REGISTER RMDA 


006054 


062737 


000006 


001122 


ADD 


/VRMDA.SBDADR 


.•ADDRESS OF RMDA FOR TYPEOOT 


006062 


012637 


001126 




MOV 


(SP)*.$8DDAT 


.CHECK THE STORED CONTENTS OF RMDA 


006066 


001401 






BEQ 




; CONTENTS ZERO ? 


006070 


104006 






EMT 


6 




006072 


010037 


001122 




MOV 


RO,$eDADR 


.BASE ADDRESS FOR REGISTER RMOT 


006076 


062737 


000026 


001122 


ADD 


#RnDr,SGDADR 


.ADDRESS OF RMDT FOR TYPEOUT 


C06104 


012637 


001126 




MOV 


(SP)*.$8DDAT 


; CHECK THE STORED CONTENTS OF RMD^ 


C06110 


001401 






BEQ 




.•CONTENTS ZERO ? 


006112 


104006 






EMT 


6 




006114 


010037 


001122 




MOV 


R0.$8DADR 


;8ASE ADDRESS FOR REGISTER RMLA 


006120 


062737 


0000^0 


001122 


ADD 


*RMLA.$8DADR 


.•ADDRESS OF RMLA FOR TYPEOUT 


006126 


012637 


001126 




MOV 


(SP)*.$8DDAT 


.•CHECK THE STORED CONTENTS OF RMLA 


006132 


001401 






BEQ 


.♦4 


.•CONTENTS ZERO ? 


006134 


104006 






EMT 


6 


.BASE ADDRESS FOR REGISTER RMER2 


006136 


010037 


001122 




MOV 


R0,$8DADR 


006142 


062737 
012637 


000042 


001122 


ADD 


*RMER2.$8DADR 


.•ADDRESS OF RMER2 FOR TYPEOUT 


006150 


001126 




MOV 


(SP)+.$BDDAT 


.•CHECK THE STORED CONTENTS OF RMER2 


006154 


001401 






BEQ 




.•CONTENTS ZERO ? 


006156 


104006 






EMT 


6 




006160 


010037 


001122 




MOV 


R0.$8DADR 


;aASE ADDRESS FOR REGISTER RMOF 


006164 


062757 


000032 


001122 


ADD 


#RMOF.$BDADR 


.•ADDRESS OF RMOF FOR TYPEOUT 


006172 


012637 


001126 




MOV 


(SP)*.$BDDAT 


.•CHECK THE STORED CONTENTS OF RMOF 


0061 76 


001401 






BEQ 


.♦4 


.•CONTENTS ZERO ? 



:«MRBO ftM05/?/2 DU POR TSr 1 MACRO VOA.OO 
PORT -A' SEIZE/TIMEOUT TEST 
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152 
170 
171 



\72 
17? 



006200 


104006 






EWT 


6 






006202 


010037 


coil 22 




MOV 


RO.SBDADR 


.-BASE ADDRESS FOR 


REGISTER RMOC 


006206 


062737 


000034 


001122 


ADD 


*RMDC,$BDADR 


.•ADDRESS OF RMDC FOR TVPEOUT 


0062K 


012637 


001126 




MOV 


(SP)*,SBDDAT 


.■CHECK THE STORED 


CONTENTS OF kMDC 


006220 


001401 






BEO 


.*4 


; CONTENTS ZERO ? 




006222 


104006 






EMT 


6 






006224 


010037 


001122 




MOV 


R0,$8DADR 


.-BASE ADDRESS FOR 


REGISTER RMSN 


006230 


062737 


000030 


001^22 


ADD 


*RMSN.SBDADR 


.•ADDRESS OF RMSN FOR TVPEOUT 


006236 
006242 


012637 


001126 




MOV 


(SP)*.tBDDAT 


; CHECK THE STORED 


CONTENTS OF RMSN 


001401 






BEQ 


. 


; CONTENTS ZERO ? 




006244 


104006 






EMT 


6 






006246 


010037 


001122 




MOV 


RO,SBDADR 


;BASE ADDRESS FOR 


REGISTER RMECl 


006252 


062737 


000044 


001122 


ADD 


*RMECl,tBDADR 


.•ADDRESS OF RWEC1 


FOR TyPEOUT 


006260 


012637 


001126 




MOV 


(SP)*,$BDDAT 


.•CHECK THE STORED 


CONTENTS OF RMECl 


006264 


001401 






BEQ 


.♦4 


.•CONTENTS ZtRO ? 




C06266 


104006 






EMT 


6 






006270 


010037 


001122 




MOV 


RO.SSDADR 


.-BASE ADDRESS FOR 


REGISTER RMEC2 


006274 


062737 


000046 


001122 


ADD 


#RMEC2,SBDADR 


.•ADDRESS OF RMEC2 


FOR TVPEOUT 


006302 


012637 


001126 




MOV 


(SP)*.$BDDAT 


.•CHECK THE STORED 


CONTENTS OF RMEC? 


C06306 


001401 






BEQ 


.♦4 


.■CONTENTS ZERO ? 




006310 


104006 






EMT 


6 






006312 


000004 




5S: 


SCOPE 




;LOOP ? 





TEST 3 PORT 'B' SEIZE/TIMEOUT TEST 

VERIFV THAT THE DRIVE CAN BE SEFZED BV WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 



A. 



B. 



WRITE O'S INTO RMDA THROUGH PORT "B'; 
HAS BEEN SEIZED. 



VERIFY THAT THE DRIVE 



READ EACH DRIVE REGISTER. EXCEPT RMCS1 . THROUGH PORT 'A'; 
VERIFV THAT O'S ARE READ FROM EACH REGISTER. 

WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

VALUE FOR LATER USE. VERIFV THAT TIMEOUT RETURNED THE DRIVE TO 

NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 



006314 








TST3: 








C«')6314 


005737 


001300 






TST 


KV8CTL 


.•PERFORMING ONLY SINGLE TEST ? 


006320 


001406 








BEO 


2J 


;8R IF NOT 


006322 


100002 








BPL 


1$ 


.-BR IF JUST ENTERED TEST 


006324 


000137 


003074 






JMP 


EXEC 


.•RETURN % GET NEXT TEST NUMBER 


006330 


012737 


1 77777 


001300 


1$: 


MOV 


*-l.KVBCTL 


.-SET SINGLE TEST INDICATOR 


006336 


012737 


006352 


001106 


2%: 


MOV 


*TEST3,$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


006344 


012737 


006352 


0011 10 




MOV 


*TEST3.$LPERR 


.•SETUP ERROR LOOP ADDRESS 


006352 








TEST 3: 






;MOVE *3 TO TEST NUMBER 


006352 


112737 


000003 


001102 




M0V8 


*3.$TSTNM 


006360 


012706 


001100 






MOV 


*STACK,SP 


.•LOAD TKE STACK POINTER 


006364 


012737 


000002 


001176 




MOV 


*2..$TIMES 


;;D0 2. ITERATIONS 


006372 


012737 


000240 


'\7777t 




MOV 


*<5»32.>.a*PS 


.-SET PRIORITY TO 5 IN CASE LOOPING 


006400 


005037 


001270 






CLR 


TIMES 


.CLEAR TIMEOUT VALUE FOR PC^T B 



;rwbo rmos/5/2 du por tst i i^cro vo^.oo 
? pwt 'b' seize/timeout test 

006404 005057 00127? 
006410 005037 C01274 



006414 005037 
006420 012737 



006426 
006434 
006442 
006446 
0064^)4 
006462 
006470 
006476 
006502 
C06510 
006514 
006522 
006524 
006526 
006532 
006532 
006540 
006546 
006554 
006562 
006570 
006576 
006602 
006610 
006616 
006624 
006626 
006630 



1 1 3760 
013737 
005060 
1 1 3760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



001256 
003720 



001226 
001226 
000006 
001224 
001224 
001224 
000012 
coil 22 
000012 
001 124 
001124 



007660 

001226 
001226 
000012 
020001 
011600 
001124 
001166 
001126 
001166 
001124 



001260 



000010 
001242 

00U010 
001240 
001244 
001126 

001122 

001126 



000010 
00''240 
001126 
00''126 
001124 
001166 

001164 
001164 
001164 
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CLR TIME8P .-CLEAR UPPER TIMEOUT TOLERANCE 
CLR T1ME8M .-CLEAR LOWER TIMEOUT TOLERANCE 



SEO 0048 



.•START THE TIMER 

CLR 
MOV 



TIME 

#2000., WATCH 



.•CLEAR THE [ APSED TIME COUNTER 
;SE' WATCH '0 2000. MS 



.•SEIZE THE DRIVE THROUGH PORT B 



64S: 



63S: 



MOVB 

MOV 

CLR 

Move 

MOV 
MOV 
MOV 
MOV 
ADD 
CLR 
CMP 
BEO 
EMT 
JMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 



PORTS, RMCS2(R0) .-SELECT PORT B 
PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDA(RO) .-WRITE RMDA 

PORTA,RMCS2(R0) ; SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



PORTA, OPPRT 
RMDS(R0),$8DDAT 
RO.SBDADR 
#RMDS.$8DADR 
SGDDAT 

SGDDAT,$6DDAT 
64S 

4 

5$ 



'OPPOSITE* PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT 6 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

.•BYPASS REST OF THE SUBTEST 



PORTS, RMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0).$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M .'PI P. SBDDAT .-CLEAR DONT CARE BITS 

*MOL! PGM. DPR! DRY. SGDDAT ; EXPECTED STATUS 
SGDDAT. STMPl ;USE GOOD DATA AS A MASK 



STMPI 
$8DDAT,$TMP0 
STMPl.STMPO 
SGDDAT, STMPO 
65S 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET 
8ft IF THEY ARE 



.-READ THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 



C06632 


113760 


001224 000010 


M0V8 


006640 


013737 


001224 001240 


MOV 


006646 


016046 


000046 


MOV 


006652 


016046 


000044 


MOV 


006656 


016046 


000030 


MOV 


006662 


016046 


000034 


MOV 


006666 


016046 


000032 


MOV 


006672 


016046 


000042 


MOV 


006676 


016046 


000020 


MOV 


006702 


016046 


000026 


MOV 


006706 


016046 


000006 


MOV 


006712 


016046 


000024 


MOV 


006716 


016046 


000014 


MOV 



PORTA, RMCS2(R0) .'SELECT PORT A 
PORTA, PTNBR ;MOVE PORT ADDRESS 



RMEC2{R0),-(SP) 
RMEC1(R0).-(SP) 
RMSN(RO),-(SP) 
RMDC(RO),-(SP) 
RMOF(RO).-(SP) 
RMeR2(R0),-(SP) 
RMLA(RO).-(SP) 
RMDT(RO),-(SP) 
RMDA(RO),-<SP) 
RMMR1{R0),-(SP) 
RMER1{R0),-{SP) 



STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORE 
STORd 
STORE 
STORE 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



TO LOCATION FOR TYPEOUT 
RMEC2, PORT A. FOR CHECK 
RMECl, PORT A, FOR CHECK 
RMSN. PORT A, FOR CHECK 
RMDC. PORT A. FOR CHECK 
RMOF, PORT A. FOR CHECK 
RMER2. PORT A. FOR CHECK 
RK A. PORT A, FOR CHECK 
RMDT. PORT A. FOR CHECK 
RMDA. PORT A. FOR CHECK 
RMMR1. PORT A. FOR CHECK 
RMER1. PORT A, FOR CHECK 



;UAIT FOft-POeT g TO TIMEOUT 



•^RbO F<M05/5/^ DU POR TST 1 MACRO V04.00 
PORT 'B* SEiZE/TIMEOUT TEST 
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00C722 
006726 
006730 
00675A 
006736 
006740 
00674A 
006752 
006760 
006764 
006766 
006772 



005760 
001006 
005737 
001372 
104036 
000137 
012737 
013737 
004537 
001270 
012637 
012637 



C00012 
001260 



007344 
000340 
001256 
066324 

001272 
001274 



177776 
001270 



1S: 



2S: 



TST RMDS(RO) 

BNE 2S 

TST WATCH 

BNE 1$ 

FMT 36 

JMP 4$ 

MOV *«.7*32.>,a#PS 

MOV TIME. TIMES 

JSR R5.T0LER 

.WORD TnE8 

MOV (SP)*.TIMEBP 

MOV (SP)*,TIME8M 



;WAIT FOR THE DRIVE TO TJMFOUT 
;8R WHEN TIMEOUT OCCURS 
.•CHECK WATCH 
;8R If NOT ZERO 

.-BYPASS TIMEOUT TIME CHECK 

.-SET PRIORITY TO 7 TO STOP fLOCK 

.•SAVE THE ELAPSED TIME FOR PORT 6 

.•CALCULATE THE TOLERANCE 

.•TIMEOUT VALUE FOR PORT B 

.•♦25X TOLERANCE 

:-2SX TOLERANCE 









« 


. WCD f C V 




00^77 f% 


0?57?7 

vC Jf Cf 




0007 f\L 
\J\J\J 1 o*t 






00700^ 


105001 








on J 0 


f wo 










FMT 










• i/PRIF V 
. vcn J r T 


THAT 


007010 


012737 


000P40 


^7777^ 

1 r r r r O 


34- 


MOV/ 










' UPP IF Y 


THAT 


007016 


005037 


001?54 








00702? 


012737 


000012 


001 1 ?? 

W 1 ICC 




MDV 


CO 70 30 


060037 


001 1?? 

W 1 ICC 








007054 


012737 


01 1 600 


001 1?4 




I lU V 


00704? 

\J\j 1 V"* c 


1 1 3760 


001 ??4 


00001 0 

WW 1 \J 






007050 


016037 


00001 ? 

WW/ 1 c 


001 1 70 

W 1 1 f v 






007056 

\J\J 1 \J J\J 


U4?737 


0?4001 


001 1 70 




Oi u 


007064 

\J\J f VW" 


013737 


001 170 


001 164 




MOV 


00707? 


04?737 


100100 


001 164 

\J\J \ \ 0"» 




OIL 


0071 00 


1 13760 


001 ??6 

W I C C V/ 


000010 

WW • v 






007106 


016037 


00001 ? 

WW ' c 


001 1 77 

\J\J lire 




MOV 

1 IW ¥ 


0071 14 




0?4001 


00117? 

W lire 






00712? 


013737 


001 17? 

W 1 1 ' c 


001 166 

W 1 1 \J\J 




MOV 


0071 30 




100100 

1 W 1 w 


0011 66 




Oi L 


0071 36 


023737 


00'' 164 


001166 




CMP 


007144 


001006 








BNE 


007146 


005737 


001164 






T5T 


007152 


001037 








BNE 


007154 


104046 








EMT 


007156 


000137 


007342 






JMP 


007162 


013737 


001170 


001126 


66S: 


MOV 


007170 


013737 


001226 


001240 




MOV 


007176 


113760 


001226 


000010 




M0V8 


007204 


005737 


001164 






TST 


007210 


001414 








BEQ 


007212 


013737 


001224 


001240 




MOV 


007220 


013737 


001 1 72 


001126 




MOV 


007226 


1 1 3760 


001224 


000010 




MOVB 


007234 


005737 


001166 






TST 


007240 


001004 








BNE 


007242 


012737 


1 77777 


001254 


67S: 


MOV 


007250 


104022 








EMT 



rHE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 



TIME.*500. 
3S 

55 



;WAS MEASURED TIME AT LEAST 500 MS? 
;8R IF IT WAS 



*<5*32.>.S*PS .-RESTORE PRIORITY TO 5 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

/TRMDS.SSDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SSDADR ;ADD THE I/O BASE ADDRESS 

*MOL.'PGM!DPR!DRY.$GDDAT .-COMPARISON CONSTANT 
P0RTA.RMCS2(R0) .'SELECT PORT A. 

R«DS(R0),$T«P2 ;6ET THE DRIVE STATUS REGISTER FROM POUT A. 
#PIP! WRL!0M.$Tf1P2 .'CLEAR DONT CARES 

$TMP2.$T«P0 .-COPY IT INTO 'STMPO* 

#ATA!VV.$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2(R0) .-SELECT PORT 8. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
*PIPJWRL!0M.$TMP3 .-CLEAR DONT CARES 



STMP3,$TMP1 
#ATA.'VV.$TMP1 
$TMP0,$TMP1 
66$ 
STMPO 
68S 
46 
70$ 

$TMP2.$8DDAT 

PORTS. PTNBR 
PORTS, RMCS2(R0J 
$TMPO 
67$ 

PORTA.PTNBR 

$TMP3,$SDDAT 

PORTA.RMCS2(R0) 

STMPI 

68$ 

*-1 .RELERR 

22 



COPY IT INTO •$TMPr 
CLEAP PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'8AD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 



^ZRMRBO RM05/5/2 DU POR TST 1 MACRO V04.00 
PORT 'B* SEIZE/TIMEOUT TEST 
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S£0 0050 



007252 
007260 
007266 
00727A 
007302 
007304 
007306 
0073K 
007322 
007330 
007336 
0073A0 
007542 



013737 
013757 
042737 
023757 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 



001170 
001224 
100100 
001124 



00117? 
001226 
100100 
001124 



001126 
001240 
001126 
001126 



001126 
001240 
001 1 26 
001126 



68S: 



69S: 



70$: 



MOV 


$TMP2.SBDDAT 


LOOK FOR an FAILURES WHEN RMDS READ 


MOV 


P0RTA,PTNBR 


CHANGE PORT NUMBER 

DON'T CHECK ATTN BJT OR VV BIT 


SIC 


#ATA!VV,$BDDAT , 


CMP 


SGDDAT.SBDDAT 


ALL BITS OK ? 


BEO 


69$ 


BR IF OK FROM PORT A. 


EMT 


7 




MOV 


$TMP3.$8DDAT 


CHECK RMDS FOR BIT FAILURES - FROM PORT B. 


MOV 


P0RT8,PTNBfl 


•CHANGE PORT NUMBER 

■DON'T CHECK ATTN BIT OR VV BIT 


SIC 


#ATA.VV.$BDDAT 


CMP 


$GDDAT,$6DDAT 


•SEE IF READ OK FROM PORT 8. 


BEO 


70$ 


•8R IF OK 


EMT 


7 




NOP 







.•CHECK THE REGISTERS STORED THROUGH PORT A. 
.-THE REGISTERS ARE STORED ON THE STACK. 



ALL REGISTERS SHOULD BE ZERO. 



007344 


013737 


001224 


001240 4$: 


MOV 


PORTA. PTN6R 


007352 


010037 


001122 




MOV 


R0.$8DADR 


007556 


062737 


000014 


001122 


ADD 


#RMl-R1 ,$bdadr 


007364 


012637 


001126 




MOV 


(SP)*,$BDDAT 


007370 


001401 






BEO 


.♦4 


007372 


104006 






EMT 


6 


007374 


010037 


001122 




MOV 


R0,S8DADR 


007400 


062737 


000024 


001122 


ADD 


*RMMR1 ,$bdadr 


007406 


012657 


001126 




MOV 


(SP) ♦,$8DDAT 


007412 


001401 






BEO 


.♦4 


007414 


104006 






EMT 


6 


007416 


010037 
062737 


001122 




MOV 


R0.$8DADR 


007422 


000006 


001122 


ADD 


#RMDA.$BDADR 


007430 


012637 


001126 




MOV 


(SP)*.$BDDAT 


007434 


001401 






BEO 


.♦4 


007^,36 


104006 






EMT 


6 


007440 


010037 


001122 




MOV 


R0.$8DADR 


007444 


062737 


000026 


001122 


ADD 


#RMDT,$80ADR 


007452 


012637 


001126 




MOV 


(SP) ♦,$BDDAT 


007456 


001401 






BEO 




007460 


104006 






EMT 


6 


007462 


010037 


001122 




MOV 


RO,$eDADR 


007466 


062737 


000020 


001122 


ADD 


#RMLA,$BDADR 


007474 


012637 


001126 




MOV 


(SP) ♦,$8DDAT 


C07500 


001401 






BEO 


.*4 


007502 


104006 






EMT 


6 


007504 


010037 


001122 




MOV 


RO,$aDADR 


007510 


062737 


000042 


001122 


ADD 


*RMER2,$8DADR 


007516 


012637 


001126 




MOV 


(SP)*.$8DDAT 


007522 


001401 






BEO 


.♦4 


007524 


104006 






EMT 


6 


007526 


010037 


001122 




MOV 


R0,$8DADR 


007532 


062737 


000032 


001122 


ADD 


/rRMOF.$BDADR 


007540 


012637 


001126 




MOV 


(SP)*,$8DDAT 


007544 


001401 






BEO 




007546 


104006 






EMT 


6 


007550 


010037 


001122 




MOV 


R0,$8DADR 


007554 


062737 


000034 


001122 


ADD 


#RMDC,$BDADR 


007562 


012637 


001126 




MOV 


(SP)+.$BDDAT 


007566 


001401 






BEO 


.*4 



.•CHANGE 'PORT NUMBER' TO THE OPPOSITE PORT 
.-BASE ADDRESS FOR REGISTER RMERl 
.•ADDRESS OF RMERl FOf< TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMERl 
.•CONTENTS ZERO ? 

:8ASE ADDRESS FOR REGISTER RMMRI 
.•ADDRESS OF RMMRl FOR TVPEOUT 
.•CHECK THE STORED CONTENTS OF RMMRl 
.•CONTENTS ZERO ? 

;BASE ADDRESS FOR REGISTER RMOA 
.•ADDRESS OF RMDA FOR TVPEOUT 
;CRECK THE STORED CONTENTS OF RMDA 
.•CONTENTS ZERO ? 

.-BASE ADDRESS FOR REGISTER RMOT 
.•ADDRESS OF RMDT FOR TYPEOUT 
.-CHECK THE STORED CONTENTS OF RMDT 
.•CONTENTS ZERO ? 

.BASE ADDRESS FOR REGISTER RMLA 
.ADDRESS OF RMLA FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMLA 
.•CONTENTS ZERO ? 

.'BASE ADDRESS FOR REGISTER RMER2 
.•ADDRESS OF RMER2 FOR TYPEOUT 
.-CHECK THE STORED CONTENTS OF RMER2 
.•CONTENTS ZERO ? 

.•BASE ADDRESS FOR REGISTER RMOF 
.•ADDRESS OF RMOF FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMOF 
.•CONTENTS ZERO ? 

;8ASE ADDRESS FOR REGISTER RMDC 
.•ADDRESS OF RMDC FOR TYPEOUT 
.-CHECK THE STORED CONTENTS OF RMDC 
.CONTENTS ZERO ? 



CZRMR80 RMOS/3/2 DU POR TST 1 MACRO V04.00 
T3 PORT 'B* SEIZE/TIMEOUT TEST 



188 
189 



007570 
007S72 
007576 
00760A 
007610 
007612 
0076H 
007620 
007626 
007632 
007634 
007636 
007642 
007650 
007654 
007656 
007660 



190 
223 



104006 
010037 
062737 
012637 
001401 
104006 
010037 
062737 
012637 
001401 
104006 
010037 
062737 
012637 
00^01 
104006 
000004 



001122 
000030 
001126 



001122 
000044 
001126 



001122 
000046 
001126 



001122 



001122 



001122 



5$: 





K 




^f^•(\f\^z■^ PAr;p 

1 O • UO - C J r Mot 


PMT 


o 


MOW 

nuv 












ocw 


• 


cn 1 


O 


nuv 


OCt ILRDADR 




iTRMprl IRDADR 


nuv 




DC U 




PMT 

cn 1 


D 


MOW 

nuv 


nU , ^OL/MUn 


ADD 


#RMP r P (RDADR 


1 lUV 


/cp)4. icnnAT 


DC U 




EMT 




SCOPE 





Q 

10-11 



BASE ADDRESS FOR REGISTER RMSN 
ADDRESS OF RMSN FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMSN 
CONTENTS ZERO ? 

8ASE ADDRESS FOR REGISTER RMEC1 
ADDRESS OF RMEC1 FOR TYPEOUT 
CHECK THE STORED CONTFNTS OF RMEC1 
CONTENTS ZERO ? 

8ASE ADDRESS FOR REGISTER RMEC2 
ADDRESS OF RMEC2 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMEC2 
CONTENTS ZERO ? 

LOOP ? 



•TEST 4 



PORT 'A' SEIZE/RELEASE TEST 



*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
* 

• A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

• B. SET VOLUME VALID AND CLEAR ANY ERROR 

• C. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL. AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 



007662 








TST4: 








007662 


005737 


001300 






TST 


KY8CTL 


.•PERFORMING ONLY SINGLE TEST ? 


007666 


001406 








8E0 


2$ 


;BR IF NOT 


007670 


100002 








BPL 


1$ 


;8R IF JUST ENTERED TEST 


C07672 


000137 


003074 






JMP 


EXEC 


.•RETURN fc GET NEXT TEST NUMBER 


007676 


012737 


M7777 


001300 


1$: 




#-1,KY8CTL 


;SET SINGLE TEST INDICATOR 


007704 


012737 


007720 


001106 


2$: 


MOV 


#TEST4,$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


007712 


012737 


007720 


001110 




MOV 


#TEST4,$LPERR 


.•SETUP ERROR LOOP ADDRESS 


007720 








TEST4: 








007720 


112737 


000004 


001102 




M0V8 


*4.$TSTNM 


.•MOVE *4 TO TEST NUMBER 


007726 


012706 


001100 






MOV 


*STACK.SP 


.•LOAD THE STACK POINTER 


007732 


012737 


000012 


001 1 76 




MOV 


<f10..$TIMES 


;;D0 10. ITERATIONS 



007740 005037 001256 

007744 012737 003720 001260 



.-START THE TIMER 

CLR 
MOV 



TIME 

#2000. .WATCH 



.•CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 



.•SEIZE THE DRIVE AND SET VOLUME VALID 



.•SEIZE THE DRIVE THROUGH PORT A 
007752 113760 001224 000010 M0V8 PORTA, RMCS2(R0) .SELECT PORT A 



ZRMRBO RM05/5/2 DU POfi TST 1 MACRO VOA.OO 4-APR-i 
A PORT 'A' SEIZE/RELEASE TEST 



007760 


013737 


001224 

W 1 c c~ 


001242 


MOV 


007766 


005060 

w ^ wv 


000012 

WW ■ c 




CLR 


007772 


013737 


001226 

W 1 C C w 


001244 


MOV 


010000 


01 2760 

VIC' w 


000021 

WWC 1 


000000 

WW W V 


MOV 


010006 

V 1 WW 


005037 


001250 




CLR 


010012 

V 1 W I c 


016037 

V ' W«/» 


000012 

WW I c 


001 1 26 

W 1 ' c w 


MOV 


OlOOPO 

V ' wcv 


012737 

VIC' J* 


00001 2 

WW 1 c 


001122 


MOV 


0100P6 

sJ 1 WCw 


060037 

w W^ > 


001122 

W 1 ICC 




ADD 


010032 

V/ 1 w^c 


012737 


000100 

VW ' w 


001124 


MOV 


0100AO 

V 1 w^v 


013737 


001 1 26 


001 164 


MOV 


0100^6 

W 1 W^ w 


0A2737 


177677 


001164 


BIC 


01005A 


023737 

\/c • ^ • 


001 1 24 


001164 


CMP 


010062 


OOHK 






BEO 


01C06A 


013737 


001126 


001174 


MOV 


010072 


0A2737 


000100 


001174 


BIC 


010.100 


053737 


001 1 74 


001124 


BIS 


010106 


10A013 






EMT 


010110 


005" 37 


001250 




COM 


0101K 


000240 






66$: NOP 


C101 16 


012760 


000040 


000010 


MOV 










.'RELEASE THE 


01012A 


1 1 3760 


001 224 


000010 


M0V8 


010132 


013737 


001224 


001240 


MOV 


0101A0 


01 2760 


000013 


000000 


MOV 










.-VERIFY THAT 


010K6 


005037 


001254 




CLR 


010152 


012737 


000012 


001122 


MOV 


010160 


060037 


001122 




ADD 


01016A 


012737 


011600 


001 1 24 


nov 


010172 


1 1 3760 


001224 


000010 


nova 


010200 


016037 


000012 


001170 


MOV 


010236 


0A2737 


024001 


001170 


BIC 


C102U 


013737 


001170 


001164 


nov 


010222 


0^2737 


100100 


001164 


SIC 


010230 


1 1 3760 


001226 


000010 


M0V8 


010236 


016037 


000012 


001 1 72 


nov 


0102AA 


0A2737 


024001 


001172 


BIC 


010252 


013737 


001172 


001166 


MOV 


010260 


042737 


100100 


001166 


BIC 


010266 


023737 


001164 


001166 


CMP 


01027A 


003006 






BNE 


010276 


005737 


001164 




TSf 


010302 


001037 






BNE 


010304 


10A046 






EMT 


010306 


000137 


010472 




JMP 


010312 


013737 


001 1 70 


001126 


68$: MOV 


010320 


013737 


001226 


001240 


MOV 


010326 


113760 


001226 


000010 


M0V6 


01033A 


005737 


001164 




TST 


0103A0 


oouu 






BEO 


0103A2 


013737 


001224 


001240 


MOV 


010350 


013737 


001172 


001126 


MOV 


010356 


113760 


001224 


000010 


M0V8 



L 9 
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SEO 0052 



PORTA. SEI2PT 
RMuS(RO) 
PORTB.OPPRT 
*21.RMCS1(R0) 

ckerr 

rmds(ro),$bddat 
#rmds.$8dadr ; 

R0.$8DADR 



.•STORE SEI7ING PORT'S ADDRESS 
.•WRITE RMDS 

.•'OPPOSITE' PORT ADDRESS 

;SET VOLUME VALID 
.•CLEAR THc 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 



*VV.$GDDAT ;WHAT REGISTER SHOULD BE 



$8DDAT.$TMP0 
**CVV.$TMPO 
$GDDAT.$TMPO 
66$ 

$8DDAT.$TMP4 

*VV.iTMP4 

$TMP4.$GDDAT 

13 

CKERR 



;MOVE REGISTER CONTENTS TO 'STMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.•copy 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TVPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



*CLR.RMCS2(R0) 
DRIVE FROM PORT A 



.•CLEAR DRIVE 



PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1(R0} ;ISSUE RELEASE THROUGH PORT A 

THE DRIVE IS STJLL IN NEUTRAL 

RELERR ^ .'CLEAR THE 'RELEASE ERROR ' INDICATOR 
#RriDS,$8DADR ;FORM THE ADDRESS OF RWDS FOR TYPEOUT 
RO,$eDADR , :ADD THE I/O BASE ADDRESS 
/»MOL!PGM!DHRiDRY.$GDDAT :COMPARISON CONSTANT 
PORTA,RMCSZ{R0) .'SELECT PORT A. 

Rf1DS(R0),$THP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
*PIP!WRL!0M,$TMP2 ;CLEAR DONT CARES 



(RO) 



$T«P2,$TI 
#ATAIVV.$Ti 
PORTS. RMCS2 
R«DS(R0).$ThP3 
#PIP.'WRL!OM " 
$TMP3.$TMP1 
#ATA!VV.$TMlp1 
$T/V0.$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$B0DAr 
PORTS. PTNJ8R 
PORT8.RMCS2JR0) 
$TMPO 
69$ 

PORTA. PTNBR/ 
$TMP3,$8D[>AT 
PORTA. RMCS2(R0) 



COPY IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B 
^ .GET THE DRIVE'sTATUS REGISTER FROM PORT B. 
,$TMH3 .'CLEAR DONT CARES 

COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COP^ 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEL^RAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 



CZRMR80 RM05/5/2 DU POR TST 1 
Tf. PORT 'A* SEIZE/RELEASE 

010564 005737 001166 

010370 001004 

010372 012737 Ullll 

010A00 104022 

010402 013737 001170 

010410 013737 001224 

010416 042737 100100 

010424 023737 001124 

010432 OOHOI 

010434 104007 

010436 013737 001172 

010444 013737 001226 

010452 042737 100100 

010460 023737 001124 

010466 001401 

010470 104007 

010472 000240 

010474 005737 001254 

010500 001402 

010502 000137 010756 

010506 113760 001224 

010514 013737 001224 

010522 005037 001250 

010526 016037 000012 

010534 012737 000012 

010542 060037 001122 

010546 005037 001124 

010552 013737 001126 

010560 042737 ^77777 

010566 023737 001124 

010574 001414 

010576 013737 001126 

010604 042737 100000 

010612 053737 001174 

010620 104017 

010622 005137 001250 

010626 000240 

010630 113760 001226 

010636 013737 001226 

010644 005037 001250 

010650 016037 000012 

01 0656 012737 000012 

010664 060037 001122 

010670 005037 001124 

010674 013737 001126 

010702 042737 Q77777 

010710 023737 001124 

010716 001414 

010720 013737 001126 

010726 042737 100000 

010734 053737 001174 

010742 104017 

01 0744 005137 001250 

010750 000240 

010752 000137 011010 



WACKO V04.00 4-APR-81 
TEST 







T^T 






RMF 
OniC 




07* • 










UU 1 1 CO 


7n* • 




\J\J 1 CHU 




MOV 


nni 1 ?A 




Di I, 


nni 1 ?A 

1 1 CO 




CMP 














nni 1 ?^ 

\J\J 1 1 CO 




MOW 


nni ?^n 




MOV 


nni 1 ?A 

\J\J 1 1 CO 




Rlf 


nni 1 ?6 

V/V I ICO 




CMP 






RFO 






FMT 




72 J- 


NOP 






TST 












IMP 


nnnni o 




MOVR 

1 IwVO 






MOV 

1 IWr 








001 1?6 

\J\J \ 1 cu 




1 IwT 


00112? 




MOV 

1 IW » 






ADD 












MOV 


001 1 64 






001164 

WW 1 1 w*t 




CMP 






RFO 


001 1 74 

WW 11'^ 




MOV 


001 1 74 

Wv 1 1 ■ ~ 






001 1 24 

WW 1 It" 




BIS 






FMT 






COM 






NOP 


000010 

w www 1 V 




MOVB 


001240 

WW 1 C*f w 




MOV 

1 IW T 






CLR 


001 126 




MOV 


001 1 22 

WW 1 1 b b 




MOV 






ADD 






CLR 


001 164 

WW 1 1 \1~ 




MOV 


001 164 

WW 1 1 w~ 




aic 


001164 

WW 1 1 w"f 




CMP 






BFO 


001 1 74 

WW 1 1 f ^ 




MOV 


001174 




BIC 


001124 




BIS 






EMT 






COM 




75$: 


NOP 






JMP 



:lf RELEASE 



M 9 
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SEO 0053 



$TMP1 
70$ 

#-1,RELERR 
22 

$TMP?,$BDDAT 

POf<TA,PTNBR 

#ATA. VV,$8DDAT 

$GDDAT,$BODAT 

71$ 

7 

$TW3.$BDDAT 

PORTe,PrNBR 

#ATA!VV.$8DDAT 

$GDDAT,$BDDA- 

72$ 

7 



;SFE If STATUS EQ ZERO FROM PORT B. 
;8R IF NOT 

;SET 'RELEASE ERROR' INDICATOR 

;LOJK FOR BIT FAILURES WHEN RMDS READ 

.•CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR VV BIT 

;ALL BITS OK ? 

;8R IF OK FROM PORT A. 

; CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 

; CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR VV BIT 

;SEE IF READ OK FROM PORT B. 

;8R IF OK 



RELERR ;DID DRIVE RETURN TO NEUTRAL 

.♦6 ;8R IF IN NEUTRAL 

1$ ;G0 WAIT FOR DRIVE TO TIMEOUT 

PORTA, RMCS2(R0) ; SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDSCR0),$8DDAT ;GET CONTENTS OF RMDS 
#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COpy 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA ^OR TYPEOUT 



R0.$8DADR 
$GDDAT 

$8DDAT,$TMP0 
fCATA,$TMPO 
$GDDAT.$TMPO 
73$ 

$8DDAT.$TMP4 
#ATA,$T«P4 
$TMP4,$6DDAT 
17 
CKEFtR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTS, RMCS2(R0) .SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ;CL£AR THE 'CHECK ERROR" INDICATOR 

RMDSCR0).$8DDAT ;GET CONTENTS OF RMDS 
/rRMDS,$eDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO •$TMPO' 
.SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
:BR IF OK 
;COPy 'BAD DATA* 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
$GDDAT 

$SDDAT,$TMPO 
#*CATA,$TMPO 
$(,DDAT,$TMPO 
75$ 

$8DDAT.$TMP4 
irATA,$TMP4 
$TMP4,$GDDAT 
17 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



2$ .-GO CHECK FOR LOOP ON ERROR 

1MAND DIDN'T RELEASE THE DRIVE. WAIT FOR THE PORT TIMFOUT 



C2RMR80 RMOS/S/i" DU POR TST 1 ^lACRO V04.00 
PORT 'A' SEI2C/RELEASE TEST 



N 9 

4-APR-81 18:06:25 PAGE 10-K 



SEO OOSA 



22k 
238 
239 



010756 
010756 
010764 
010772 
010776 
011000 
011004 
011006 
011010 



240 
241 



011012 
011012 
011016 
011020 
011022 
011026 
011034 
011042 
011050 
011050 
011056 
011062 



011070 
011074 



011102 
011110 
011116 
011122 
011130 
011136 
011142 



1 1 3760 
013737 
005760 
001004 
005757 
001364 
104036 
000004 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



001226 
001226 
000012 

001260 



000010 
001240 



001300 



003074 
M7777 
011050 
011050 



001300 
001106 
001110 



000005 001102 
001100 

000012 001176 



005037 001256 

012737 003720 001260 



113760 001226 000010 

013737 001226 001242 

005060 000012 

013737 001224 001244 

012760 000021 000000 

005037 001250 

016037 000012 001126 



;T0 RELEASE THE DRIVE 



1S: 



2$: 



'10V8 

MOV 

TST 

BNE 

TST 

BNE 

EMT 

SCOPE 



PORTS, RMCS2(R0) .'SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
;WAIT FOR TIMEOUT TO RELEASE DRFVE 
;8R WHEN DRIVE RELEASED 
.•CHECK THE WATCH 
;8R IF NOT ZERO 



RMDS(RO) 
2$ 

WATCH 
1$ 
36 



;LOOP 



************************************************************** 
ilEST 5 PORT 'B' SEIZE/RELEASE TEST 

*TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 
* 

♦ A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 
* 

♦ B. SET VOLUME VALID AND CLEAR ANY ERROR 

♦ C. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 

♦ RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

♦ DRIVE. 
* 

•»••»»»**♦*♦♦♦»**«»*»♦♦****•*♦**•»♦♦♦♦»«*♦♦♦*«**♦♦*•*♦»•♦**•»••* 



TST5; 



IS: 
2S: 

TEST5i 



TST KY8CTL 

BEQ 2$ 

BPL 1$ 

JMP EXEC 

MOV ^-I.KYBCTL 

MOV #TEST5,JLPADR 

MOV #TEST5,$LPERR 

M0V8 #5,$TSTNM 

MOV #STACK,SP 

MOV #10.,$TIMES 



.•START THE TIMER 

CLR 
MOV 



TIME 

#2000.. WATCH 



;PERFORMING ONLY SINGLE TEST ? 
;8ft IF NOT 

.•8ft IF JUST ENTERED TEST 
;RETURN I GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

.•MOVE #5 TO TEST NUMBER 
.•LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 



.•CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 



.SEIZE THE DRIVE AND SET VOLUME VALID 

.•SEIZE THE DRIVE THROUGH PORT B 

M0V8 PORTS, RMCS2(R0) ; SELECT PORT B 

MOV PORTS, SEIZPT ;ST0RE SEIZING PORT'S ADDRESS 

CLR RMDS(RO) ; WRITE RMDS 

MOV PORTA. OPPRT .•'OPPOSITE' PORT ADDRESS 

MOV #21.RMCS1 (RO) ;SET VOLUME VALID 

CLR CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 



ZfWRBO W105. 5/2 DU PW TST 1 nAC«0 ^04. 00 '.-APR 
T5 PO«T 'B' SEIZE/RELEASE TEST 



011150 


012737 


000012 


001122 


MOV 


01 1 1 56 


060037 


con 22 




ADD 


011162 


012737 


000100 


001124 


MOV 


01 11 70 


013737 


001126 


00^64 


MOV 


01 1 1 76 


042737 


1 77677 


001164 


BIC 


OUcO* 


025737 


001124 


0^1164 


CMP 


011212 


001414 






BEQ 


0112K 


013737 


001126 


001 1 74 


MOV 


011222 


042737 


000100 


001174 


BIC 


C1 1230 


053737 


001 1 74 


001 124 


Q f C 

BIS 


011236 


104013 






EMT 


01 1240 


005137 


001250 




COM 


011244 


000240 






66$: NOP 


0M246 


012760 


000040 


000010 


MOV 










;RELcAbL THE 


01 1254 


^ ^ 9 9^ /\ 

1 1 3760 


001226 


000010 


MOVo 


011262 


013737 


001226 


001240 


MOv 


011270 


012760 


000013 


000000 


MOV 










;VERIfV THAT 


011276 


005037 


001254 




CLR 


011302 


012737 


000012 


001122 


MOV 


011310 


060037 


001122 




ADD 


011314 


012737 


011600 


001124 


MOV 


011322 


113760 


001224 


000010 


MOVB 


011330 


016037 


000012 


001 1 70 


MOV 


011336 


042737 


024001 


001170 


BIC 


011344 


013737 


001170 


001164 


MOV 


011352 


042737 


100100 


001164 


BIC 


011360 


113760 


001226 


000010 


M0V8 


011366 


016037 


000012 


001 1 72 


MOV 


01 1 374 


042737 


024001 


001 1 72 


BIC 


011402 


013737 


001172 


001166 


MOV 


011410 


042737 


100100 


001166 


BU 


011416 


023737 


001164 


001166 


CMP 


011424 


001006 






BNE 


011426 


005737 


001164 




TST 


011432 


001037 






8NE 


C11434 


104046 






EMT 


011436 


000137 


011622 




JMP 


011442 


013737 


001170 


001126 


68$; MOV 


011450 


013737 


001226 


001240 


MOV 


011456 


113760 


001226 


000010 


MOVB 


011464 


005737 


001164 




TST 


011470 


001414 






6E0 


011472 


013737 


001224 


001240 


MOV 


011500 


013737 


001172 


001126 


MOV 


011506 


113760 


001224 


000010 


MOVB 


011514 


005737 


001166 




TST 


011520 


001004 






BNE 


01 1 522 


012737 


^77777 


001254 


69$: MOV 


011530 


104022 






EMT 


0M532 


013737 


001 1 70 


001126 


70$: MOV 


011540 


013737 


001224 


001240 


MOV 
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SfO 0055 



«RMDS,$BDADR 

R0,$8DADR 

#VV.$GDDAT 

$8DDAT,$TMP0 

**CVV,$TMPO 

$GDDAT,$TMPO 

66$ 

$8DDAT.$TMP4 

*VV.$THP4 

$T^4.$GDDAT 

13 

CKERR 



.•FORM REGISTER ADDRESS Cf ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMP0' 
.-SAVE SPECIFIED BITS 
COMPARE THE BITS 
;8R IF OK 
COPy 'SAD DATA* 
CLEAR THE MASKED BITS 
'OR* WITH GOOD DATA FOR ^»PE OUT 



#CLR,RMCS2(R0) 
DRIVE . ROM PORT 8 



;SET THE REGISTER COMPARE ERPOR INDICATOR 
.'CLEAR DRIVE 



P0RT8.RMCS2(R0) .'SELECT PORT 6 

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TrPtOUT 
*13.RMCi.1<R0) ; issue RELEASE THROUGH PORT 6 

THE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

«RMOS,$BDADR .-FORM THE ADDRESS OF RMDS FOR TYPE OUT 
R0.$6OADR .-ADD THE I/O BASE ADDRESS 

*nOL!PG«!DPR.'DRV.$GDDAT .-COMPARISON CONSTA,NT 
PORTA,RMCS2(R0) ;ScLECT PORT A. 

RMDS(Re),$TMP2 .-GET THE DRIVE STATUS REGISTER FROM PORT A, 
#PIP1WRL!0M.$TMP2 .-CLEAR DONT CARES 



$TMP2.$TMP0 
#ATA!VV.$TMPO 
PORTS. RMCS2(R0) 
RMDS(R0),$TMP3 ^ 
#PIP!WRL!0H.$TMP3 
$TMP3.$TMP1 

#ata;vv.$thpi 

$T«P0.fTMP1 
68$ 
$T«PO 
70$ 
46 
72$ 

$TMP2,$8D0AT 
PORTB.PTNBR 
PORT8,RMCS2(R0) 
$TMPO 
69$ 

PORTA, PTNBR 
$T/>V»3.$8DDAT 
PORTA, RHCS2(R0) 
$TMP1 
70$ 

#-1, RELERR 
22 

$TMP2.$8DDAT 
PORTA, PTNBR 



COPr IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B- 

; CLEAR DONT CARES 
COPY IT INTO '$T«P1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE ^HEY ZERO 
BR JF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT !N NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 F»OM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TVPt OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 



;LOOK FOR BIT FAILURES WHEN RMDS RCAD 
.•CHANGE PORT NUMBER 



'ZRMRBG RM05/5/? DU PGR TST 1 

TS 



I1ACR0 VOA.OO 



C 1C 
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PORT 'B* SEIZE/RELEASE 


TEST 






U 1 1 5HO 




1 (VMnn 


001126 




BIC 








001126 




CW» 




AA1 / m 








BEO 


nil ^Ai. 


1 n/.nn7 








EMT 


A1 1 


m 77X7 


nni 1 73 
UU life 


001126 


71$: 


MOV 


r> 1 1 c 7/ 


ni X7X7 


nni 53A 

UU 1 ecu 


001240 




MOV 


r>1 1 


nz. 5777 


1 nnmn 
1 uu 1 UU 


001126 




BIC 


r\i 1 <.i n 


n57777 


nni 1 5A 
uu 1 1 c*» 


001126 




CMP 


J 1 1010 


nni Am 








BEQ 


fM 1 <.5n 
u 1 1 OcU 


1 ru.(v\7 






72$: 


EMT 


U 1 1 Dec 


nnn7An 






NOP 


m 1 

U 1 1 0c«» 


PnQ777 


nni 3^/. 
uu 1 c J*» 






rsT 


ni 1 A7n 

u 1 1 0 jU 


nni/.n3 








BEQ 




nnni 77 

UUv 1 Jf 


ni 31 nA 
U 1 c 1 uo 






JMP 


'J 1 1 0 JO 


1 1 77Ar 

1 1 Jf Ov 


nni 33A 

uu 1 CCD 


000010 




MOVB 


mi A/. A 


ni 7777 

U 1 J' Jf 


nni P3A 
uu 1 CCO 


001240 




MOV 


mi 


nn';n'?7 


nni 3sn 

uu 1 C JU 






CLR 


m 1 

U 1 1 0 JO 


ni An77 

u 1 OU J f 


nnnni 3 

UvUU 1 c 


001126 




MOV 


r.i 1 AAA 


r>1 ?777 

tl 1 Cf Jf 


nnnni 3 

UUuU ' c 


001122 




MOV 


ri 1 a7? 


nAnn''C7 

UOUv Jf 


nni 1 33 

uu 1 1 CC 






ADD 


m 1 A7A 


rinsn77 


nni 1 3A 
uu 1 1 c** 






CLR 


m 1 7np 


ni 7777 

U 1 Jf -J f 


nni 1 3A 

,UU 1 1 CO 


001164 




MOV 


m 1 71 n 


nA3777 


n77777 

\Jttf If 


001164 




BIC 


re 1 71 A 


n?7777 


nni 1 PL 

uu 1 1 CH 


001164 




CMP 


m 1 7PA 


nni A1 A 








BEO 


nil 7PA 


ni 77^7 

U 1 Jf J f 


nni 1 PA 

uu 1 1 CO 


001 1 74 




MOV 






1 f innnn 
1 uuuuu 


001 1 74 




BIC 


m 1 7A p 


n';7777 

yjjjf Jf 


nm 1 7L 

uu 1 1 f *t 


001124 




BIS 


ni 1 7^n 


1 n^ni 7 








EMT 


ni 1 


<7 

VA^ J 1 Jf 


UV 1 C JU 






COM 


m 1 7';a 


nnnp^n 






73$: 


NOP 


nil 7An 


1 1 t7An 

1 1 J f Ov 


nni PPL 

uu 1 CCH 


000010 




MOVB 


11 1 7AA 

0 t 1 f DO 


ni ^7-'7 

V 1 Jf — f 


Uw 1 c c** 


001240 




MOV 


ni 1 77A 


nnsn^ * 


nni 3sn 

uu 1 C 3U 






CLR 


ni pnnn 


ni An77 

V/ 1 Ov Jf 


nnnni 3 
uuuu 1 c 


001126 




MOV 


n 1 ?nnA 


U 1 c f Jf 


nnnni? 

UWU I c 


001122 




MOV 


ni ?ni A 


i'v.no^7 

WDUUJf 


nni i?p 

uu 1 1 CC 






ADD 


\J 1 c\Jc'J 


uvjujf 


nni 1 PL 

Uv 1 1 c*» 






CLR 


ni ?n?i 


niX777 
U 1 Jf Jf 


nni 1 Pf\ 

uu 1 1 CO 


001164 




MOV 


ni ?n7P 


nA?777 
U*fc f Jf 


C\77777 
\Jr lilt 


001164 




BIC 




Uc Jf Jf 


nni 1 PL 

\J\j 1 1 c** 


001164 




CMP 












Bk'O 


ni ?<T>n 

U 1 cU JU 


ni s7^7 

U 1 Jf Jf 


uu 1 1 cO 


001174 




MOV 


m 5nsA 


nz?7?7 

\JHCf Jf 


innono 


001174 




BIC 


012064 


053737 


001 1 74 


001124 




BIS 


012072 


104017 








EMT 


012074 


005137 


001250 






COM 


012100 


000240 






75$: 


NOP 


012102 


000137 


012140 






JMP 



012106 
012106 
012114 
012122 



#ArA!VV,$8DDAT 

$GDDAT,$6DDAT 

71$ 

7 

$TMP3.$8DDAT 

PORTS. PTNBR 

#ATA.VV.$8DDAr 

$GDDAT,$6DDAT 

72$ 

7 



.•DON'T CHECK ATTN BIT OR W BIT 

.-ALL BITS OK ? 

;8R IF OK FROM PORT A. 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

.•CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR VV BIT 

.SEE IF READ OK FRO^ PORT B. 

;8R IF OK 



RELERR ;DID DRIVE RETl^ TO NEUTRAL ? 

.♦6 ;8R IF IN NEUTRAL 

1$ ; 60 WAIT FOR DRIVE TO TIMEOUT 

PGRT8.RMCS2(R0) .-SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.•ADD RH/RM BASE ADDRESS 
.'WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPy 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
$GDDAT 

$8DDAT.$TMP0 
#-CATA,$TMPO 
$GDDAT,$TMPO 
73$ 

$8DDAT.$TMP4 
#ATA.$TMP4 
$Tf«4.$G0DAT 
17 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



POftTA,RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOijT 
CKERR .CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS Of RMDS 
/rRM0S.$6DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
.WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO '$TMPO' 
.•SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$6DADR 
$GDDAT 

$8DDAT.$TMP0 
#*CATA.$TMP0 
$GDDAr.$TMPO 
75$ 

$8DDAT,$TMP4 
#ATA.$TMP4 
$TMP4,$GDDAT 

17 
CKERR 



2$ 



.-SET THE REGISTER COMPARE ERROR INDICATOR 
.-GO CHECK FOR LOOP ON ERROR 



;IF RELEASE COMMAND DIDN'T RELEASE THE DRIVE. WAIT FOR THE PORT TIMEOUT 
.-TO RELEASE THE DRIVE 



113760 
013737 
005760 



001224 
001224 
000012 



000010 
001240 



1$: 



MOVB PORTA. RMCS2(R0) .-SELECT PORT A 

MOV PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RMDS(RO) .-WAIT FOR TIMEOUT TO RELEASE DRIVE 



ZRMRBO RM05/3/a DU POR TST 1 

T5 



257 
268 



PORT '8' SEI?E/RElEASE TEST 
G01260 



MACRO VOA.OO 



0 10 
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246 
255 
256 



012126 
012150 
01215A 
012156 
012140 



001004 
005757 
001 364 
104056 
000004 



2$: 



BNE 

TST 
BNE 
EMT 
SCOPE 



2$ 

WATCH 

1$ 

36 



;8R WHEM ORJVE RELEASED 
.•CHECK THE WATCH 
;8R IF NOT ZERO 

.■LOOP ? 



•TEST 6 



PORT 'A' NEUTRAL /RELEASE TEST 



•TEST OPERATION OF RELEASE COMMAND. DRIVE IN NEUTRAL 

• A. ISSUE A RELEASE COMMAND THROUGH PORT 'A* WITH TH^ DRIVE IN 

• NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 



012U2 








TST6: 




012142 


005737 


001300 






TST 


012146 


001406 








BEO 


012150 


100002 








8Pl 


012152 


000137 


003074 






J/>V> 


012156 


012737 


M7777 


001300 


1$; 


MOV 


012164 


012737 


012200 


001106 


2$: 


MOV 


012172 


012737 


012200 


001110 




,MOV 


012200 








TEST6: 




012200 


112737 


000006 


001102 




M0V8 


012206 


012706 


001100 






MOV 


012212 


012737 


000012 


001 1 76 




MOV 


012220 


113760 


001224 


000010 




MOVB 


012226 


013737 


001224 


001240 




MOV 


012234 


013737 


001224 


001242 




MOV 



KY8CTL 

2S 

1$ 

EXEC 

#-1.KYBCTL 

#TEST6.$LPADR 

*TEST6.$LPERR 

#6,$TSTJ#1 
#STACK.SP 
#10..STIMES 



.•PERFORMING ONLY SINGLE TEST ? 
;8R IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN & GET NEXT TEST NUMBER 
.•SET SINGLE TEST INDICATOR 
; SETUP SCOPE LOOP ADDRESS 
; SETUP ERROR LOOP ADDRESS 

.•MOVE #6 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;00 10. ITERATIONS 



PORTA. RMCS2(R0) ; SELECT PORT A 

PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA.SEIZPT ;ADDR OF PO»)T WHICH WILL ISSUE RELEASE 



012242 012760 000013 000000 



; ISSUE A RELEASE COMMAND 

MOV #13,RMCS1(R0) 



.•ISSUE A RELEASE COMMAND 



rVERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



012250 
012254 
012262 
CI 2266 
012274 
012302 
012310 
012316 
012324 
012332 
012340 
012346 
012354 
012362 
012370 
012376 
012400 
012404 
012406 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
00^006 
005737 
001045 
104046 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 



' INDICATOR 
FOR TYPEOUT 



RELERR ; CLEAR THE 'RELEASE ERROR 

*RMDS,S8DADR ;FORM THE ADDRESS OF RMDS 
RO.SeOADR ;ADD THE I/O BASE ADDRESS 

#MOL.'PGM!OPR!DRY:vv,fGDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .SELECT PORT A. 

RMDSm0).$TMP2 -GET THE DRIVE STATUS REGISTER FROM PORT 
#PIP!WRL:0M.$TMP2 .-CLEAR DONT CARES 

$TriP2.$TMP0 .-COPY IT INTO 'STMPO* 

#ATAIVV,$TMP0 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0RT8.RMCS2(R0) .SELECT PORT 8. 

RMDS{R0).$TMP3 -GET THE DRIVE STATUS REGISTER FROM PORT B 
/TPiP! WRL!0M,$TrV>3 .-CLEAR DONT CARES 



A. 



STMP3.$TMP1 
#ATA1VV,$TMP1 
$TMP0.$TMP1 
64$ 
STMPO 
66$ 
46 



.•COPY IT INTO •$TMP1* 
; CLEAR PORT DEPENDENT BITS FROM THE COPY 
. IS THE STATUS REGISTER THE SAI«« FROP» BOTH PORTS 
;8R IF NOT 

.REGISTERS ARE THE SAME: ARE THEY ZERO ? 
.-BR IF NOT 



i 



269 
278 
279 



Rri05/3/<r 

PORT 'A' 

012<.1O 
0124K 
012422 
012450 
012436 
012442 
012444 
012452 
012460 
012466 
012472 
012474 
:^2502 
012510 
C1?516 
0V520 
012526 
012534 
012542 
01 2550 
012552 
012554 
012562 
012570 
0^25fti 
012604 
012606 
012610 
012612 



DU POR TST 1 MACRO 
NEUTRAL/RELEASE TEST 



V04.00 4-APR-81 18:06:25 



fc 

PAGE 



10 

10-18 



b£0 005& 



0001 37 


012610 






JMP 


68S 


013737 


001 170 


001126 


64$: 


MOV 


$TMP2.$BDDAT 


013737 


001226 


001240 




MOV 


P0RT8.PTNBR 


113760 


001226 


000010 




MOVB 


POPT8,RMCS2(R0) 


005737 


001164 






TST 


$TMPO 


001414 








8E0 


65$ 


013737 


001 224 


001240 




MOV 


PORTA.PTNBR 


013737 


001 1 72 


001126 




MOV 


$TMP3,$BD0AT 


1 1 3760 


001224 


000010 




MOVB 


PORTA, RMCS2(R0' 


005737 


001166 






TST 


$T'1P1 


001012 








BNE 


66$ 


012737 


Mlin 


001254 


65$: 


MOV 


#-1 .RELERR 


012760 


00001 1 


000000 




MOV 


#11.RMCS1(R0) 


012760 


000013 


000000 




MOV 


*13.RMCS1 (RO) 


104030 








EMT 


30 


013737 


001 1 70 


001126 


66$: 


MOV 


$TMP2.$flDDAT 


013737 


001224 


001 240 




MOV 


PORTA. PTN6R 


042737 


100000 


001126 




eic 


#ATA,$BDDAT 


023737 


001124 


001126 




fMP 


$6DDAT,$eDDAT 


001401 








BEO 


67$ 


104007 








EMT 


7 


013737 


001 1 72 


001126 


67$: 


MOV 


$TnP3,$BDDAT 


013737 


001226 


001240 




MOV 


PORTS, PTNBR 


042737 


100000 


001126 




BIC 


#ATA,$8DDAT 


023737 


001124 


001126 




CMP 


$6DDAT,$8DDAT 


001401 








BEQ 


68$ 


104007 








EMT 


7 


000240 






68$: 


NOP 




000004 








SCOPE 





.-BYPASS THE REST OF THP CHECKS 
.-SET UP POSSIBLE BAD DATA FOR ERr?OR MESSAGE 
.-SEIZING PORT JF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-SELECT PORT 8. 

.-SEE IF STATUS EG 0 FROM PORT A, 
;8R IF ZERO 

.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-•BAD DATA* FOR ERROR TVPE OUT 
.-SELECT PORT A. 

.SEE IF STATUS £0 ZERO FROM PORT 8. 
;8R IF NOT 

.-SET 'RELEASE ERROR* INDICATOR 
.•CLEAR THE DRIVE 
.-RELEASE THE DRIVE 

.'LOOK FOR BIT FAILURES i^HEN RMOS READ 

.CHANGE PORT NlfBER 

.-DON'T CHECK THE ATTN BIT 

.-ALL BITS OK ? 

.-BR IF OK FROM PORT A. 

.-CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 
; CHANGE PORT NlfBER 
.•DON'T CHECK THE ATTN BIT 
;SEE IF READ OK FROM PORT B. 
;8R IF OK 



.-LOOP ? 



•TEST 7 PORT '8' NEUTRAL/RElEASE TEST 

•TEST OPERATION OF RELEASC COMMAND. DRIVE IN NEUTRAL 
• A. 



ISSUE A RELEASE COMMAND THROUGH PORT '8' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 





012614 








TST7: 






012614 


005737 


001300 






TST 




012620 


001406 








BEO 




012622 


100002 








BPL 




012624 


000137 


003074 






JMP 




012630 


012737 




001 300 


1$: 


MOV 




012636 


012737 


012652 


001106 


2$: 


MOV 




012644 


012737 


012652 


001110 




MOV 




012652 








TEST7: 






012652 


112737 


000007 


001102 




MOVB 




012660 


012706 


001100 






MOV 




012664 


012737 


000012 


001176 




MOV 


280 














281 


012672 


113760 


001226 


000010 




MOVB 


012700 


013737 


001226 


001240 




MOV 




CI 2706 


013737 


001226 


001242 




MOV 



KY8CTL 

2$ 

1$ 

EXEC 

*-l.KYBCTL 

#TEST7,$LPADR 

#TEST7.$LPERR 

/r7.$TSTNH 
♦STACK.SP 
#10.,$TIMES 



.-PERFORMING ONLY SINGLE TEST ? 
.-BR IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN i GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.SETUP SCOPE LOOP ADDRESS 
.-SETUP ERROR LOOP ADDRESS 

;MOVE #7 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 



PORT8.RMCS2(R0) .-SELECT PORT 8 

P0RT8,PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPIOUT 
P0RT8.SEIZPT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 



'^RBj f<M0S/3/2 DU POft TST 1 MACRO v04.00 
PORT "B* NEUTRAL/RELEASE TEST 
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01 27U 012760 COCCI 5 OOOCOC 



.•ISSUE A RELEASE COWAND 

MOV #13,RMCS1(R0) 



.•ISSUE A RELEASE COMMAND 



;VfcRIFr THAT THE DRIVE IS STILL IN NEUTRAL 



?82 
301 
502 



012722 


005037 


001254 






CLR 


012726 


012737 


000012 


001122 




MOV 


01 2734 


060037 


001122 






ADD 


012740 


012737 


01 1 700 


001124 




MOV 


012746 


T 1 3760 


001224 


000010 
001 1 70 




M0V8 


012754 


016037 


000012 




MOV 


012762 


042737 


024001 


001 1 70 




BIC 


012770 


013737 


001170 


001164 




MOV 


012776 


042737 


100100 


001164 




BK 


013004 


113760 


001226 


000010 




M0V8 


013012 


016037 


00001 2 


001 1 72 




MOV 


01 3020 


042737 


024001 
001 1 72 


001 1 72 




BIC 


013026 


013737 


001166 




MOV 


013034 


042737 


100100 


001166 




BIC 


CI 3042 


023737 


0C1164 


001166 




CMP 


013050 


001006 








BNE 


013052 


005737 


001164 






TST 


013056 


001045 








BNE 


01 3060 


104046 








EMT 


013062 


000137 


013262 






JMP 


013066 


013737 


001 1 70 


00' 126 


64$: 


MOV 


013074 


013737 


001226 


001240 




MOV 


013102 


1 1 3760 


001226 


000010 




M0V8 


013110 


005737 


001164 






TST 


013114 


001414 








BEQ 


013116 


013737 


001224 


001240 




MOV 


013124 


013737 


001172 


001126 




MOV 


013132 


113760 


001224 


000010 




M0V8 


013140 


005737 


001166 






TST 


013144 


001012 








BNE 


013146 


012737 


1 77777 


001254 


65S: 


MOV 


013154 


012760 


00001 1 


000000 




MOV 


013162 


01 2760 


000013 


000000 




MOV 


013170 


104030 








EMT 


013172 


013737 


001170 


001126 


66S: 


MOV 


013200 


013737 


001224 


001240 




MOV 


CI 3206 


042737 


100000 


001126 




BIC 


013214 


023737 


001124 


001126 




CMP 


01 3222 


001401 








BEQ 


01 3224 


104007 








EMT 


013226 


013737 


001172 


001126 


671: 


MOV 


013234 


CI 3737 


001226 


001240 




MOV 


013242 


042737 


100000 


001126 




BIC 


013250 


023737 


001124 


001126 




CMP 


013256 


J001401 








6E0 


013260 


104007 








EMT 


013262 


0C024C 






68$: 


NOP 


013264 


000004 








SCOPE 



relerr .-clear the 'release error ' indicator 

#rmos.$bdadr .'form the addrcss of rmds for typeout 
r0.$8dadr .-add the i/o base address 
*mol:pg«!dpr!dryivv,$gddat .-comparison constant 
p0.'^ta.rmcs2(r0) .-select port a. 

rmds(r0),$tmp2 ;get the drive status register from port a, 

#pip !wrl10m,$tmp2 .'clear dont cares 

$tmp2.$tmp0 ;copy it into •$tmpo' 

#ata:vv.$tmpo .-clear port dependent bits from the copy 

ports, rmcs2(r0) ;select port b. 

rmds(r0).$tmp3 ;get the drive status register from port b. 

*PI P I WRl:0M.$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 

#ata:vv.$tmpi 

$TMP0.fTMP1 

64$ 

$TMPO 

66$ 

46 

68$ 

$TMP2.$BDDAT 

PORTB.PTNBR 

PORTS. RMCS2(R0) 

$TMPO 

65$ 

PORTA, PTNBR 

$TMP3,$eODAT 

POftTA.RHCS2(R0) 

$TMP1 

66$ 

»-l, RELERR 
*11,RHCS1(RC) 
*13,RMCS1(R0) 
30 

$TMP2,$eDDAT 

PORTA, PTNBR 

ffATA,$BDDAT 

$GDDAT.$eDDAT 

67$ 

7 

$TMP3.$8DDAT 

PORTS. PTNBR 

#ATA,$eDDAT 

$GDDAT,t8DDAT 

68$ 

7 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST QF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT MJMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMOS FOR BIT FAILURES - FROM PO»T B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



.-LOOP ? 



•TEST 10 



PORT 'A' RELEASE INTERFERENCE TEST 



6 10 

r^MPBvl «MC5/^/2 DU POR 1 MAC«0 v04.00 4-APR-8I ^B:Ot:t^ PAGE 10-20 
PORT 'A' RELEASE :NTE=?f ERENCE TEST 



SfcO OObo 



303 
327 



0133A4 
013352 
013356 
013364 
013372 
0^3400 
013A04 
013412 



01 3420 
013426 
013434 
013440 
013446 
013454 
013462 
013470 
013474 
013502 
013506 
013514 
013516 



VERIFv THAT A COMTIAND ISSUED BY ONE PO«T IS NOT RECOGNIZcD If THE DRIVE 
IS SEIZED BY THE OTHER PORT, 

A. SEIZE THE DRIVE THROUGH PORT '8* BY WRITING O'S INTO R«OS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'B' . 

D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT 'A*. 

E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



013266 








TST10: 








013266 


005737 


001300 






TST 


<Y8CTL 


.'PERFORMING ONLY SINGLE TEST ? 


CI 3272 


001406 








BEO 


2$ 


;8R IF .-JOT 


013274 


100002 








BPL 


IS 


;8R IF JUST ENTERED TEST 


015276 


000137 


003074 






JMP 


EXEC 


.•RETURN t GET NEXT TEST NUMBFP 


013302 


012737 


177777 


001 300 


1$: 


MOV 


f-I.KYBCTL 


.-SET SINGLE TEST INDICATOR 


013310 


012737 


013324 


001106 


2$: 


MOV 


#TEST10,SLPADR 


.■SETUP SCOPE LOOP ADDRESS 


013316 


012737 


013324 


001110 




MOV 


#TEST10.$LPERR 


.•SETUP ERROR LOOP ADDRESS 


013324 








TEST10: 








013324 


112737 


000010 


001102 




M0V8 


*10,$TSTNM 


.•MOVE #10 TO TEST fJUMBER 


013332 


012706 


001 10U 






MOV 


#STACK,SP 


;LOAD THE STACK POINTER 


0*3336 


012737 


000012 


001176 




MOV 


*10..$TIMES 


;;D0 10. ITERATIONS 



;CLFAR A. .ENTION BITS FOR BOTH PORTS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 



001224 
000012 
000011 
000013 
001226 
000012 
000011 
000013 



001226 
001226 
000012 
001224 
001224 
001 22** 
000012 
001122 
000012 
001124 
001124 



000010 

000000 
000000 
000010 

000000 
000000 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



M0V8 


PORTA.RMCS2(R0) . 


■SELECT PORT #A 


CLR 


RMDSCRO) 


■SEIZE THE DRIVE 


MOV 


#11.RMCS1(R0) 


; ISSUE DRIVE CLEAR 


MOV 


#13.RMCS1(R0) 


■RELEASE THE DRIVE 


M0V8 


PORT8,RMCS2(R0) 


•SELECT PORT #8 


CLR 


RMDS(RO) 


•SEIZE THE DRIVt THROUGH PORT 'B' 


MOV 


*11.RMCS1(R0) 


: ISSUE DRIVE CLEAR 


MOV 


#13,RMCS1(R0) 


•RELEASE THE DRIVE 



: SEIZE THE DRIVE TfWOUGH PORT 6 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLP 

CMP 

BEQ 

EMT 



P0RT8.RMCS2(R0) .-SELECT PORT 8 
PORTS, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

PORTA, RMCS2(R0) .-SELECT PORT A 
PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR 



PORTA.OPPRT 
RMDS(RO),$BDDAT 
R0,$8DADR 
*RMDS.t8DADR 
$GDDAT 

SGDDAT tBDDAT 

64 S 

4 



'OPPOSITE* PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 



TYPE OUT 



'ZR»1RB0 RMO'i/3/: DU POR tst 1 MACRO VOA.OO 
TIC PORT 'A' RELEASE INTERFERENCE TEST 



H 1 0 

^-APR-81 18:06: i'S PAGE 10-^1 



S€0 0061 



013520 
01352A 
013524 
013532 
013540 
013546 
013554 
013562 
01 3570 
01 3574 
01 360? 
013610 
013616 
013620 
013622 



000137 014530 



113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



001226 
001226 
000012 
020001 
011700 
001124 
001166 
001 1 26 
001166 
001124 



000010 
001 240 
001 1 26 
001126 
001124 
001166 

001164 
001164 
001164 



64$: 



65$: 



JW 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 



1$ 



;8YPASS REST OF THE SUBTEST 



PORT8.RMCS?<R0) .-SELECT PORT 8 

PORTS, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M.'PIP,$BDDAT .-CLEAR DONT CARE BITS 

#MOL.PGM.DPR.DRV.'VV.$GDDAT .-EXPECTED STATUS 
$GDDAT.$T«P1 .-USE GOOD DATA AS A MASK 

.-COMPLEMENT THE EXPECTED STATUS 
.•SAVE THE ACTUAI STATUS 
.•CLEAR UNWANTED BITS 

;ARE THE EXPECTED STATUS BITS SET ? i 
;8R If THEY ARE I 



STMPI 

$eDDAT,$TMPO 
$TMP1.$TMP0 
$GDDAT.$TMP0 
65$ 
5 



01 3624 


1 1 3760 


001224 


A AAA 4 A 

000010 




M0V8 


013632 


013737 


001224 


001240 




MOV 


013640 


012760 


000013 


AAA AAA 

000000 




MOV 










.VERIFY 


THAT 


013646 


C05037 


001250 






CLR 


013652 


016037 


00001 2 


001 1 26 




MOV 


013660 


012737 


000012 


001 122 




MOV 


013666 


060037 


001 1 22 






ADD 


013672 


005037 


001124 






CLR 


01 3676 


023737 


001124 


001126 




CMP 


013704 


001403 








BEO 


0*3706 


104010 








EMT 


013710 


005137 


001250 






COM 


013714 


016037 


AAA AAA 

000000 


00 ' 126 


66$: 


MOV 


V 1 5f cc. 


ni "3777 


nnnnnn 

UUUUUU 


UU 1 1 t t 




MOV 


013730 


060037 


001122 






ADD 


013734 


032737 


020000 


001126 




BIT 


013742 


001404 








BEC 


013744 


104011 








EMT 


013746 


012760 


040000 


000000 




MOV 


013754 


000240 






67$: 


NOP 


01 3756 


005737 


001250 






TST 


013762 


001402 








BEQ 


013764 


000137 


014530 






JMP 










.•RELEASE THE 


013770 


113760 


001226 


000010 




M0V6 


013776 


013737 


001226 


001240 




MOV 


014004 


012760 


000013 


000000 




MOV 










.-VERIFY 


THAT 


014012 


005037 


001254 






CLR 


014016 


012737 


111700 


001124 




MUV 


014024 


012737 


000012 


001122 




MOV 


014032 


060037 


0011-22 






ADD 



;TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 
P0RTA.RMCS2(R0) .-SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1(R0) ;I5SUE A RELEASE COMMAND THRCWGH PORT A 

.VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 



CKERR 

R«DS(R0),$8DDAT 
jrRMDS,$8DADR ;F 
R0,$8DADR 
SGDDAT 

$GDDAT,$8DDAT 
66$ 

10 

CKERR 

RMCS1(R0),$8DDAT 
*RMCS1,$8DADR 
R0,$8DADR 
*MCPE,$8DDAT 
67$ 
11 

#TRE.R«CS1(R0) 

CKERR 
.♦6 
1$ 



.-CLEAR THE 'CHECK ERROR' INDICATOR 

.GET CONTENTS Of RMDS 
ORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 
;8R IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 

;GET THE CONTENTS OF RHCSl 
;FORM ADDRESS OF REGISTER 
.•ADDRESS BASE 
;IS 'MCPE' SET ? 
;8R IF NOT 



.•CLEAR 'MCPE* 

.-WAS RMDS NGN ZERO ? 

.CONTENTS OF RMDS SEEN BY PORT A 

.•DRIVE IN NEUTRAL. BYPASS REST OF TEST 



PORTS. RMCS2(R0) ;SELECT PORT B 

PORTS. PTN8R .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCS1(R0) ; ISSUE RELEASE THROUGH PORT B 

.•VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 

RELERR ; CLEAR 'RELEASE ERRPR' INDICATOR 

#ATAIMOl 1PG«.DPRIDRV:VV,$G0DAT .-COMPARISON CONSTANT 
*R«DS,$BDADR ; REGISTER ADDRESS INCREMENT 
R0,$8DADR .-REGISTER BASE ADDRESS FOR TYPEOUT 



ZWMRBO RM05/?/? DU PGR TST 1 MACRO VO^.OO 
H PORT 'A' RELEA<;e INTERFERENCE fEST 



I 10 
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0UC36 
OHO^A 
0U052 
0H060 
OK066 
0U07A 

0U10A 
0U110 
01A112 
0U1K 
0U122 
0K130 
0U136 
OKKO 
0UK2 



0U152 
0U160 



0U166 
0K172 
01 •''♦200 
0U20A 
01A212 
0U220 
0K226 
0U23A 
0U2A2 
0K250 
0K256 
0K264 
0H272 
0U300 
0U306 
0K3U 
0U316 
0K322 
0K324 
014326 
0U332 
0U340 
CU346 
0K354 
0K360 
0K362 
0K370 
0K376 
OKA04 
014410 
014412 
0U420 



1 1 3760 
013737 
016037 
1 1 3760 
013737 
016037 
001404 
005737 
001401 
104031 
013737 
013737 
023737 
001401 
104027 
000240 



1 1 3760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 



001224 
001224 
000012 
001226 
001226 
000012 

001164 



001164 
001224 
001124 



0C1224 
001224 
00001 3 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



014526 
001 1 70 
001226 
001226 
001164 

001224 
001172 
001224 
001166 

■[77777 
000011 



000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001 1 26 



000010 
001240 
000000 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 
000000 



68S: 



69$: 



M0V8 

MOV 

MOV 

M0V8 

MOV 

MOV 

BEQ 

TST 

BEQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTN8R :MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO).$TMP0 ;READ STATUS REGISTER FROM PORT A 
PORTS. RMCS2(R0) .-SELECT PORT 8 

PORTS. PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0).S8DDAT .-DRIVE STATUS FROM PORT B 

8R IF STATUS FROM PORT B ZERO 
IS STATUS FROM PORT A ZERO ? 
8R IF ZERO 



66$ 
STMPO 
68$ 

31 

$TMPO.$BDDAT 

PORTA.PTNBR 

$GDDAT.$BDDAT 

69$ 

27 



CHECK STATUS'FROM PORT A 
CHANGE PORT ADDRESS FOR TYPEOUT 
COMPARE WITH CONSTANT 
BR IF OK 



.•RELEASE THE DRIVE FROM PORT A 

M0V8 PORTA. RMCS2(R0) .'SELECT PORT A 

MOV PORTA. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT A 

: VERIFY THAT THE DRJVE IS STILL IN NEUTRAL 



70$: 



71$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BJC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

MOV 

M0V8 

TST 

BNE 

MOV 

MOV 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS.$8DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

*«OL!PGM!DPRfDRY!VV.$GDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) ; SELECT PORT A. 

R«DS(R0).$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
XrPIP! WRL10M.$TMP2 .-CLEAR OONT CARES 

$T/iP2.$TMP0 ;C0Py IT INTO •$TMPO' 

*ATA.'VV.$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORT8,RMCS2(R0) .'SELECT PORT B. 

R«DS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP1WRL!0M.$TMP3 .'CLEAR DONT CARES 



$T/iP3.$TMP1 
#ATA.'VV,$TMP1 
$TMP0,$TMP1 

70$ 

$TMPO 

72$ 

46 

74$ 

$TW2,$BDDAT 
PORTS, PTNBR 
PORTS, RMCS2(R0) 
$TMPO 
71$ 

PORT A, PTNBR 

$TMP3,$8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

72$ 

*-1. RELERR 
*11.RMCS1(R0) 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

8YPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 



CZRMRBO Rri05/3/2 DU HQft TST ' MACRO VOA.OO 
TIC PORT 'A* RELEASE INTERFERENCE TEST 



J 10 

4-APR-81 18:06:i?5 PAGE 10-23 



3^8 
347 
348 



349 
350 



0U426 


01?760 


000013 


000000 




MOV 


#13.RMCS1(R0) .-RELEASE THE DRIVE 


0U434 


104026 








EMT 


26 




014436 


013737 


001 1 70 


001126 




MOV 


$TMP2,$8DDAT 


LOOK FOR BIT FAILURES WHEN RMDS READ 


014444 


013737 


001224 


001240 




MOV 


PORTA, PTN8R 


CHANGE PORT NUMBER 


014452 


042737 


100000 


001126 




BIG 


#ATA.$BDDAT 


DON'T CHECK THE ATTN BIT 


014460 


023737 


001124 


001126 




CMP 


$GDDAT.$BDDAT 


•ALL BITS OK ? 


014466 


001401 








BEQ 


73S 


BR IF OK FROM PORT \. 


0U470 


104007 








EMT 


7 




014472 


013737 


001 1 72 


001126 


73$: 


MOV 


STMP ^,$BDDAT 


•CHECK RMDS FOR BIT FAFlURES - FROM PORT 


014500 


013737 


001226 


001240 




MOV 


P0rU8,PTNBR 


■CHANGE PORT NUMBER 
-DON'T CHECK THE ATTN BIT 


014506 


042737 


1Q0000 


001126 




BIG 


*ATA,$BDDAT 


0145K 


023737 


001124 


001126 




CMP 


SGDDAT.SBDDAT 


;SEF IF READ OK FROM PORT B. 


014522 


001401 








BEQ 


74$ 


;8R IF OK 












FMT 


7 




014526 


000240 








NOP 






014530 


000004 






1$: 


SCOPE 


.-LOOP ? 










.■•TEST 


1 1 


PORT 'B' RELEASE 


INTERFERENCE TEST 



VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A'. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT 'S'. 

E. RELEASE THE DRIVE THROUGH PORT '8*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



014532 








TSTll: 








014532 


005737 


001300 






TST 


tCYBCTL 


PERFORMING ONLY SINGLE TEST ? 


014536 


001406 








BEQ 


2$ 


BR IF NOT 


014540 


100002 








BPL 


IS 


•8R If JUST ENTERED TEST 


01 4542 


000137 


003074 






JMP 


EXEC 


'RETURN ft GET NEXT TEST NUMBER 


014546 


012737 




001 300 


1$: 


MOV 


#-l,KYBCTL 


SET SINGLE TEST INDICATOR 


014554 


012737 


014570 


001106 


2$: 


MOV 


#TESni,$LPADR , 


SETUP SCOPE LOOP ADDRESS 


014562 


012737 


014570 


001110 




MOV 


#TESTn,$LPERR . 


■SETUP ERROR LOOP ADDRESS 


0':4570 








TEST11: 






MOVE #11 TO TEST Nl^ER 


014570 


112737 


00001 1 


001102 




M0V8 


#11,$TSTNH 


014576 


012706 


001100 






MOV 


#STACK,SP 


•LOAD THE STACK POINTER 


014602 


012737 


000012 


001 1 76 




MOV 


<flO..$TIMES 


;;D0 10. ITERATIONS 



; CLEAR ATTENTION BITS FOR BOTH PORTS 



014610 113760 001224 000010 

014616 005060 000012 

014622 012760 000011 000000 

014630 012760 000013 000000 



M0V8 PORTA.RMCS2(R0) 

fLR RMDS(RO) 

MOV #11,RMCS1(R0) 

MOV /r13.RMCSl<R0) 



SELECT PORT *A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



CZRMRBO RMOS/3/2 DU POR TST 1 MACRO V04..00 
Til POR' "e* RELEASE INTERFERENCE TEST 



0U636 

0K650 
0U656 



0U664 
0K672 
OK 700 
0K70A 
0U712 
OV.720 
0U726 
0U73A 
OK 740 
0K746 
0K752 
0K760 
GK762 
OK 764 
0K770 
0K770 
OK 776 
015004 
015012 
01 5020 
015026 
015034 
015040 
01 5046 
015054 
015062 
015064 
015066 



01 5070 
015076 
015104 



015112 
015116 
015124 
015132 
015136 
015142 
015150 
015152 
015154 
015160 
015166 
015174 
015200 



113760 
005060 
012760 
012760 



113760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



113760 
013737 

012760 



005037 
016037 
012737 
060037 
005037 
023737 
001403 
104010 
005137 
016037 
012737 
060037 
032737 



001226 
000012 
00001 1 
000013 



001224 
001224 
000012 
001226 
001226 
001226 
000012 
001122 
00001^ 
001124 
001124 



015774 

001224 
001224 
000012 
020001 
01 1 700 
001124 
001166 
001126 
001166 
001124 



001226 
001226 
000013 



001250 
000012 
000012 
001122 
001124 
001124 



001250 
000000 
000000 
001122 
020000 



000010 

000000 
000000 



000010 
001242 

oooo-io 

001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



000010 
001240 
000000 



001126 
001122 



001126 



001126 
001122 

001126 



4-APR-81 



M0V8 
CLR 
MOV 
MOV 



K 10 

18:06:25 PAGE 10-24 



SEO 0064 



PORTS, RMCS2(R0) 
RMDS(RO) 
#n,RMCSl(RO) 
#13,RMCS1 (RO) 



.•SELECT PORT *8 
.•SEIZE THE DRIVE THROUGH PORT 
.ISSUE DRIVE C^tAR 
.•RELEASE THE DRIVE 



•8' 



.•SEIZE THE DRIVE THROUGH PORT A 



64$: 



65$: 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

MOVE 

MOV 

MOV 

SIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

6E0 

EMT 

NOP 



PORTA. RMCS2(R0) .-SELECT PORT A 
PORTA, SE12PT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

PORT8,RMCS2(R0) .-SELECT PORT B 

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
P0RT8.0PPRT .-'OPPOSITE' PORT ADDRESS 
RMDS(R0).$8DDAT ;SEE IF DRIVE SEIZED Br PORT A 
;RH/RM BASE ADDRESS 
.•GENERATE BAD REGISTER ADDRESS 
.-REGISTER SHOULD BE ZERO 
.-IS THE REGISTER ZERO 
;8R IF IT IS 



R0,$6DADR 
*RMDS.$8DADR 
SGDDAT 

$GDDAT.$8DDAT 
64$ 
4 
1$ 



;8YPASS REST OF THE SUBTEST 



PORTA, RMCS2(R0) ; SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO- LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAT .SEE IF SEIZING PORT SEES CORRECT STATUS 
*0M!PIP,$8DDAT .-CLEAR DONT CARE BITS 

/»MOL.'PGM!DPR!DRY!VV,$GDDAT .-EXPECTED STATUS 
$6DDAT,$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT,$TMP0 
$T«P1,$TMP0 
$GDDAT,$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
8R IF THEY ARE 



;TRV TO EXECUTE A RELEASE COMMAND THROUGH PORT B 
M0V8 P0RT9,RMCS2(R0) .-SELECT PORT B 

MOV P0RT8,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(R0) ; ISSUE A RELEASE COMMAND THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT- A 



66$: 



CLR CKERR 

MOV RM0S(R0),$8DDAT 

MOV *RMDS,$8DADR .-F 

ADD RO,$BDADR 

CLR $6DDAT 

CMP $6DDAT,$8DDAT 

BEO 66$ 

EMT 10 

COM CKERR 

MOV RMCS1(R0),$8DDAT 

MOV *RMCS1,$8DADR 

ADD R0,$8DADR 

BIT *MCPE,$6DDAT 



; CLEAR THE 'CHECK ERROR" INDICATOR 

.-GET CONTENTS Of RMDS 
ORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
,-IS THE REGISTER OK ? 
;BR IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 

.-GET THE CONTENTS OF RHCS1 
.-FORM ADDRESS OF REGISTER 
.-ADDRESS BASE 
;IS 'MCPE' SET ? 



CZRMRBO 



RM05/3/2 
PORT "B" 

015206 
015310 
015212 
015220 
015222 
015226 
015230 



DU POR TST 1 WACRO V04.00 
RELEASE INTERFERENCE TEST 



4-APR-81 18:06:«?5 



L 10 
PAGE 10-25 



01 5234 
015242 
01 5250 



015256 
015262 
015270 
01 5276 
015302 
015310 
015316 
01 5324 
015332 
015340 
015346 
015350 
015354 
015356 
01 5360 
015366 
015374 
01 5402 
015404 
0154C 



015410 
01 5416 
CI 5424 



015432 
015436 
015444 
015450 
01 5456 
015464 
015472 
015500 
015506 
015514 
015522 
015530 



001404 
104011 
012760 
000240 
005737 

001402 
000137 



1 1 3760 
013737 
012760 



005037 
012737 
012737 
060037 
113760 
013737 
016037 
113760 
013737 
016037 
001404 
005737 
001401 
104031 
013737 
013737 
023737 
001401 
104027 
000240 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 



040000 
001250 
015774 



001224 
001224 
000013 



00^254 
1 1 1 700 
000012 
001122 
001226 
001226 
000012 
001224 
001224 
000012 

001164 



001164 
001226 
001124 



001226 
001226 
000013 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 



000000 



000010 
001240 
000000 



001124 
001122 

000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001126 



000010 
001240 
000000 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001172 
001 1 72 



67$: 



GEO 
EMT 
MOV 
NOP 
TST 
BEQ 
JMP 



67$ 

11 

#TRE.RMCS1 (RO) 

CKEPR 

.♦6 

1$ 



;8R If NOT 

CLEAR 'MCPE' 

WAS RWDS NON ZERO ? 

CONTENTS OF RMDS SEEN BY PORT B 

DRIVE IN NEUTRAL, BYPASS REST OF 



TEST 



.•RELEASE THE DRIVE FROM PORT A 



M0V8 PORTA. RMCS2(R0) .-SELECT PORT A 

MOV PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13,RMCS1(R0) ;JSSUE RELEASE THROUGH PORT A 

;VFRIFY THAT DRIVE IS SEIZED BY PORT 3 WHEN RELEASED BY PORT A 



68$: 



69$: 



CLR 

MOV 

MOV 

ADD 

M0V8 

MOV 

MOV 

MOVB 

MOV 

MOV 

BEQ 

TST 

BEQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 



RELERR ; CLEAR 'RELEASE ERROR* INDICATOR 

<fATA!M0LlPGMIDPR.'DRY!VV,$6DDAT .-COMPARISON CONSTANT 
#RMDS.$aDADR .-REGISTER ADDRESS INCREMENT 
R0.$8DADR ,-REGISTER BASE ADDRESS FOR TYPEOUT 

PORTS, RMCS2(R0) .-SELECT PORT B 

P0RT8,PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPFQUT 
RMDSCRO),$TMP0 .READ STATUS REGISTER FROM PORT B 
P0RTA,RMCS2<R0) .-SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

RMDS(R0),$8DDAT ;DRIVE STATUS FROM PORT A 

68$ ;8R IF STATUS FROM PORT A ZERO 

$TMPO ;IS STATUS FROM PORT B ZERO ? 

68$ .-BR IF ZERO 

31 

$TMPO,$eDDAT .-CHECK STATUS FROM PORT B 

.-CHANGE PORT ADDRESS FOR TYPEOUT 
; COMPARE WITH CONSTANT 
;8R fF OK 



P0RT8.PTN6R 
$GDDAT,$BDDAT 
69$ 

27 



.-RELEASE THE DRIVE FROM PORT B 

MOVB P0RT8.RMCS2(R0) .'SELECT PORT B 

MOV PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

MOV #RMDS,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD R0,$80ADR ;ADD THE I/O BASE ADDRESS 

MOV *M0L:PGM!DPR!DRY!VV,$GDDAT .-COMPARISON CONSTANT 

M0V8 PORTA,RMCS2(R0) ; SELECT PORT A. 

MOV RMDS(R0),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

SIC #PIP! WRL!0M.$TMP2 .-CLEAR DONT CARES 

MOV $TMP2,$TMP0 .-COPY IT INTO •$TMPO' 

BIC #ATA!VV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

M0V8 PORT8,RMCS2(R0) .-SELECT PORT B. 

MOV RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 

BIf /lfPIP!WRL!0M,$TMP5 .-CLEAR DON^ CARES 



CZRWBO 



351 
371 
372 



R?l05/3/2 OU POR TST 1 MACRO VGA. 00 
PORT "B* RELEASE INTERFERENCE TEST 



A-APR-81 18:06:25 



PAGE 



10 

10-26 



SEO 0066 





01^757 


001 1 72 

WW lire 


001 166 

WW ' 1 WW 




MOV 


$TMP3 $TMP1 




\JHC< Jf 


100100 


001166 

WW ■ 1 WW 




BIC 


fATA VV $TMP1 




\JCjf 


noi 1 A4 

V/V 1 1 OH 


001 166 

WW 1 1 




CMP 


$TMPO $TMP1 




oninoA 








BNE 


70$ 


V/ 1 JJOC 


nn';7^7 


nm 1 fk4 






TST 


$TMP0 




nnin4S 










72$ 




10404^ 








EMT 


46 




nnni \7 


01 577? 






JMP 


74$ 


ni ';s7ft 


01 3737 


001 170 

WW 1 1 ' w 


001 1 26 

WW 1 1 b w 


70$: 


MOV 


$TMP2 $BDDAT 




m ^7^7 


\J\J I CCW 


w^ 1 C"w 




MOV 


PQUXB PTNBR 


nis^ii? 


11'^7ft0 


WW \ CC\J 


000010 

WWWW 1 w 




MOVB 

• IW V w 


P0RT8-RMCS2(R0) 




005737 


001 164 

WW 1 1 vJ~ 






TST 


$TMPO 




001414 








BEO 


71$ 


01 56P6 


013737 


001224 

WW 1 c c ~ 


001240 

WW 1 




MOV 


PORT A. PTNBR 




013737 


001172 

WW 1 1 ' c 


001126 

WW 1 ■ C w 




MOV 


$TMP3.$8DDAT 




' 1 1 3760 


001224 

WW 1 b b ~ 


000010 

WWWW 1 w 




MOVB 


PORTA, RMCS2(R0) 


015650 


005737 


001 1 66 

WW 1 1 WW 






TST 


$TMP1 


01 5654 


001012 








BNE 


72$ 


01 5656 


012737 


1 77777 


001254 

WW ' c 


71$: 


MOV 


#-1 >RELERR 


01566^ 


01 2760 

VIC* wV 


00001 1 

WWWW 1 1 


000000 

WW WWW w 




MOV 


#11 ,RMCS1 (RO) 


01 567? 


012760 


00001 3 

WWWW 1 -J 


000000 

wwwwww 




MOV 


#13.RMCS1 (RO) 


015700 


104026 








EMT 


26 


01570P 


013737 


001 1 70 


001 126 


72$: 


MOV 


$TMP2,$6DDAT 


015710 


013737 


001 224 


001 240 




MOV 


PORTA^PTNBR 


015716 




100000 

1 wwwww 


001 1 26 




BIC 


#ATA,$BDDAT 


015724 


023737 
001401 


001124 


001126 




CMP 


$GDDAT,S8DDAT 


015732 








BEQ 


73$ 


015734 


104007 








EMT 


7 


015736 


013737 


001 1 72 


001126 


73$: 


MOV 


$TMP3.$8DDAT 


015744 


013737 


001 226 


001240 




MOV 


PORTS, PTNBR 


015752 


042737 


100000 


001126 




BIC 


#ATA.$BDDAT 


015760 


023737 


001124 


001126 




CMP 


$GDDAT,$8DDAT 


015766 


001401 








BEO 


74$ 


015770 


104007 








EMT 


7 


015772 


000240 






74i,: 


NOP 




015774 


000004 






1$: 


SCOPE 





COPY IT INTO •$TM'51' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

JS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPP OUT 
SELECT PORT A, 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 



- FROM PORT 8. 



CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



;LOOP 



•********»*«**••****•***•••**<>»****•***••*******»«•*****•*»•***• 

•TEST 12 PORT 'A' RELEASE U/ERRORS TEST 

•VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
* 

• A. 
* 

• B. 
* 

• C. 
* 

* 

• D. 
* 

• E. 
* 
* 



BITS ARE SET IN THE DRIVE. 

SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
WRITE I'S INTO RHER1 THROUGH PORT 'A*. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE 'GO' 
BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. Mb 
THAT RMER1 HAS NOT BEEN CLEARED. 

CLEAR RMER1 BY ISSUING A DRIVE CLEA^ COMMAND THROUGH PORT 'A'. 

ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



N 10 

CZRMRBO RM05/3/2 DU POR TST 1 WACRO V04.00 4-APR-81 18:06:25 PAGE 10-27 
112 PORT 'A' RELEASE W/ERRQRS TEST 



EO 006/' 



373 
407 



015776 








TST12: 




015776 


005737 


001 300 






TST 




001406 








6EQ 


016004 


10000? 








BPL 


016006 


000137 


003074 






JMP 


016012 


012737 


M7777 


001 300 


IS: 


MOV 


016020 


012737 


016034 


001106 


2$: 


MOV 


016026 


012737 


016034 


001110 




MOV 


016034 








TEST12: 




016034 


112737 


000012 


001102 




M0V8 


016042 


012706 


001100 






MOV 


016046 


012737 


000012 


001176 




MOV 



016054 
016062 
016066 
016074 
016102 
016110 
016114 
016122 



016130 
016136 
016144 
016150 



016156 
016164 
016172 
016176 
016204 
016212 
016216 
016224 
016232 
016240 
016246 
016250 
016256 
016264 
016272 
016274 
016300 
016302 
016306 
016310 
016314 

016322 



KV8CTL 

2S 

IS 

EXEC 

#-1 .K^BCTL 

#TEST12.SLPADR 

#TEST12,SLPERR 

#12.STSTNM 

*STACK.SP 

#10..$TIMES 



PERFORMING ONLY SJNG.E TEST 
BR If NOT 

8R IF JUST ENTERED TEST 
RETURN % GET NEXT TEST NUMR'-R 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #12 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 



012760 
012760 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104025 
005137 
000240 
005737 
001002 
000137 
012760 
113760 



001224 
000012 

oooon 

000013 
001226 
000012 
00001 1 
000013 



001224 
001224 
000012 
001226 



^77777 
000013 
001250 
000000 
000000 
001122 
004012 
001126 
173765 
001124 

001126 
004012 
001174 

001250 

001250 

016350 
000040 
001224 



000010 

000000 
000000 
000010 

000000 
000000 



000010 
001242 

001244 



000014 
000000 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



;CLEAR ATTENTION BITS FOR BOTH PORTS 



M0V8 PORTA, RMCS2(R0) 

CLR RMDS(RO) 

MOV #11.RMCS1(R0) 

MOV #13,RMCS1(R0) 

MOVB PORT8,RnCS2(R0) 

CLR RMDSCRO) 

MOV *11.RMCS1(R0) 

MOV /rl3.RMCSl(R0) 

; SEIZE THE DRIVE THROUGH PORT A 



.•SELECT PORT #A 

.•SEIZE THE DRIVE 

; ISSUE DRIVE CLEAR 

.•RELEASE THE DRIVE 

.'SELECT PORT *8 

.•SEIZE THE DRIVE THROUGH PORT 

.•ISSUE DRIVE CLEAR 

.•RELEASE THE DRIVE 



•8* 



0000^0 
000010 



M0V8 
MOV 
CLR 
MOV 

.•FORCE AN ERROR 

MOV 

MOV 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
8IC 
CMP 
BEQ 
MOV 
6IC 
BIS 
EMT 
COM 

66S: NOP 
TST 
BNE 
JMP 
MOV 
MOVB 



POftTA,RMCS2CR0) ;SELECT PORT A 

PORTA. SEIZPT .-STORE SEIZING PORT'S ADDRESS 

R«DS(RO) .-WRITE RMDS 

PORTS. OPPRT ; 'OPPOSITE' PORT ADDRESS 



#-1 .RMER1 (RO) .-SET ERROR BITS 
#13.R«CS1(R0) .ISSUE A RELEASE COMMAND 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RHCS1(R0).S8DDAT ;GET CONTENTS OF RMCSl 
#RMCS1.SBDA0R ;F0RM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO 'STMPO' 
.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF. OK 
.-COPY 'BAD DATA* 
.•CLEAR THE MASKED BITS . 
;'0R' WITH GOOD DATA FOR TYPE OUT 



R0.S8DADR 
#4012,$GDDAT 
SSDDAT.STMPO 
#*C40li.STMP0 
SGDDAT, STMPO 
66S 

$8DDAT,$TMP4 
#4012.$TMP4 
STMP4.$GDDAT 

25 

CKERR 



CKERR 

-*6 

1$ 

*CLR.RMCS2(R0) 
P0RTA.RMCS2(R0) 



;SET THE REGISTER COMPARE ERROR INDICATOR 

;DID 'GO' BIT RESET ? 
;8R IF NOT 
.••GO' BIT RESET 
;INIT THE RH/RM 
.•SELECT PORT A 



/«MRbO RM05/5/? DU POR TST 1 MAC«0 VCK.OO 
■1c' PORT 'A' RELEASE W/ERRORS TEST 



016330 013737 
016356 012760 
0163A4 000137 



001 22A 001240 
0000^3 000000 
0171U 



016350 
016550 
016356 
016364 
016370 
016376 
016404 
016410 
016414 
016422 
016424 
016426 
016452 
016434 
016442 
016450 
016454 
016462 
016470 
016474 
016502 
016510 
016512 
016514 
016520 



1 1 3760 
013737 
005037 
016037 
012737 
060037 
005037 
023737 
001403 
104024 
005157 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
023737 
001403 
104010 
005137 
000240 



001226 
001226 
001250 
00001? 
000012 
001122 
001124 
001124 



001250 

001 224 
001224 
001250 
000014 
000014 
001122 
\77m 
001124 



001250 



000010 
001240 

001126 
001122 



001126 



000010 
001240 

001126 
001122 

001124 
001126 



016522 012760 000011 OOOOOO 



016530 
016536 
016544 



016552 
016556 
016564 
016570 
016576 
016604 
016612 
016620 
016626 
016634 
016642 
016650 
016656 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 



001224 
001224 
000013 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 



000010 
001240 
OOOOOO 



001122 

001124 
000010 
001170 
001 1 70 
001164 
001164 
000010 
001172 
001172 
001166 



4-APR-81 



MOV 



B 11 
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P0RTA.PTN8R ;M0VE PORT ADDRESS IP LOCATION ^OR TYPEOUT 
#15.R«CS1 (RO) .-RELEASE THE DRiVfc THROUGH PORT A 
2$ .-BYPASS THE REST OF THE TEST 



.-VERIFY THAT DRWE IS STILL SEIZED BY PORT A 



IS: 



68$: 



70$: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

COM 

NOP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEQ 

EMT 

COM 

NOP 



PORTB.RMCS2(R0) ;SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCAflON FOR TYPEOUT 
CK'cRR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RM0S<R0),$8DDAT .GET CONTENTS OF RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.$eDADR :ADD RH/RM BASE ADDRESS 

$GDDAT .-WHAT REGISTER SHOULD BE 

$6DDAT.$8DDAT ;IS THE REGISTER OK ? 
;8R IF OK 



68$ 

24 
CKERR 



.-SET THE REGISTER COMPARC ERROR INDICATOR 



POflTA.RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMER1(R0).$eDDAT .-GET CONTENTS OF RMER1 
#RMER1 .$eOADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 
.-BR IF OK 



R0,$8DADR 
#1 77777. SGDDAT 
$GDDAT,$8DDAT 
70$ 
10 

CKE«R 



;SET THE REGISTER COMPARE ERROR INDICATOR 



; CLEAR THE ERRORS THROUGH PORT A 

MOV #11.RMCS1(R0) .-ISSUE A DRIVE CLEAR 
.-RELEASE THE DRIVE FROM PORT A 

M0V8 PORTA.RMCS2(R0) .-SELECT PORT A 

MOV P0ftTA,PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(R0>- .-ISSUE RELEASE THROUGH PORT A 



;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



INDICATOR 
FOR TYPEOUT 



POR' 



CLR RELERR ; CLEAR THE 'RELEASE ERROR 

MOV .tRMDS.$8DADR .-FORM THE ADDRESS OF RMDS 

ADD R0.$8DADR .ADD THE I/O BASE ADDRESS 

MOV *MOL!PGM!DPR.'DRYIVV.$GDDAT .-COMPARISON CONSTANT 

M0V8 PORTA. RMCS2(R0) .'SELECT PORT A. 

MOV RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM 

BIC #PIP ; URL 10M.$TMP2 .-CLEAR DONT CARES 

MOV $TIV»2.$TMP0 .-COPY IT INTO '$TMPO' 

BIC #ATA!VV.$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

MOVB PORT3,RMCS2(R0) .-SELECT PORT B. 

MOV RM0S(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 9 

BIC #PIP!URL.0M.$TMP3 . ;CIEAR DONT CARES 

MOi/ $TMP3.$TMP1 .-COPY IT INTO •$TMPr 



:kf^RBO RM05/5/2 DU POR TST 1 f«lACRO V04.00 
PORJ 'A' RELEASE W/ERRORS TEST 



^08 
428 
429 



016664 
016672 
016700 
016702 
016706 
016710 
016712 
016716 
016724 
016732 
016740 
016744 
016746 
016754 
016762 
016770 
016774 
016776 
017004 
01 701 2 
017020 
01 7022 
01 7030 
017036 
017944 
017052 
017054 
017056 
017064 
01 7072 
017100 
01 7106 
017110 
017112 
0171 1 4 



042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 
012760 
104026 
013737 
013737 
042737 
023737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 
000004 



100100 
001164 

001164 



017112 
001170 
001226 
001226 
001164 

001224 
001172 
001224 
001166 

1 77777 
00001 1 
000013 

con 70 
001224 
100000 
001124 



001172 
001226 
100000 
001124 



001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 
000000 
000000 

001126 
001240 
001126 
001126 



001126 
001240 
001126 
001126 



72S: 



73$. 



74$: 



75$: 



76$: 
2$: 





C M 


APR-81 


18:06:25 PAGE '0 


BIC 


*ATA. VV.STMPl 


CMP 


$TMP0,$TMP1 


BNE 


72$ 


TS' 


$TMPO 


BNE 


74$ 


EMT 


46 


JWP 


76$ 


MOV 


$TMP2,$BDDAT 


MOV 


P0RT8.PTNBR 


MOVB 


P0,'^T8,RMCS2(R0) 


TST 


$TMP0 


QkQ 


73$ 


MOV 


PORTA, PTN6R 


MOV 


$TMP3,$BDDAT 


M0V8 


PORTA, RMCS2(R0) 


TST 


$TMP1 


BNE 


74$ 


MOV 


*-l ,RELERR 


MOV 


#11 ,RMCS1 (RO) 


MOV 


#13.ftMCSl (RO) 


EMT 


26 


MOV 


$TMP2.$8DDAT 


MOV 


P0RTA,PTNBR 


BIC 


#ATA,$8D0AT 


CMP 


$GDDAT,$BDDAT 


BEQ 


75$ 


EMT 


7 


MOV 


$TnP3,$B0DAT 


MOV 


PORTS, PTNBR 


BIC 


4rATA,$8DDAT 


CMP 


$GDDAT,$8DDAT 


BEO 


76$ 


EMT 


7 


NOP 




SCOPE 





SEO 0069 



.CLEAR PORT DEPENDENT BITS FROM THE COPY 

.!S THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

;'iR IF NOT 

; REGISTERS ARE THE SAME: ARE THEY ZERO ? 
;8R IF NOT 

.•BYPASS THE REST OF THE CHtCKS 
;SET UP POSSIBLE BAD DATA FOR ERROR MESSAGF 
.•SEIZING PORT K TEST SHOWS DRIVE NOT IN NEUTRAl 
.•SELECT PORT 8. 

;SEE IF STATUS EO 0 FROM PORT A. 
;8R IF ZERO 

.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-•BAD DATA' FOR ERROR TYPE OUT 
.SELECT PORT A. 

.-SEE IF STATUS EQ ZERO FROM PORT B. 
;8R IF NOT 

;SET 'RELEASE ERROR* INDICATOR 
.•CLEAR THE DRIVE 
.•RELEASE THE DRIVE 

.-LOOK FOR BIT FAILURES WHEN RMDS READ 

.•CHANGE PORT NUMBER 

; DON'T CHECK THE ATTN BIT 

.-ALL BITS OK ? 

.-BR IF OK FROM PORT A. 

.■CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 

.•CHANGE PORT NUMBER 

; DON'T CHECK THE ATTN BIT 

;SEE IF READ OK FROM PORT B. 

;8R IF OK 



;LOOP ? 



•TEST 13 



PORT "B* RELEASE W/ERRORS TcST 



•VERIFY THAT A RELEASE C01«f1AN0 PERFORMS NO ACTION IF ISSUED WHEN ERROR 



BITS ARE SET IN THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS 

B. -WRITE rS INTO RMER1 THROUGH PORT '8'. 

C 



D. 
E. 



ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE 'GO' 
BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
THAT RMERl HAS NOT BEEN CLEARED. 

CLEAR RMERl BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'B*, 

ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS StT. 



0 



CZRMRBO 
115 



450 
431 



RM05/5/2 
PORT 'fa' 

0171U 
017116 
01 71 22 
017124 
017126 
017132 
017140 
017146 
017154 
017154 
017162 
017166 



DU POR TST 1 MACRO VG4 
RELEASE W/ERfiORS TEST 



,00 4-APR-8I 18.06:25 



D 

PAGE 



11 

10-30 



SEO 0070 



017174 
01 7202 
017206 
01 7214 
0^.7222 
01 7230 
017234 
017242 



017250 
01 7256 
017264 
017270 



017276 
017304 
017312 
017316 
01 7324 
017332 
017336 
017344 
017352 
017360 
017366 
01 7370 
017376 
017404 
017412 
017414 
017420 
017422 
017426 
017430 
017434 
017442 
017450 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
013737 
005060 
013737 



012760 
012760 
005037 
016037 
01273^ 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104025 
005137 
000240 
005737 
001002 
000137 
012760 
113760 
013737 



001300 



003074 
U77?? 
017154 
017154 

000013 
001100 
000012 



TST13: 







TST 


KY8CTL 


.PERFORMING ONLY SINGLE TEST ? 






BEO 


2$ 


;8R IF NOT 






BPL 


1$ 


;8R IF JUST ENTERED TEST 






JMP 


EXEf 


.•RETURN t GET NEXT TEST NUMBER 


001300 


1$: 


MO 


^-I.KVBCTL 


;SET SINGLE TEST INDICATOR 


001106 


2$: 


MOV 


#TEST13.$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


ooino 




MOV 


#TEST13.fLPERR 


.•SETUP ERROR LOOP ADDRESS 




TEST13 






.nuvt *ij lu itii NunotH 


001102 




M0V8 


#13,$TSTNM 






MOV 


*STACK,SP 


.•LOAD THE STACK POINTER 


001176 




MOV 


*10..$TIMES 


;;D0 10. ITERATIONS 




; CLEAR 


ATTENTION B'TS FOR BOTH 


PORTS 



113760 


001224 


000010 


Move 


PORTA. RMCS2(R0) ; 


005060 


000012 




CLR 


R«DS(RO) 


012760 


00001 1 


000000 


MOV 


*11,RMCS1(R0) 


012760 


00001 3 


000000 


MOV 


/ri3,RMCS1(R0) 


113760 


001226 


000010 


Move 


PORTS, RMCS2(R0) ; 


005060 


000012 




CLR 


RMDS(RO) 


012760 


00001 1 


000000 


MOV 


#n.R«CSl(RO) 


012760 


000013 


000000 


MOV 


^13.RMCS1(R0) 



SELECT PORT *A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



•8' 



.•SEIZE THE DRIVE THROUGH PORT B 



001226 
001226 
000012 
001224 



-[77777 
000013 
001250 
000000 
000000 
001122 
004012 
001126 
173765 
001124 

001126 
004012 
001174 

001250 

001250 

017470 
000040 
001226 
001226 



000010 
001242 

001244 



000014 
000000 

001126 
OCM 22 

001124 
001164 
001164 
001164 

001174 
001 1 74 
001124 



000010 

000010 
001240 



M0V8 
MOV 

CLR 
MOV 

; FORCE AN ERROR 

MOV 
MOV 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 

66$; NOP 
TST 
BNE 
JMP 
MOV 
M0V8 
MOV 



P0RT8,RMCS2(R0) .SELECT PORT B 

PORTS. SEIZPT .STORE SEIZING PORT'S ADDRESS 

R«DS(RO) ;WRITE RMDS 

PORTA, OPPRT ; 'OPPOSITE' PORT ADDRESS 



#-1 .RMER1 (RO) .-SET ERROR BITS 
#13,RMCS1(R0) .ISSUE A RELEASE COMMAND 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS1(R0),18DDAT ;GET CONTENTS OF RMCS1 



#R«CS1 .SBDADR 
RO.SBDADR 
#4012,$GDDAT 
$8DDAT,$TMP0 
#*C4012,tTMP0 
$6DDAT,$TMP0 
66$ 

$8DDAT,$TMP4 

#4012,$TMP4 

$TMP4.$6DDAT 

25 

CKERR 



.•FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$TMPO' 
.SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
.•'OR' WITH GOOD DATA FOR TYPEOUT 



;SET THE REGISTER COMPARE ERROR INDICATOR 

;DID '60' BIT RESET ? 
;8R IF NOT 
.••GO' BIT RESET 
;INIT THE RH/RM 
; SELECT PORT 8 



CKERR 
.*6 
)$ 

*CLR,RMCS2(R0) 

P0RT8,RMCS2(R0> - 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOuT 



CZRMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 
T13 PORT 'B* RELEASE W/ERRQRS TEST 



E 11 
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SEO 0071 



017456 
017A64 



01 7470 
017470 
017476 
017504 
017510 
017516 
017524 
017530 
017534 
017542 
0''7544 
017546 
017552 
017554 
CI 7562 
017570 
017574 
017602 
017610 
017614 
01 7622 
01 7630 
01 7632 
01 7634 
017640 



012760 
000137 



113760 
013737 
005037 
016037 
012737 
060037 
005037 
023737 
001403 
104024 
005137 
000240 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
023737 
00140? 
104010 
005137 
000240 



000013 
C20234 



001224 
001224 
001250 
00001 2 
000012 
001122 
001124 
001124 



001250 

001226 
001226 
001250 
000014 
C00014 
001122 
M7777 
001124 



001250 



000000 



000010 
001240 

001126 
001122 



001126 



000010 
001240 

001126 
001122 

001124 
001126 



MOV ♦13.RMCS1(R0) 
JMP 2$ 



.•VERIFY THAT DRIVE 



it STI 



.RELEASE THE DRIVE THROUGH PORT B 
;8YPASS THE RES' OF THE TEST 



LL SEIZED BY PORT B 



1$: 



68$: 



70$: 



nove 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEQ 

EMT 

COM 

NOP 



PORTA, RMCS2(R0) ;SELECT PORT A 

PORTA, PT^eR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMCS 
*RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR .ADD RH/ft« BASE ADDRESS 

$GDDAT .-WHAT REGISTER SHOULD BE 

$GDDAT.$BDDAT .-IS THE REGISTER OK ? 
;8R IF OK 



68$ 
24 
CKERR 



.SET THE REGISTER COMPARE ERROR INDICATOR 



PORT8.RMCS2(R0) .'SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOfATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMER1(R0),$8DDAT ;6ET CONTENTS OF RMERl 
#RMER1,$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADO RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 
;8R IF OK 



R0,$8DADR 
#1 77777, $6DDAT 
$GDDAT,S6DDAT 
70$ 

10 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•CLEAR THE ERRORS THROUGH PORT B 



017642 


012760 


000011 


000000 


MOV 










.•RELEASE THE 


017650 


113760 


001226 


000010 


MOVB 


01 7656 


013737 


001226 


001240 


MOV 


017664 


012760 


000013 


000000 


MOV 










.•VERIFY THAT 


01 7672 


005037 


001254 




CLh 


01 7676 


012737 


000012 


001122 


MOV 


01 7704 


060037 


001122 




ADD 


017710 


012737 


011700 


001124 


MOV 


017716 


113760 


001224 


000010 


MOVB 


01 7724 


016037 


000012 


001170 


MOV 


01 7732 


042737 


024001 


001 1 70 


BIC 


01 7740 


013737 


001170 


001164 


MOV 


017746 


042737 


100100 


001164 


BIC 


017754 


113760 


001226 


000010 


MOVB 


017762 


016037 


000012 


001172 


MOV 


017770 


042737 


024001 


001 1 72 


BIC 


01 7776 


013737 


001172 


001166 


MOV 


020004 


042737 


100100 


001166 


BIC 



#11,RMCS1(R0) .-ISSUE A DRIVE CLEAR 



PORTS, RMCS2(R0) .'SELECT PORT B 

PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
<fl3.RMCSl(R0) .-ISSUE RELEASE THROUGH PORT B 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS,$8DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.$8DADR .-ADD THE I/O BASE ADDRESS 

#MOL.'PGM!DPR!DRY!VV,$GDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(R0>.$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
<fPIP.'URL!0M,$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO •$TMP0' 

#ATAIVV,$TMP0 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0RT8,RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$TMP? ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
*PIP:wRI !0M.$TMP3 .CLEAR DONT CARES 

$TMP3.$TMP1 .-COPY IT INTO '$TMPr 

*ATA.VV.$TMP1 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 



;WMRbO RM05/5/2 DU PGR ^ST 1 i^CKO V04.00 
PORT 'B' RELEASE W/ERRORS TEST 



F 11 

4-APR-8' 18:06:?5 PAGE 10-52 



S£0 007? 



432 
451 
452 



020012 


02573^ 


001164 


001166 




CMP 


STMPO.STMPI 


.•IS TMt STATUS REGISTER THE SAME FROM BOTH PORTS 


020020 


001006 








BNE 


72$ 


;8R IF NOT 


020022 


005737 


001164 






TST 


$TMPO 


.REGISTERS ARE THE SAME: ARE THEV ZERO ? 


020026 


001045 








BNE 


74$ 


;8R IF NOT 


020030 


104046 
0001 57 








EMT 


46 




020032 


020232 






JMP 


76$ 


.-evPASS THE REST OF THE CHECKS 


020036 


013737 


001 1 70 


001126 


72$: 


MOV 


$TMP2.$8DDAT 


.•SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


020044 


013737 


001226 


001240 




MOV 


P0RT8.PTN8R 


020052 


1 1 3760 


001226 


000010 




M0V8 


PORTS, RMCS2(R0) 


; SELECT PORT B. 


020060 


005737 


001164 






TST 


$T'»1P0 


;SEE IF STATUS EO 0 FROM PORT A. 


020064 


0014K 








BEO 


73$ 


;8R IF ZERO 


020066 


013737 


001224 


001240 




MOV 


P0RTA,PTN8R 


.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;'8AD DATA' FOR ERROR TV^E OUT 


020074 


013737 


001 1 72 


001126 




MOV 


$TMP3.$BDDAT 


020102 


113760 
005737 


001224 


000010 




Move 


PORTA, RMCS2(R0) 


.•SELECT PORT A. 


020110 


001166 






TST 


$TMP1 


.SEE IF STATUS EO ZERO FROM PORT 8. 


020114 


001012 








BNE 


74$ 


;8R IF NOT 


G20116 


012737 


Mim 


001254 


73$: 


MOV 


#-1.RELERR 


;SET 'RELEASE ERROR' INDICATOR 


020124 


012760 


00001 1 


000000 




MOV 


#11 ,RMCS1 (RO) 


.CLEAR THE DRIVE 


0201 32 


012760 


000013 


000000 




MOV 


#13,RMCS1(R0) 


.•RELEASE THE DRIVE 


020140 


104026 








EMT 


26 




020142 


013737 


001170 


001126 


74$: 


MOV 


$TMP2.$8DDAT 


;LOOK FOR BIT FAILURES WHEN RMDS READ 


0201 50 


013737 


001224 


001240 




MOV 


PORTA, PTN8R 


.•CHANGE PORT NUMBER 
.•DON'T CHECK THE ATTN BIT 


0201 56 


042737 


100000 


001126 




BIC 


#ATA.$eDDAT 


020164 


023737 


001124 


001126 




CMP 


$GDDAT,$eDDAT 


;ALL BITS OK ? 


0201 72 


001401 








BEO 


75$ 


;8R If OK FROM POR^ A. 


0201 74 


104007 








EMT 


7 




0201 76 


013737 


001172 


001126 


75$: 


MOV 


$TMP3.$8DDAT 


.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 


020204 


013737 


001226 


001240 




MOV 


PORTS, PTNBR 


.CHANGE PORT NUMBER 


020212 


042737 


100000 


001126 




BJC 


#ATA,$BDDAT 


.•DON'T CHECK THE ATTN BIT 


020220 


023737 


001124 


001126 




CMP 


$GDDAT,$eDDAT 


.SEE IF READ OK FROM PORT B. 


020226 


001401 








BEQ 


76$ 


.•8R IF OK 












CMT 


7 

f 




020232 


000240 






76$; 


NOP 






020254 


000004 






2$: 


SCOPE 




;LOt)P ? 










.'•TEST 


14 


PORT 'A' SEIZE 


AND CLEAR TEST 



020236 

020236 OC5 737 001300 



VERIFV THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 

A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'A*. 
VERIFV THAT THE DRIVE HAS BEEN SEIZED. 

B. ISSUE A CRIVE CLEAR THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 

C. ISSUE A MASS8US CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

**•*******••»•••*•*•••«*•**•*••••••*••**••*•••*•••*•***•••*•••• 

tsn4: 

TST KY8CTL .-PERFORMING ONLY SINGLE TEST ? 



PCWT 'A' 



DU h-OR Tsr 1 MACRO 
SEIZE AND CLEAR TEST 



VCA.OO i-APR-8I 18:06:i'5 



G 

PAGE 



11 

10-33 



^53 
^33 





001406 








BEO 




8R Jr NOT 




100002 








BPL 


l> 


8R IF JUST ENTERED TEST 


0202A6 


0001 37 


003074 






Jrr 


txtr 


•RcTURN K GET NEXT TEST NUMBER 


020252 


012737 


1 77777 


001 300 




MOV 


1 .KYBCTL 


•SET SINGLE TEST INDICATOR 


020260 


0\2'57 


020274 


001 106 


2»: 


MOV 




•SETUP SCOPE LOOP ADDHtSS 




ni 3777 


<JC\fcr'* 


nni 1 1 n 

\J\J 1 1 1 u 




nuv 


» 1 t 1 1 1*^0 •Lr Ctrt 


■ CP TUP PQQOD 1 nno Annsrcc 


020274 








TEST14: 








020274 


112737 


000014 


001102 




M0V8 


#K.$TSTNM 


;MOVE #14 TO TEST NUMBER 


020302 


012706 


001100 






MOV 


#STACK,SP 


;LOAD THE STACK POINTER 


020306 


012737 


000012 


001176 




MOV 


#10..$TIMES 


;;D0 10. ITERATIONS 



020314 
020322 
020330 
020334 
020342 
020350 
0^^0356 
020364 
020370 
020376 
020402 
020410 
020412 
020414 
020420 
020420 
020426 
020434 
020442 
020450 
020456 
020464 
020470 
020476 
020504 
020512 
020514 
C20516 



1 1 3760 
013737 
005060 
1 1 3760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

1 1 3760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



001224 
001224 
000012 
001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



021634 

001224 
001224 
C00012 
0?0001 
01 1 700 
001124 
001166 
001126 
001166 
001124 



020526 
020534 
020542 
020546 
020554 
020562 
020566 
020572 



113760 
013737 
005037 
016037 
012737 
060037 
005037 
01V37 



001226 
001226 
001250 
000012 
000012 
001122 
001124 
001126 



0000 1 0 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



020520 012760 000011 000000 



000010 
001240 

001126 
001122 



001164 



.•SEIZE THE DRIVE THROUGH PORT A 



64$: 



65$: 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 

EMT 

JMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BJC 

CMP 

BEO 

EMT 

NOP 



PORTA. RMCS2(R0) .•SELECT PORT A 
PORTA. SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

P0RT8.RMCS2(R0) .'SELECT PORT 8 

PORTS. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



P0RT8.0PPRT 
RMDS(R0).$8DDAT 
R0.$8DADR 
#RMDS.$BDADR 
$GDDAT 

$GDDAT,$6DDAT 
64$ 

4 

1$ 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED Br PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

.•BYPASS REST OF THE SUBTEST 



PORTA. RMCS2(R0) ."SELECT PORT A 

PORTA. PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0).$8DDAT ;SEE if SEIZING PORT SEES CORRECT STATUS 
#0MfPIP.$8DDAT .-CLEAR DONT CARE BITS 

#MOL!PGM!DPR!0RY!VV.$GDDAT .-EXPECTED STATUS 
$GDDAT.$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT.$TMP0 
$TMP1 .$TMPO 
$GDDAT,$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET 
8R IF THEY ARE 



.•DRIVE CLEAR THROUGH PORT A FIRST 

MOV #11.R«CS1(R0) .'ISSUE DRIVE CLEAR THROUGH PORT A 
.-VERIFY THAT DRIVE STILL SEIZED BY PORT A 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 



PORT8.RMCS2(R0) .-SELECT PORT B 

P0RT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8D0Ar ;GET CONTENTS OF RMDS 
#RMDS.$BDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.$8DADR 
$GDDAT 
$8DDAT.$TMP0 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO •$TMPO' 



:H(^RB0 RM05/^/2 DU POR TST 1 MACRO VOA.OO A-APR-8 
K PORT *A' SEIZE AND CLEAR TEST 



020600 


042737 


100000 


001164 




BIC 


020606 


023737 


001124 


001164 




CMP 


0206U 


001414 








BEQ 


020616 


013737 


001126 


001 17<, 




MOV 


020624 


042737 


077777 


001 1 74 




SIC 


020632 


053737 


001174 


001124 




BIS 


0206AO 


104033 








EMT 


0206A2 


005137 


001250 






COM 


0206A6 


000240 






66S: 


NOP 


020650 


113760 


001224 


000010 




M0V8 


020656 


013737 


001224 


001240 




MOV 


020664 


005037 


001250 






CLR 


020670 


016037 


000012 
000012 


001126 




MOV 


020676 


012737 


00^122 




MOV 


020704 


060037 


001122 






ADD 


020710 


012737 


011700 


001 1 24 




MOV 


020716 


013737 


001126 


001164 




MOV 


020724 


042737 


100000 


001164 




BIC 


020732 


023737 


001124 


001164 




CMP 


C20740 


001414 








BEO 


020742 


013737 


001126 


001174 




MOV 


020750 


042737 


077777 


001174 




BJC 


020756 


0S3737 


001174 


001124 




BIS 


020764 


104033 








EMT 


020766 


005137 


001250 






COM 


020772 


000240 






68S: 


NOP 



:N0U ISSUE 



020774 


0^2760 


000040 


000010 


MOV 










.•CONFIRM THAI 


021002 


113760 


001226 


000010 


MOVB 


021010 


013737 


001226 


001240 


MOV 


021016 


005037 


001250 




CLR 


021022 


016037 


000012 


001126 


MOV 


021030 


012737 


000012 


001122 


MOV 


021036 


060037 


001122 




ADD 


021042 


005037 


001124 




CLR 


021046 


013737 


001126 


001164 


MOV 


C21054 


042737 


100000 


001164 


BIC 


021062 


023737 


001124 


001164 


CMP 


021070 


001414 






BEO 


021072 


013737 


001126 


001174 


MOV 


021100 


042737 


077777 


001174 


BIC 


021106 


053737 


001174 


001124 


BIS 


021114 


104034 






EMT 


021116 


005137 


001250 




COM 


021122 


000240 






70$: NOP 


021124 


113760 


001224 


000010 


M0V8 


021132 


013737 


001224 


001240 


MOV 


021140 


005037 


001250 




CLR 


021144 


016037 


000012 


001126 


MOV 


021152 


012737 


000012 


001122 


MOV 


021160 


060037 


001122 




ADD 


02^164 


012737 


011700 


001124 


MOV 



ri 11 

18:06:25 PAGE 10-34 



**C77777. STMPO 

$GDDAT.$TMPO 

66S 

$8DDAT,$TMP4 
#77777, $TMP4 
$TMP4,$GDDAT 
33 

CKERR 



.•SAVE SPECIFIED BITS 

.-COMPARE THE BITS 

;8R IF OK 

;COPy 'SAD DATA' 

.•CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOIJT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



P0'-<TA,RMCS2(R0) .'SELECT PORT A 

PC tTA.PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPFQuT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
/VRMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.S8DADR 
*M0L.PGM.DPR.'DRY 
$8DDAT,$TMP0 
#*C77777,$TMP0 
$6DDAT.$TMP0 
68S 

$8DDAT.$TMP4 
#77777, $TMP4 
$TMP4,JGDDAT 
33 

CKERR 



ADD RH/RM BASE ADDRESS 
VV,$GDDAT .-WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'JTMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



>S8US INIT 

#CLR,RMCS2(R0> .-ISSUE MASS8US INIT 
DRIVE STILL SEIZED BY PORT A 

PORT8.RMCS2(R0) .-SELECT PORT B 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPtOUT 
CKERR ;CLEA« THE 'CHECK ERROR' INDICATOR 

RMDS(R0).S8DDAT ;6ET CONTENTS OF RMDS 
#RMDS.S8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0,$8DADR 
SGDDAT 
$8DDAT,$TMP0 
#*C77777,$TMP0 
SGDDAT. STMPO 
70$ 

$8DDAT.$TMP4 
#77777. $TMP4 
$TMP4.$60DAT 
34 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO '$TMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BPS 
•OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENTS OK RMDS 

#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0,$8DADR .ADD RH/RM BASE ADDRESS 

#MOL PGM DPR. DRY.VV. SGDDAT ;WHAT REGISTER SHOULD BE 



CZRMRBO OU POR TST 1 "lACRO V04.00 

n4 PORT "A* SEIZE AND CLEAR TEST 



I 11 

A-APR-81 18:06:?5 PAGE 10-35 



S£0 007S 



021 1 72 
021200 
021206 
0212K 
021216 
021224 
021232 
021 2A0 
021 2A2 
021246 



021250 
021256 
021264 



021272 
021276 
021304 
021310 
021316 
021324 
021332 
021540 
021346 
021354 
021362 
021370 
021376 
021404 
021412 
021420 
021422 
021426 
021430 
021432 
02U36 
021444 
C21452 
021460 
021464 
021466 
021474 
021 502 
021510 
021514 
021516 
021524 
021532 
021540 
021542 
021550 
021556 
021564 



01375/ 
042737 
023737 
001414 
015737 
042737 
053757 
104054 
005^37 
000240 



11 3760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013757 
042737 
113760 
016037 
042737 
013737 
042737 
023757 
001006 
005757 
001045 
104046 
000157 
015757 
015737 
115760 
005737 
001414 
013757 
013737 
113760 
005757 
001012 
012757 
012760 
012760 
104026 
015757 
015737 
042757 
023737 



001 1 26 
1 00000 
001124 

001126 
077777 
001 1 74 

001250 



001224 
001224 
000013 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



021652 
001170 
001226 
001226 
001164 

001224 
001172 
001224 
001166 

-^77777 
00001 1 
000013 

001 1 70 
001224 
100000 
001124 



001164 
001164 
00r64 

001 1 74 
001 1 74 
001124 



72$: 



MOV $8DDAT,$TMP0 

BIC #*C77777,$TMP0 

CMP $6DDAT,$TMP0 

BEQ 72$ 

MOV $8DDAT.$TMP4 

BIC #77777. $TMP4 

BIS $TMP4.$GDDAT 

EMT 54 

COM CKERR 

NOP 



MOVE REGISTER CONTENTS TO •$TMP0' 

SAVE SPECIFIED BITS 

COMPARE THE BITS 

BR IF OK 

COPY 'BAD DATA' 

CLEAR THE MASKED BITS 

•OR* WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT A 



000010 
001240 
000000 



001122 

001124 
000010 
001170 
001 1 70 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 75$: 

000000 

000000 



M0V8 PORTA, RMCS2(R0) .SELECT PORT A 

MOV PORTA. PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT A 

.•VERIFY THAT THE DRIVE IS STIlL IN NEUTRAL 



74$: 



001126 
001240 
001126 
001126 



76$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

B^iE 

MOV 

MOV 

MOV 

FMT 

Flov 
/mov 

'BiC 
CMP 



RELERR .'CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS,$BDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.$BDADR .'ADD THE I/O BASE ADDRESS 

/rM0L.'PGM!DPR:DRyiVV.$6DDAT ; COMPARISON CONSTANT 
P0RTA,RMCS2(R0) .'SELECT PORT A. 

RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A, 
#PJP!WRL!0M.$TW-'2 .'CLEAR DONT CARES 

$TMP2.$TMP0 .'COPY IT INTO '$TMPO' 

*ATA!VV.$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .'SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
#PIPIWRL!0M,$TMP3 .'CLEAR DONT CARES 



$TMP3,$TMP1 

#ata;vv.$tmpi 

$TMP0.$TMP1 

74$ 

$TiVO 

76$ 

46 

78$ 

$TMP2,$eDDAT 

P0RT8.PTNBR 

PORT8,RMCS2(R0> 

$TMPO 

75$ 

PORTA.PTNBR 

$TMP3.$8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

76$ 

*-1 .RELERR 
*11,RMCS1(R0) 
*15,RMCS1(R0) 
26 

$TMP2.$80DAT 
PORTA, PTNBR 
*ATA,$BODAT 
$GDDAT,$BDDAT 



COPY IT INTO '$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PaRTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN hiMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 



J n 

.--RMRBO RM05/5/2 DU POR TST 1 MACRO VOA.OO A-APR-81 18:06:25 PAGE 10-36 
PORT 'A' SEIZE AND CLEAR TEST 



SfO 0076 



505 
506 



021572 00K01 



48A 

503 
50A 



021 57A 
021576 
021 60A 
021612 
021620 
021626 
021 6?0 
021632 
02163A 



0217U 
021 722 
021730 
021 73A 
021 7A2 
021 750 
021756 
021764 
021770 
021776 



1 OA 007 
013737 
015737 
0A2737 
023737 
00U01 
10A007 
000240 
OOOOOA 



001172 
001226 
10000C 
001 12A 



001126 
001240 
001126 
001126 



77$: 



78t: 
1$: 



BEQ 
EMT 
MOV 
MOV 
BIC 
CMP 
BEQ 
EMT 
NOP 
SCOPE 



77$ 

7 

$TMP3.$BDDAT 

P0RT8,PTNBR 

*ATA,$BDDAT 

$GDDAT,$BDDAT 

78$ 

7 



;8R IF OK FROM PORT A, 

CHECK RMDS FOR BIT FAILURES - FROM PC^RT B. 
CHANGE PORT NUMBLR 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



.-LOOP ? 



A************************************************************** 

7EST 15 PORT 'B' SEIZE AND CLEAR TEST 

VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 

A. SEJZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'B*. 
VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

B. ISSUE A DRIVE CLEAR THROUGH PORT '8' AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 

C. ISSUE A MASS8US CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 
DOES NOT RETURN TO NEUTRAL. 

t 

D. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



021636 








tsT15: 








021636 


005737 


001300 






TST 


KY8CTL 


•PERFORMING ONLY SINGLE TEST ? 


021642 


001406 








BEQ 


2$ 


•8R IF NOT 


021644 


100002 








BPL 


1$ 


•8R IF JUST ENTERED TEST 


021646 


000137 


003074 






JMP 


EXEC 


•RETURN t GET NEXT TEST NUPBER 


021652 


012737 


177777 


001 300 


1$: 


MOV 


/r-I.KYBCTL 


■SET SINGLE TEST INDICATOR 


021660 


012737 


021674 


001106 


2$: 


MOV 


#TEST15,$LPADR 


; SETUP SCOPE LOOP ADDRESS 


021666 


012737 


021674 


001110 




MOV 


*TESn5.$LPERR , 


■SETUP ERROR LOOP ADDRESS 


021674 








TESTIS: 






021674 


112737 
012706 


000015 


001102 




M0V8 


*15.$TSTNM 


■MOVE #15 TO TEST Nlf«ER 


C21702 


001100 






MOV 


#STACK,SP 


•LOAD THE STACK POINTER 


021706 


012^37 


000012 


001176 




MOV 


*10.,$TIMES 


•;D0 10. ITERATIONS 



.•SEIZE THE DRIVE THROUGH PORT B 



113760 
013737 
005060 
113760 
013737 
013737 
016037 
010037 
062737 
005037 



001226 
001226 
000012 
001224 
001224 
001224 
000012 
001122 
000012 
001124 



000010 
001242 

000010 
001240 
001244 
001126 

001122 



M0V8 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CIR 



P0RT8.RMCS2(R0) .-SELECT PORT B 
PORTS, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

P0RTA.RMCS2(R0) .'SELECT PORT A 

PORTA. PTN8R ;MOVE PORT- ADDRESS TffTaCATtW fO'M^P^T 
PORTA,0PPRT ; 'OPPOSITE' PORT ADDRESS 

;SEE IF DRIVE SEIZED BY PORT B 
; RH/RM BASE ADDRESS 
; GENERATE BAD REGISTER ADDRESS 
;REGISTER SHOULD BE ZERO 



RMDS<RO).$BDDAT 
R0,$8DADR 
.#RMDS.$BDADR 
$GDDAT 



CZRMRBO RM05/3/2 DU POR 
115 PORT 'B' SEIZE 



TST 1 ffWCRO VOA.OC 
AND CLEAR TEST 



K 11 

A-APR-81 18.06:25 PAGE 10-57 



S£0 0077 



022002 


023737 


001124 


; 001126 




CMP 


022010 


001403 


i 


r 




SEC 


022012 


104004 








EMT 


0220K 


000137 


023234 






JMP 


022020 








64$: 




022020 


113760 


001226 


000010 




M0V8 


022026 


013737 


001226 


001240 




MOV 


0^2034 


016037 


000012 


001126 




MOV 


022042 


042737 


020001 


001126 




SIC 


022050 


012737 


011700 


001124 




MOV 


022056 


013737 


001124 


001166 




MOV 


022064 


005137 


001166 






COM 


022070 


013737 


001126 


001164 




MOV 


\JCC\Jf o 




001 1^^^^ 

\J\J 1 1 


001 ■'64 




DX ^ 


022 104 


023737 


001124 


001164 




CMP 














022114 


104005 








EMT 


022116 


000240 






65$: 


NOP 










.DRIVE 


CLEAR 


022120 


012760 


00001 1 


000000 




MOV 



$GDDAT.$BDDAT 

04$ 

4 

1$ 



;IS THE REGISTFR ZERO 
;8R IF IT IS 

; BYPASS REST OF THE SUBTEST 



PORTS. RMCS2(R0) .'SELECT PORT B 

PORTS. PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0).$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
<fOM! PI P,$BDDAT .CLEAR DONT CARE BITS 

*MOL!PGM.DPR.DRY!VV,$GDDAT ;EXPECTED STATUS 
$GDDAT,$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT,$TMP0 
$TMP1,$TMP0 
$GDDAT,$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
BR If THEV ARE 



*11.RMCS1(R0) .-ISSUE DRIVE CLEAR THROUGH PORT B 



.•VERIFY THAT DRIVE STILL SEIZED BY PORT B 



022126 


1 1 3760 


001 224 


000010 


M0V8 


022134 


013737 


001 224 


001240 


MOV 




AACA17 


UU 1 <: jU 




ri D 
CLK 


022146 


016037 


000012 


001126 


MOV 


02^154 


012737 


000012 
001122 


001122 


MOV 


022162 


060037 




ADD 


022166 


005037 


001124 




CLR 


022172 


013737 


001126 


001164 


MOV 


022200 


042737 


100000 


001164 


SIC 


022206 
022214 


023737 


001124 


001164 


CMP 


001414 






BEO 


022216 


013737 


001126 


001174 


MOV 


022224 


042737 


077777 


001174 


BIC 


022212 


053737 


001174 


001124 


BiS 


022240 


104033 






EMT 


0222^2 


005137 


001250 




COM 


022246 


000240 




66$: 


NOP 


022250 


113760 


001226 


000010 


M0V8 


022256 


013737 


001226 


001240 


MOV 


022264 


005037 


001250 




CLR 


022270 


016037 


000012 


00n26 


MOV 


022276 


012737 


000012 


001122 


MOV 


022304 


060037 


001122 




ADD 


022310 


012737 


011700 


001124 


MOV 


022316 


013737 


001126 


001164 


MOV 


022324 


042737 


100000 


001164 


BIC 


022332 


023737 


001124 


001164 


CMP 


022340 


0C1414 






BEQ 


022342 


013737 


001126 


001 1 74 


MOV 


022350 


042737 


077777 


001174 


BIC 


022356 


053737 


001174 


001124 


BIS 


022364 


104033 






EMT 



PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR T^-PEOUT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO).$BDDAT ;6ET CONTENTS OF RMDS 
#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0.$8DADR 
$GDDAT 
$8DDAT,$TMP0 
#*C77777.$TMP0 
$GDDAT.$TMPO 
66$ 

$8DDAT,$TMP4 
#77777, $TMP4 
$TW>4.$GDDAT 
33 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0r,$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



RO,$BDADR 
#M0L!PGM!DPR1DRY 
$8DDAT,$TMP0 
#*C77777,$TMP0 
$GDDAT,$TMPO 
68$ 

$8DDAT,$TMP4 
#77777. $TMP4 
$TMP4.$GDDAT 

33 



ADD RH/RM BASE ADDRESS 
VV.$GDDAT .-WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R If OK 
COPY 'BAD DATA* 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 
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022366 
022372 



005137 
0002A0 



001250 



COM 
NOP 



CKERR 



66S: 

.-NOW ISSUE MASSeUS INIT 



;SET THE REGISTER COMPARE ERROR INDICATOR 



022374 012760 0000«0 000010 



MOV 



irCLft.RMCS2(R0) ; ISSUE MASS8US INIT 



.-CONf-IRM THAT DRJVE STILL SEIZED BV PORT 6 



022'»02 


113760 


001224 


000010 




M0V8 


022A10 


013737 


001224 


001240 




MOV 


022416 


005037 


001250 






CLR 


'J022430 


016037 


000012 


001126 




MOV 


012737 


000012 


001122 




MOV 


022436 


060037 


001122 






ADD 


022A42 


005037 


001124 






CLR 


022446 


013737 


001126 


001164 




MOV 


022454 


042737 


100000 


001164 




BIC 


■022462 


023737 


001124 


001164 




CMP 


C22470 


001414 








6EQ 


•022472 


013737 


001126 


001 1 74 




MOV 


•022500 


042737 


077777 


001174 




BIC 


'022506 
^022514 


053737 


001174 


001124 




BIS 


104034 








EMT 


022516 


005137 


001250 






COM 


022522 


000240 






70$: 


NOP 


0225^4 


113760 


001226 


000010 




MOVB 


022532 


013737 


001226 


001240 




MOV 


022540 


005037 


001250 






CLR 


022544 


016037 


000012 


001126 




MOV 


022552 


012737 


000012 


001122 




MOV 


022560 


060037 


001122 






ADD 


022564 


012737 


01 1 700 


001124 




MOV 


022572 


013737 


001126 


001164 




MOV 


022600 


042737 


100000 


001164 




BiC 


022606 


023737 


001124 


001164 




CMP 


022614 


001414 








BEQ 


022616 


013737 


001126 


001174 




MOV 


022624 


042737 


077777 


001 1 74 




SIC 


022632 


053737 


001174 


001124 




BIS 


022640 


104034 








EMT 


021642 


005137 


001250 






COM 


022646 


000240 






72$: 


NOP 



PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA, PTN8R ;MCVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$80DAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



RO.SBDADR 
$GDDAT 
$8DDAT.$TMP0 
#*C77777,$TMP0 
$GDDAT,$TMPO 
70$ 

$8DDAT.$TMP4 
#77777. $TMP4 
$TMP4,$GDDAT 
34 

CKERR 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO* 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



PORT8.RMCS2(R0) .-SELECT PORT 8 

PORTS, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR >«SSAGE 



ADD RH/RM BASE ADDRESS 
VV.SGDDAT .-WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO* 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'SAD DATA' 
CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 

.-SET THE REGISTER COMPARE ERROR INDICATOR 



022650 
022656 
022664 



022672 
022676 
022704 
0227W 
022716 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 



001226 000010 
001226 001240 
000013 000000 



001254 
000012 
001122 
01 1 700 
001224 



001122 

001124 
000010 



RO.SBDADR 
*MOLiPGM!DPR!DRY 
SSDDAT.STMPO 
iT-C 777^7, STMPO 
SGDDAT.STMPO 
72$ 

S8DDAT,$TMP4 
#77777,$TMP4 
ST«P4,$6DDAT 

34 

CKERR 



.-RELEASE THE DRIVE FROM PORT B 

MOVB PORTS, RMCS2(R0) ; SELECT PORT B 

MOV PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRJVE IS STILL IN NEUTRAL 

CLR RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

MOV iTRMDS.SBDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD R0,$8DADR .-ADD THE I/O BASE ADDRESS 

MOV *MOL! PGM! DPR. DRY. VV.SGDDAT .-COMPARISON CONSTANT 

MOVO PORTA.RMCS2(R0> .'SELECT PORT A. 
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1 ' 



507 
519 
520 



P>nBT 'R 




AND CLEAR TES' 










000012 


001170 




MOV 




nAP7^7 


024001 


001 1 70 




Di L 




ni ^7^7 


001 1 70 


001164 




MOW 


KJCC r •♦D 


UH C ' J' 


100100 


00'"64 




Die 


Ucc ' js 


^ 1 ^7^=>n 


001226 


000010 




Mnvn 

ni^ vo 




V 1 0\JJf 


000012 


001172 




MOW 


np?77n 




024001 


001172 




ni r 


KJcCf f u 


fll ^7^7 


001172 


001166 




W\\l 
riU V 




C\L'?7\7 


100100 


0C1166 








np^7^7 


■ 001164 


001166 


















np^opp 


nn';7^7 


001164 






T^T 


np^np^ 


\J\J 1 WH J 








RNF 












C 1 1 




nnfii ^7 


023232 






IMP 




01 ^737 


001 1 70 


001126 




MOV 






001226 


001240 






\/C J\J jc 


1 1 ?760 


001226 


000010 








005737 


001164 






TST 






• 






DC V 




013737 


001224 


001240 




MOV 






001 1 72 


001126 








1 1 ^7^0 


001224 


000010 








005737 


001166 






TST 




00101? 










0?^1 16 


01P737 


Mll'n 


001254 


75$: 


MOV 




01P760 


00001 1 


000000 




MOV 


f)P717p 


012760 


000013 


000000 




MOW 




1 040P6 








FMT 




013737 


001 1 70 


001126 


76$- 


MOV 




01 3737 


001224 


001240 




MOV 

FA/ W 


0P71 S6 


042737 


100000 


001126 




Air 


np^i^%^ 


0P3737 


001124 


001126 




CMP 


vC-J t f C 


001401 








DC W 




104007 








FMT 




01 3737 


001172 


001126 


77$* 


MOV 




013737 


001226 


001240 




MOV 




042737 


100000 


001126 






nP7?20 


023737 


001124 


001126 




CMP 


023226 


001401 




i 




BEO 


023230 


104007 








EMT 


023232 


000240 






78$: 


NOP 


023234 


000004 






1$: 


SCOPE 



SEO 0079 



RMDS(R0).$TMP2 ;GET 
#P]P.WRL!0M.$TMP2 
$TMP2.$TMP0 
/rATA!VV.$TMPO 
PORTS. Rf1CS2(R0) 
RMDS(R0).$TMP3 . 
#P]P.WRL.0M,$TMP3 



$TMP3.$TMP1 
*ATA. VV,$TMP1 
$T,MP0,$TMP1 
74$ 
$TriP0 
76$ 
46 
78$ 

$TMP2,$8DDAT 

PORTS, PTNBR 

PORTS,RMCS2(R0) 

$TMP0 

75$ 

PORTA. PTN8R 

$TMP3.$8DDAT 

P0fiTA.RMCS2(R0) 

$TMP1 

76$ 

*-1.RELERR 

#11.RMCS1(R0) 

#13,RMCS1(R0) 

26 

$TMP2,$8DDAT 

PORTA.PTNBR 

#ATA,$8DDAT 

$GDOAT,SeDDAT 

77$ 

7 

$TMP3,$800AT 

PORTB-PTigBR 

fATA.SeODAT 

$6DDAT,$BDDAr 

78$ 

7 



THE DRIVE STATUS REGISTER FROM PORT A. 
.•CLEAR OONT CARES 
copy IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GE' THE DRIVE STATUS REGISTER FROM PORT B. 
CLEAR DONT CARES 



COPY IT INTO •$TMP1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE S^TATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAL 



SHOWS DRIVE 
TYPE OUT 



NOT IN NEUTRAL 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
BR IF ZERO 
SEIZING PORT IF TEST 
•BAD DATA' FOR ERROR 
SELECT PORT A. 

SEE IF STATUS'eQ ZERO FROM PORT B 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT . AILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 
BR IF QK 



B. 



;LOOP ? 



**************************************************************** 
'•TEST 16 SEIZE 'A' BY RMCS1 TEST 

•VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE • 
•IF THE DRIVE IS IN NEUTRAL. 

* A. READ THE CONTROL REGISTER (RMCSl) THROUGH PORT 'A'; VERIFY THAT 

• THE DRIVE IS SEIZED. 
* 



• 8. ISSUE A RELEASE COMWAND THROUGH PORT 'A'; VERIFY THAT TH^ DRIVE 



RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SEl 



******* ************* A****************** 
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SEO 0080 



521 
531 











TST16- 






00^7^7 


001 ^00 






TST 




\J\J 1 HvD 










UC-)C*«H 


1 nnoop 








BPL 




noni \7 


003074 






JMP 






\77777 


001300 


1$ • 


MOV 


023260 


012737 


02127 


001106 


2$: 


MOV 


023266 


012737 


023274 


001110 




MOV 


02327A 








TEST16: 




02327A 


112737 


000016 


001102 




MOVB 


023302 


012706 


001100 






MOV 


023306 


012737 


000012 


001 1 76 




MOV 



023314 
023322 
023326 
023334 
023342 
023350 
023354 
023362 



023370 
023376 
023404 
025410 
023416 
023424 
023432 
023440 
023444 
023452 
023456 
023464 
023466 
023470 
023474 
023474 
023502 
023510 
023516 
023524 
023532 
023540 
023544 
023552 
023560 
023566 
023570 
023572 



KY8CTL 

2$ 

1$ 

EXEC 

#-1.Ky8CTL 

#TEST16.$LPADR 

*TEST16.$LPERR 

*16.$TSTNM 

#STACK.SP 

*10..$T]MES 



PERFORMING ONLY SINGLE TEST •> 
8R If NOT 

8R IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NlfOER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #16 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005760 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



001224 
001224 
000000 
001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



024160 

001224 
001224 
000012 
020001 
01 1 700 
001124 
001166 
001126 
001166 
001124 



.-CLEAR ATTENTION BITS FOR BOTH PORTS 



001224 


000010 


M0V8 


PORTA. RMCS2(R0) . 


SELECT PORT #A 


000012 




CLR 


RMDS(RO) 


SEIZE THE DRIVE 


00001 1 


000000 


MOV 


#11.RMCS1(R0) 


ISSUE DRIVE CLEAR 


000013 


000000 


MOV 


#13.RMCS1(R0) 


RELEASE THE DRIVE 


001226 


000010 


MOVB 


PORTS, RMCS2(R0) . 


■SELECT PORT *B 


000012 




CLR 


RnDS(RO) 


'SEIZE THE DRIVE THROUGH 


00001 1 


000000 


MOV 


#11,RMCS1(R0) 


; ISSUE DRIVE CLEAR 


000013 


000000 


MOV 


#13.RMCS1(R0) 


^RELEASE THE DRIVE 



•6' 



.•SEIZE THE DRIVE THROUGH PORT A 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



64$: 



65$; 



MOVB 
MOV 

TST 

Move 

MOV 
MOV 
MOV 
MOV 
ADD 
CLR 
CMP 
8EQ 
EMT 
JMP 

MOVB 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 



PORTA, RMCS2(R0) .-SELECT PORT A 

PORTA. SEIZPT .'STORE SEIZING PORT'S ADDRESS 

RMCSKRO) .-READ RHCS1 

PORTS. RMCS2<R0) .'SELECT PORT 8 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



PORTS, OPPRT 
RnDS(RO),$BDDAT 
R0,$6DA0R 
#RMDS,$BDADR 
$6DDAT 

$GDDAT,$8DDAT 

64$ 

4 

1$ 



■OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 



PORTA. RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

RMDS(RO>,$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 

#OM!PIP,$BDDAT .'CLEAR DONT CARE BITS 

*M0L!PGM!DPR;DRY!VV,$6DDAT .'EXPECTED STATUS 

$G0DAT,$TMP1 ;USE GOOD DATA AS A MASK 

$TMP1 ; COMPLEMENT THE EXPECTED STATUS 

$8DDAT,$TMP0 ;SAVE THE ACTUAL STATUS 

$TMP1,$TMP0 .'CLEAR UNWANTED BITS 

$6DDAT,$TMP0 .'ARE THE EXPECTED STATUS BITS SET ? ' 

65$ ;8R IF THEY ARE 

5 



.'RELEASE THE DRIVE FROM PORT A 



ZHMKRO RMOS/?/^ DU POR TST ' 
^"6 SEIZE 'A* BY RMCS1 TEST 



MACRO v(K.OO 4 



-APR-81 



025574 


113760 


001224 


000010 




M0V8 


0?5602 


013737 


001224 


001240 




MOV 


023610 


012760 


000013 


000000 




MOV 










;VER1FY 


THAT 


023616 


005037 


001254 






CLR 


023622 


012737 


000012 


001122 




MOV 


025630 


060037 


001122 






ADD 


023634 


012737 


01 1 700 


001124 




MOV 


023642 


113760 


001224 


000010 




M0V8 


025650 


016037 


000012 


001 1 70 




^V 


023656 


042737 


024001 


001 1 70 




BIC 


023664 


013737 


001170 


001164 




MOV 


023672 


042737 


100100 


001164 




BIC 


023700 


113760 


001226 


000010 




M0V8 


023706 


016037 


000012 


001172 




MOV 


023714 


042737 


024001 


001172 




BIC 


023722 


013737 


001172 


001166 




MOV 


023730 


042737 


100100 


001166 




BIC 


023736 


023757 


00''164 


001166 




CMP 


023744 


001006 








BNE 


023746 


005737 


001164 






TST 


023752 


001045 








BNE 


023754 


104046 








EMI 


023756 


ooor57 


024156 






JMP 


023762 


015737 


001170 


001 1 26 


66t: 


MOV 


023770 


013737 


001226 


001240 




MOV 


0237;:6 


115760 


001226 


000010 




M0"V8 


024004 


005757 


001164 






TST 


024010 


001414 








BEO 


024012 


015737 


001224 


001240 




MOV 


024020 


015757 


001172 


001126 




MOV 


024026 


115760 


001224 


000010 




M0V8 


024034 


005737 


001166 






TST 


024040 


001012 








BNE 


024042 


012737 


-[77777 


001254 


67$: 


MOV 


024050 


012760 


000011 


000000 




MOV 


024056 


012760 


000013 


000000 




MOV 


024064 


104026 








EMT 


024066 


013757 


001170 


001126 


68$: 


MOV 


024074 


01575.' 


001224 


001240 




MOV 


024102 


042737 


100000 


001126 




BIC 


024110 


023737 


001124 


001126 




CMP 


024116 


001401 








BEQ 


024120 


104007 








EMT 


024122 


013737 


001172 


001126 


69$: 


MOV 


024130 


015757 


001226 


001240 




MOV 


024136 


042757 


100000 


001126 




BIC 


024144 


025757 


001124 


001126 




CMP 


024152 


001401 








BEQ 


024154 


104007 








EMT 


024156 


000240 






70$: 


NOP 


024160 


000004 






1$: 


SCOPE 



5 5r 
544 



B 12 
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SEO 0081 



PORTA, RMCS2(R0> .SELECT PORT A 

PORTA, PTNBR .-MOVE "ORT ADDRESS TO LOCATION fOR TYPEOUT 
#13,RMCS1(R0) .ISSUE RELEASE THROUGH PORT A 

HE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR * INDICATOR 

#Rf1DS.$0DADR .-FORM THE ADDRESS Of RMDS FOR TYPEOUT 
R0.$8DADR :ADD THE I/O BASE ADDRESS 

#M0L!PGM1DPR.'DRy:vV.$GDDAT .-COMPARISON CONSTANT 
PC«TA.RMCS2(R0) .'SELECT PORT A. 

RMDS(R0).$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIPiyRL!0«,$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .COPY IT INTO •$TMPO' 

*ATA!VV.$TMF»0 .-CLEAR PORT DEPENDENT BITS FROM THF COPY 
PORTS. RMCS2(R0) .SELECT PORT B. 

RMDS(R0),$TMP3 -GET THE DRIVE STATUS REGISTER FROM PORT B. 

#pip.' wrl:om.$tmp3 .-clear dont cares 



$TMP3.$TMP1 
#ATA.VV,$TMP1 
$TMP0.$TMP1 
66$ 
$TMPO 
68$ 
46 
70$ 

$TMP2.$BDDAT 
PORTS. PTNBR 
PORTS, RMCS2<R0) 
$TMPO 
67$ 

PORTA. PTNBR 

$TMP3,$8DDAT 

P0RTA.RHCS2(R0) 

$TMP1 

68$ 

#-1 .RELERR 
#1 1 ,RnCS1 (RO) 
4rl3.RKCS1(R0) 

26 

$TMP2.$8DDAT 

PORTA. PTNBR 

#ATA,$eDDAT 

$GDDAT,$BDDA1 

69$ 

7 

$TMP5.$BDDAT 

PC»»T8. PTNBR 

#ArA.$6DDAT 

$GDDAT.$6DDAr 

70$ 

7 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAT*: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRiVc NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROf'l PORT B. 
8R IF NOT 

SET "RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN EiT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PC«T NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



.-LOOP ? 



C 12 
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3EIZE '8' B< WKS1 TEST 



5A6 
5A7 



02A2A0 
02A2A6 
02A252 
02A260 
02A266 
02A274 
024 300 
024306 



024314 
024322 
C24330 
024334 
024342 
024350 
024356 
024364 
024370 
024376 
024402 
024410 
C24',12 
024414 
024420 
024420 
024426 
024434 



WeSt 17 



SEIZE 'B' By RMCS1 TEST 



VERJFY THAT READING THE CONTROL REGISTER (RMCSD SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 

A. READ THE CONTROL REGISTER (RMCSD THROUGH PORT '8'; VERIFY THAT 
THE DRIVE IS SEIZED. 

B. ISSUE A RELEASE COmAND THROUGH PORT 'B'; VERIFY THAT THE DRJ^E 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



024162 








TST17: 








024162 


005737 


001300 






TST 


KY8CTL 


.•PERFORMING ONLY SINGLE TEST 7 


024166 


001406 








BEQ 


2$ 


;8R IF NOT 


024170 


100002 








BPL 


1$ 


;8R IF JUST ENTERED TEST 


024172 


0001 37 


003074 






JMP 


EXEC 


.•RETURN ft GET NEXT TEST NUMBER 


024176 


012737 


\77777 


001300 


1$: 


MOV 


#-l,»CYBCTL 


;SET SINGLE TEST INDICATOR 


024204 


012737 


024220 


001106 


2$: 


MOV 


#TEST17.$LPADR 


.SETUP SCOPE LOOP ADDRESS 


024212 


012737 


024220 


001110 




MOV 


*TEST17,$LPERR 


; SETUP ERROR LOOP ADDRESS 


024220 






TEST17: 








024220 


112737 


000017 


001102 




MOVB 


*17.$TSTNM 


.•MOVE *V TO TEST NUMBER 


02422^ 


012706 


001100 






MOV 


#STACK,SP 


.-LOAD THE STACK POINTER 


024232 


012737 


000012 


001176 




MOV 


#10..$TIMES 


;;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005760 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 



001224 
000012 
00001 1 
000013 
001226 
000012 
00001 1 
000013 



001226 
001226 
000000 
001224 
001224 
001224 
000012 
001122 
000012 
001124 
001124 



025104 

001226 
001226 
000012 



000010 

000000 
000000 
000010 

000000 
000000 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 



H0V8 


PORTA, RMCS2(R0) . 


•SELECT PORT *A 


CL" 


RMDS(RO) 


; SEIZE THE DRIVE 


MOV 


*n,RHCS1(R0> 


; ISSUE DRIVE CLEAR 


MOV 


*13,RMCS1(R0) 


■RELEASE THE DRIVE 


MOVB 


PORTS. RMCS2(R0) 


;SELECT PORT #8 


CLR 


RMDS(RO) 


•SEIZE THE DRIVE THROUGH PORT 'B* 


MOV 


#11.RHCS1(R0) 


■ISSUE DRIVE CLEAR 


MOV 


«13.RnCS1(R0) 


;RELEASE THE DRIVE 



.SEIZE THE DRIVE THROUGH PORT B 



64$: 



MOVB 

MOV 

TST 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 

EMT 

JMP 

MOVB 

MOV 

MOV 



PORT8,RMCS2(R0) .-SELECT PORT B 
P0RT8,SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMCSKRO) ;READ RHCS1 

PORTA,RMCS2(R0) .'SELECT PORT A 

PORTA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



PORTA, OPPRT 
RnDS(R0).$8DDAT 
RO.SeDADR 
#RMDS.$eDADR 
SGDDAT 

$GDDAT.$6DDAT 

64$ 

4 

1$ 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY POPT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 



PORTS, ftMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO),$BDDAT ;SEE IF SEIZING PORT SEES CORREC STATUS 



ZRMRBO km'i/l/2 DU POP TS^ 1 HACRO V04.00 4-APR 
17 SEIZE *B' BY W1CS1 TEST 





042737 


020001 


001126 




BIC 


024450 


012737 


011700 


001124 




MOV 


024456 


013737 


001124 


001166 




MOV 


024464 


005137 


001166 






COM 


024470 


013737 


001126 


001164 




MOV 






UU 1 1 oO 


U'J 1 1 O't 




Q I r 
□ i L 


024504 


023737 


001124 


001164 




CMP 


A^y CIO 


UU IhUI 








BEO 


024514 


104005 








EMT 


024516 


000240 






65S: 


NOP 










; RELEASE THE 






nm 5 OA. 


UUUU 1 U 




nvj vo 


024526 


013737 


001226 


001240 




nu V 


024534 


012760 


000013 


000000 




l"U V 










• \/PR r F V 
9 vc n i r I 


THAT 


024542 


0050^7 


0C1254 








024546 


012737 


000012 


001122 




MOV 


024554 


060037 


001122 






ADD 


024560 


012737 


011700 


001124 




MOV 


024566 


113760 


001224 


000010 






024574 


016037 


000012 


001170 




MOV 


024602 


042737 


024001 


001170 






024610 


053737 


001170 


001164 




MOV 


024616 


042737 


100100 


001164 




Rlf 


024624 


113760 


001226 


000010 




MOVB 


024632 


016037 


000012 


001172 




MOV 


024640 


042737 


024001 


001172 






024646 


013737 


001172 


001166 




MOV 


024654 


042737 


100100 


001166 




RT r 


024662 


023737 


001164 


001166 




TMP 


024670 


001006 








RJMF 


024672 


005737 


001164 






TST 


024676 


001045 








RNF 

Of «c 


024700 


104046 










024702 


000137 


025102 








024706 


013737 


001170 


001126 


66S: 


MOV 


024 7K 


013737 


001226 


001240 




MOV 


024722 


113760 


001226 


000010 




M0V8 


024730 


005737 


001164 






TST 


024734 


001414 








BEO 


024736 


013737 


001224 


001240 




MOV 


024744 


013737 


001172 


001126 




MOV 


024752 


113760 


001224 


000010 




M0V8 


02*. 760 


005737 


001166 






TST 


024764 


001012 








BNE 


024766 


012737 


-{77777 


001254 


67$: 


MOV 


024774 


012760 


000011 


000000 




MOV 


025002 


012760 


000013 


000000 




MOV 


025010 


104026 








EMT 


025012 


013737 


001 1 7C 


001126 


68$: 


MOV 


025020 


013737 


001224 


001240 




MOV 


025026 


042737 


100000 


001126 




BJC 


025034 


023737 


001124 


00r26 




CMP 
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*0M.PIP.$8DDAT .-CLEAR DONT CARE BJTS 

*M0L!PGM:DPR!DRV!VV.$GPDAT .-EXPECTED STATUS 
$6DDAT.$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT,$TMP0 
$TMP1 ,$TMPO 
$GDDAT,$TMPO 
65$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS 8JTS SET 
BR IF THEY ARE 



DRIVE FROM PORT B 

PORTS. RMCS2(R0) .'SELECT PORT 6 

PORTS. PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

THE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS.$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

*M0L!P6M:DPR!DRY!VV.$GDDAT .-COMPARISON CONSTANT 
PORTA,RMCS2(R0) ; SELECT PORT A, 

RMDS(R0),$TMP2 ;6ET THE DRIVE STATUS REGISTER PROM PORT A. 
#PJPIWRL!0M,$TMP2 ; CLEAR DONT CARES 

$TMP?,$TMP0 .'COPY IT INTO •$TMPO' 

#ATA.'VV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .'SELECT PORT B. 

RP©S(R0).$TMF3 ;6ET THE DRIVE STATUS REGISTER FROM PORT B. 
/irPIP!URL!0M.$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 
;)'ATA!VV,$TMP1 
$TMP0.$TMP1 
66$ 
$TMPO 
68$ 
46 
70$ 

$TMP2.$B0DAT 

PORTS, PTNBR 
PORTS. RMCS2(R0) 
$TMPO 
67$ 

PORTA. PTNBR 

$TMP3.$8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

68$ 

#-1, RELERR 
#11,RMCS1(R0) 
#13,RMCS1(R0) 
26 

$TMP2,$8DDAT 

PORTA,PTNBR 
*ATA,$8DDAT 
$GDDAT.$BDDAT 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY zERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIV^ NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEJTRAL 
'SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 8. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 



CZRMRBO DU POP rsr 1 ^CRO V04.00 

T17 SEIZE '8' BY RMCS1 TEST 



E 12 

4-APR-81 18:0«):i?5 PAGE 10~<.A 



SEO 008^ 



S48 
565 



0250A2 


OOKOl 








BEQ 


025OA4 


10^007 








EMT 


025(K6 


013737 


001 1 72 


001126 


69$: 


MOV 


025054 


013737 


001226 


001240 




MOV 


025062 


0A2737 


100000 


001126 




BIC 


025070 


023737 


001124 


001126 




CMP 


025076 


OOKOl 








8c Q 


025100 


104007 








EMT 


025102 


000240 






701: 


fiOP 










1 












.♦TEST 


20 



566 
583 



025106 
025106 
025112 
025114 
025116 
025122 
025130 
025136 
025144 
025144 
025152 
025156 



69S 

7 

$TMP3.$8DDAT 

PORTS. PTf«R 

#ATA.SBDDAT 

SGDDAT.SBDDAT 

70$ 

7 



;8R If OK FROM PORT A. 

CHECK RMDS FOR BH FAILURES - 'ROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 8. 
BR IF OK 



.LOOP ? 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112757 
012706 
012737 



001300 



003074 
U7777 
025144 
025144 

000020 

001100 
000012 



001300 
001106 
001110 

001102 

001176 



PORT 'A' INHIBIT SEIZE BY RMCS1 TEST 

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET 'PORT 
REQUEST* IF THE DRIVE IS SEIZED. 

A. SEIZE THE DRIVE THROUGH PORT '8' BY READING RMCS1. VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 

B. READ THE CONTROL REGISTER FROM PORT "A*. VERIFY THAJ 'DVA* IS NOT 
SET. 

C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TST20: 

.•PERFORMING ONLY SINGLE TEST ? 
;BR IF NOT 

;8R IF JUST ENTERED TEST 
;RETUftN I GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
;SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 



1$: 
2$: 



TEST20: 



TST 
BEQ 
BPL 
JMP 
MOV 
MOV 
MOV 



KY8CTL 

2$ 

1$ 

EXEC 

#-1 .KYBCTL 

#TEST20.$LPADR 

#TEST20.$LPERR 



M0V8 #20.$TSTNM ;M0VE #20 TO TEST NLMBER 

MOV fSTACK.SP .LOAD THE STACK POINTER 

MOV #10..$TIHES ;;D0 10. ITERATIONS 



; CLEAR ATTENTION BITS FOR BOTH PORTS 



025164 


1 1 3760 


001224 


000010 


M0V8 


PORTA. RMCS2fR0) ; 


025172 


005060 


000012 




CLR 


RMDS(RO) 


025176 


012760 


00001 1 


000000 


MOV 


#11,RMCS1(R0) 


025204 


012760 


000013 


000000 


MOV 


#13,RMCS1(R0) 


025212 


1 1 3760 


001226 


000010 


M0V8 


POfiTB.RMCS2(R0) ; 


025220 


005060 


00001 2 




CLR 


RMDS(RO) 


025224 


012760 


oooon 


000000 


MOV 


#11.RMCS1(R0) 


025232 


CI 2760 


000013 


000000 


MOV 


*13,RMCS1(R0) 










.•SEIZE THE DRIVE THROUGH PORT B 


025240 


113760 


001226 


0000 -"O 


M0V8 


P0RT8.RMCS2(R0) ; 


025246 


013737 


001226 


001242 


MOV 


PORTS, SEIZPT ;Sr 



SELECT PORT *A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT ttB 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



•B" 



CZRMRBO 



PORT 'A* 



DU POR TST 1 
INHIBIT SEIZE 



WACRO VO^.OO 
BV RMCST TEST 



A-APR-81 18:06:^5 



F 12 
PAGE 



^EO 008S 



025260 
025266 
025274 
025302 
025310 
0253H 
025322 
025326 
025334 
025336 
C25340 
025344 
025344 
025352 
025360 
025366 
025374 
025402 
C25410 
025414 
025422 
025430 
025436 
025440 
025442 
025444 
025452 



005760 
113760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

1 1 3760 
013737 
016037 
042737 
012737 
01373^ 
005137 
013737 
043737 
023737 
001401 
104005 
000240 
113760 
013737 



000000 
001224 
001224 
001224 
000012 
001122 
000012 
001124 
001124 



026152 

001226 
001226 
000012 
020001 
011700 
001124 
001 166 
001126 
001166 
001124 



001224 
001224 



000010 
001240 
001244 
001126 

001122 

001126 



000010 
0012-^0 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



000010 
001240 



64$: 



65$: 



TST 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

Move 

MOV 
MOV 
BIC 
MOV 
^OV 
COM 
MOV 
BIC 
CMP 
BEQ 
EMT 
NOP 
M0V8 
MOV 



RMCS1 (RO) .-READ RHCS1 

PORTA. RMCS2(fiO) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 



PORTA, OPPRT 
RMDS(R0),$8DDAT 
RO,$BDADR 
/irRMDS.$6DADR 
$GDDAT 

SGDDAT.$8DDAT 

643 

4 

1$ 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT 8 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

;8YPASS REST OF THE SUBTEST 



P0RT8.RMCS2(R0) .-SELECT PORT 8 

PORTO. PTN8R ;MOVE PORT ADDRCSS TO LOCATION FOR TrPEOUT 
RMDS(R0).$8DI)AT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
*0M)PIP.$8DDAT .-CLEAR DONT CARE BITS 

#M0L'P6M.DPR!DRy.VV.$GDDAT .'EXPECTED STATUS 
;USE GOOD DATA AS A MASK 

; COMPLEMENT THE EXPECTED STATUS 
;SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
;ARE THE EXPECTED STATUS BITS SET ? 
;8P If THEY ARE 



$GDDAT.$TMP1 
$TMP1 

$8DDAT.$TMP0 
$TMP1.$TMP0 
$GDDAT.$TMP0 
65$ 

5 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
.-READ RMCSl THROUGH PORT A - TRY TO SET PORT REQUEST 



C25460 


005037 


001250 




CLR 


CKERR 


.-CLEAR THE 'CHECK ERROR' INDICATOR 


025464 


016037 


000000 


001126 


MOV 


RMCSl (RO),$eDDAT ;GET CONTENTS OF RMCSl 


025472 


012737 


000000 


001122 


MOV 


*RMCS1.$8DADR • 


.-FORM REGISTER ADDRESS OF ERROR MESSAGE 


025500 


060037 


001122 




ADD 


R0.$8DADR 


.ADD RH/RM BASE ADDRESS 


025504 


005037 


001124 




CLR 


$GDDAT 


.-WHAT REGISTER SHOULD BE 


025510 


013737 


001126 


001164 


MOV 


$8DDAT,$TMP0 ' 
#-04077, STMPO 


.-MOVE REGISTER CONTENTS TO •$TMPO' 


025516 


042737 


173700 


001164 


BIC 


.SAVE SPECIFIED BITS 


025524 


023737 


001124 


001164 


CMP 


$GDDAT.$TMPO • 


.-COMPARE THE BITS 


025532 


001414 






BEQ 


66$ 


.8fi IF OK 

;COPY 'BAD DATA' 


025534 


013737 


001126 


001 1 74 


MOV 


$8DDA*.*TMP4 - 


025542 


042737 


004077 


001 1 74 


BIC 


*4077.$TMP4 »' 


.•CLEAR THE MASKED BITS 

;*0R' WITH GOOD DATA FOR TYPfCUT 


025550 


053737 


001 1 74 


001124 


BIS 


$TMP4.$G00AT 


025556 


104010 






EMT 


10 




025560 


'005137 


001 25C 




COM 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


025S64 


000240 




66$: 


NOP 







025566 113760 001226 000010 
025574 013737 001226 001240 
02560? 012760 000013 000000 



.•DRIVE SHOULD RETURN TO NEUTRAL 
.-RELEASE THE DRIVE FROM PORT B 

M0V8 P0RT8,RMCS2(R0) .-SELECT PORT B 

MOV PORTB.PTNBR ..-MOVE PORT ADDRESS TO LOCATION ^OR TYPEOUT 
MOV *13, RMCSl (RO) .-ISSUE RELEASE THROUGH PORT B 



.•VERIFY THAT THE DRI/E IS STILL IN NEUTRAL 



'ZR^RBO ?<MOS/5/2 DU P09 TST 1 i^CRO VOA.OO 
'?0 PORT 'A' INHIBIT SEIZE Bv RWCS1 TEST 
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SEO 0086 



584 
600 
601 



025610 


005037 


001254 


001122 




CLR 


0256U 


012737 
060037 


000012 




MOV 


025622 


001122 






ADD 


025626 


012737 


01 1 700 


001124 




MOV 


025634 


1 1 3760 


001224 


000010 




M0V8 


025642 


016037 


000012 


001170 




MOV 


025650 


042737 


024001 


001 1 70 




BIC 


025656 


013737 


001170 


001 1 64 




MOV 


025664 


042737 


100100 


001164 




BiC 


025672 


113760 


001226 


000010 




M0V8 


025700 


016037 


000012 


001 1 72 




MOV 


025706 


042737 


024001 


001172 




BIC 


025714 


013737 


001 1 72 


001166 




MOV 


025722 


042737 


100100 


001166 




BIC 


025730 


023737 


001164 


001166 




CMP 


025736 


001006 








BNE 


025740 


005737 


001164 






TST 


025744 


001045 








BNE 


025746 


104046 








EMT 


025750 


000137 


0261 50 






JMP 


025754 


013737 


001 1 70 


001126 


68$: 


MOV 


025762 


01 3737 


001226 


001240 




MOV 


025770 


113760 


001226 


000010 




Move 


025776 


005737 


001164 






TST 


026002 


001414 








BEO 


026004 


013737 


001224 


001240 




MOV 


026012 


013737 


001 1 72 


001126 




MOV 


026020 


113760 


00''224 


000010 




M0V8 


026026 


005737 


001166 






TST 


026032 


001012 








BNE 


026034 


012737 


\77777 


001254 


69$: 


MOV 


026042 


012760 


00001 1 


000000 




MOV 


026050 


012760 


000013 


000000 




MOV 


026056 


104026 








EMT 


026060 


013737 


001 1 70 


001126 


70$: 


MOV 


026066 


013737 


001224 


001240 




MOV 


026074 


042737 


100000 
001124 


001126 




BIC 


026102 


023737 


001126 




CMP 


026110 


001401 








BEQ 


026112 


104007 








EMT 


026114 


013737 


001172 


001 1 26 


71$: 


MOV 


C26122 


013737 


001226 


001240 




MOV 


026130 


042737 


100000 


001126 




eic 


026136 


023737 


001124 


001126 




CMP 


026144 


001401 








BEQ 


026146 


104007 








EMT 


026150 


000240 






72$: 


NOP 


026152 


000004 






1$: 


SCOPE 



RELERR .-CLEAR THE 'RELEASE ERROR * INDICATOR 

/rRMDS.$BD^DR ;FORM THE ADDRESS Of RMDS FOR TVPEOUT 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

*MOL.PGM.DPR!DRY. VV,$GDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .-SELECT PORT A. 

RMDS(R0).$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP.WRL.OM,STMP^ .-CLEAR DOfJT CARES 

$TMP2.$TMP0 ;COPr IT INTO '$TMPO' 

*ATA!VV.$TMPO ; CI EAR PORT DEPENDENT BITS FROM THE COPV 
P0r<T8,RMCS2(R0) .-SELECT PORT 8. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
*PIP!URL.0M.$TMP3 . .-CLEAR DONT CARES 



$TMP3.$TMP1 
#ATA.VV,$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$8DDAT 

P0RT8,PTN8R 

PORTS. RMCS2(R0) 

$TMPO 

69$ 

PORTA. PTN8R 

$TMP3.$8DDAT 

PORTA, RMCS2(R0) 

$rMP1 

70$ 

#-1 .f<ELERR 
*11.RMCS1(R0) 
#13.RMCS1(R0) 
26 

$TMP2.$8DDAT 

PORTA, PTNBR 

#ATA,$eDDAT 

$GDDAT.$BDDAT 

71$ 

7 

$TMP3.$BDDAT 

PORTS, PTNSR 

#ATA,$8DDAT 

$GDDAT.$8DDAT 

72$ 

7 



.-COPY IT INTO •$TMPr 
.-CLEAR PORT DEPENDENT BITS FROM THE COPY 
;IS THE STATUS REGISTER THE SAME FROM BOTH PORT'. ^ 
.-SR IF NOT 

.-REGISTERS ARE THE SAME: ARE THEY ZERO ? 
;8R IF NOT 

.-SYPASS THE REST OF THE CHECKS 
.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-SELECT PORT B. 

.-SEE IF STATUS EQ 0 FROM PORT A, 
;8R IF ZERO 

.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
;'8AD DATA' FOR ERROR TYPF OUT 
.SELECT PORT A. 

.-SEE IF STATUS EQ ZERO FROM PORT B. 
;8R IF NOT 

;SET 'RELEASE ERROR' INDICATOR 
.-CLEAR THE DRIVE 
.-RELEASE THE DRIVE 

.-LOOK FOR BIT FAILURES WHEN RMDS READ 

.-CHANGE PORT NUMBER 

.-DON'T CHECK THE ATTN BF 

;ALL BITS OK ? 

;8R IF OK FROM PORT A. 

.-CHECK RMDS FOR BIT FAILURES - FRO PORT B. 
.-CHANGE PORT NUMBER 
.-DON'T CHECK THE ATTN BIT 
.-SEE IF READ OK FROM PORT B, 
;8R IF OK 



.-LOOP ? 



West 21 port '8* inhibit seize by rmcsi test 

•verify ihat reading the control register (rmcsi) does not set 'port 

• request' if the drive is seized. 

• a. seize the drive through port 'a* by reading rmcsi. verify that 



CZRHR80 RM05/3/2 OU POH TST 1 MACRO V0<..00 
T21 PORT '6' INHIBIT SEIZE Bv RMCSl TEST 
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602 
603 



B. 



THE DRIVE HAS BEEN SEIZED. 

READ THE CONTROL REGISTER FROM PORT '8'. 
SET. 



VERIfr THAT 'DVA' IS NOT 



ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



026154 








TST21 : 








0261 54 


005737 


001300 






TST 


ICV8CTL 


.•PERFORMING ONLY SrNGLE TEST ? 


026160 


001406 








BEO 


2$ 


;8R IF NOT 


026162 


100002 








BPL 


1$ 


;BR IF JUST ENTERED TEST 


0261 6A 


000137 


003074 






JMP 


EXEC 


.•RETURN % GET NEXT TEST NUMBER 


0261 70 


012737 


1 77777 


001300 


1$: 


MOV 


#-l.KY8CTL 


.-SET SINGLE TEST INDICATOR 


026176 


012737 


026212 


001106 


^$: 


MOV 


*TEST21,$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


026204 


012737 


026212 


001110 




MOV 


*TEST21,$LPERR 


.•SETUP ERROR LOOP ADDRESS 


026212 








TEST21 






026212 


112737 


000021 


001102 




Move 


#21.$TSTNM 


.•MOVE *21 TO TEST NUMBER 


C26220 


012706 


0C1100 






MOV 


*STACK.5P 


;LOAD THE STACK POINTER 


026224 


012737 


000012 


001 1 76 




MOV 


xrlO..$TIMES 


;;D0 10. ITERATIONS 










.'CLEAR 


ATTENTION BITS FOR BOTH 


PORTS 



026232 
026240 
026244 
026252 
026260 
026266 
026272 
02630C 



113760 
005060 
01 2760 
012760 
113760 
005060 
012760 
012760 



001224 
000012 
000011 
000013 
001226 
000012 
000011 
000013 



000010 

000000 
000000 
000010 

000000 
000000 



MOVB 


PORTA,RMCS2(R0) . 


•SELECT PORT *A 


CLR 


RMDS{RO) 


•SEIZE THt DRIVE 


MOV 


*11,RMCS1(R0) 


•ISSUE DRIVE CLEAR 


MOV 


#13,RMCS1(R0) 


•REIEASE THE DRIVE 


M0V8 


PORTS, RMCS2(R0) , 


•SELECT PORT *e 


CLR 


RMDS(RO) 


■SEIZE THE DRIVE THROUGH PORT '8' 


MOV 


*11.RMCS1(R0) 


•ISSUE DRIVE CLEAR 


MOV 


#13.RMCS1(R0) 


•RELEASE THE DRIVE 



; SEIZE THE DRIVE THROUGH PORT A 



026306 
026314 
026322 
026326 
026334 
026342 
026350 
026356 
026362 
026370 
026374 
026402 
026404 
026406 
026412 
026412 
026420 
026426 
026434 
026442 
026450 



113760 
013737 
005760 
1 1 3760 
013737 
013737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
013737 



001224 
001224 
000000 
001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



027220 

001224 
001224 
000012 
020001 
01 1 700 
001124 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 



64S: 



M0V8 

MOV 

TST 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 

EMT 

JMP 

M0V8 

MOV 

MOV 

BiC 

MOV 

MOV 



PORTA, RMCS2(ftO) ;SELECT PORT A 

PORTA. SEIZPT ;STORE SEIZING PORT'S ADDRESS 

RMCSKRO) .-READ RHCS1 

PORTS. RMCS2(R0) ;S£LECT PORT B 

P0RT8,PTNBR ;MOVF PORT ADDRESS TO LOCATION FOR TVPEOUT 



P0RT8,0PPRT 
RMDS(R0).$8DDAT 
RO.SSDADR 
*RMDS,$8DADR 
$GDDAT 

$GDDAT.$8DDAT 
64$ 

4 

1$ 



•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
8R IF IT IS 

BYPASS REST OF THE SUBTEST 



PORTA, RMCS2(R0) ;SELECT PORT A 

POR^A.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAr .-SEE IF SEIZING PORT SEES CORRECT STATU^ 
xrOM IP I P. $8DDAT .CLEAR DONT CAPE BITS 

/TMOL.PGM.DPR DRY.'VV,S60DAT ;EXPECTED STATUS 
$GDDAT.$TMP1 .•USE GOOD DATA AS A MASK 



ZRMRBC f<«l05/5/2 Du POR rST 1 HACRO vO-i.OO 
T?' PORT "B* IWI81T SEIZE BY RMCS1 TEST 



I 12 

A-APR-81 18:06:<^5 PAGE 10-4.8 



SEO 0088 



026456 
026A62 
026470 
026476 
026504 
026506 
026510 
026512 
026520 



026526 
026532 
026540 
026546 
026552 
026556 
026564 
026572 
026600 
026602 
026610 
026616 
026624 
026626 
026632 



026634 
026642 
026650 



026656 
026662 
026670 
026674 
026702 
026710 
026716 
026724 
026732 
026740 
026746 
026754 
026762 
026770 
026776 
027004 
027006 
027012 
027014 



005137 
013737 
043737 
023737 
001401 
104005 
000240 
1 1 3760 
013737 



005037 
016037 
012737 
060037 
005037 
013737 
0««2737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 



1 1 3760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 



001166 
001126 
001166 
001124 



001226 
001226 



001250 
000000 
000000 
001122 
001124 
001126 
1 73700 
001 124 

001126 
004077 
001 1 74 

001250 



001224 
001224 
000013 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



001164 
001164 
001164 



000010 
001240 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



000010 
001240 
000000 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001 1 72 
001 1 72 
001166 
001166 
001166 



65$: 



COM 

MOV 

SIC 

CMP 

BEQ 

EMT 

NOP 

M0V8 

MOV 



STMPI 

$8DDAT.$TMPe 
STMPI ,$TMPO 
SGDDAT.STMPO 
65$ 

5 



COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

8R IF THEV ARE 



PORT8.RMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 



.•READ RMCS1 THROUGH PORT B - TRY TQ SET PORT REQUEST 



66$: 



clr ckerr 

mov rmcs1(r0).18ddat 

mov #rmcs1 .$8dadr 

add r0.$8dadr 

clr $gddat 

mov $8ddat,$tmp0 

BIC **C4077.$TMP0 

CMP $6DDAT.$TMP0 

BEQ 66$ 

MOV $8DDAT.$TMP4 

BIC *4077,$TMP4 

BIS $TMP4.$G0DAT 

EMT 10 

COM 'KERR 
NOP 



.•CLEAR THE 'CHECK ERROR* INDICATOR 

.-GET CONTENTS OF RMCSl 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.-COPY 'SAD DATA* 
.•CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.•DRIVE SHOULD RETURN TO NEUTRAL 
.•RELEASE THE DRIVE FROM PORT A 

M0V8 PORTA, RMCS2(R0) .-SELECT PORT A 

MOV PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0> .-ISSUE RELEASE THROUGH PORT A 

.•VERIFY THAT THE DRIVE IS STJLL IN NEUTRAL 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

aic 

MOV 

BIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 



RELERR .'CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RM0S,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO,$BDADR :ADD THE I/O BASE ADDRESS 

/»M0L'PGM!DPR:DRY!VV.$GDDAT .-COMPARISON CONSTATJT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(R0>,$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
#PJP!WRL!0M,$TMP2 ;CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY F INTO •$TMPO' 

#ATA.'VV,$Tftf«0 .-CLEAR PORT DEPENDENT BITS FROM THE LOPY 
PORT8.RMCS2(R0> .'SELECT PORT B. 

RMDS(R0),$TMP3 'GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL10M,$TMP3 .-CLEAR DONT CARES 



$T»*tf>3,$TMP1 
*ATA'VV,$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH durts 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO 
HR IF NOT 



RM05/3/2 DU POR TST 1 tIACRO VOA.OO 
PORT 'B' INHIBIT SEI2E BV RMCS1 TEST 
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SEO C08^ 



604 
619 
620 



027016 
027022 
027030 
027036 
027044 
027050 
027052 
027060 
027066 
027074 
027100 
027102 
027110 
027116 
027124 
027126 
0271 34 
027142 
0271 50 
C27156 
027160 
027162 
027170 
027176 
027204 
027212 
027214 
027216 
027220 



0001 37 
013737 
013737 
1 1 3760 
005737 
001414 
013737 
013737 
1 1 3760 
005737 
001012 
012737 
012760 
012760 
104026 
013737 
013737 
042737 
023737 
001401 
104007 
013737 
013737 
342737 
023737 
001401 
104007 
000240 
000004 



027222 
027222 
027226 
027230 
027232 
-027236.. 
027244 
027252 
027260 
027260 
027266 



005737 
001406 
100002 
000137 
012737 



001300 



003074 
177777 



0272^6 






JMP 


72$ 


BVPASS THE REST OF THE CHECKS 


001170 


001126 


68$: 


MOV 


$TMP2.$BDDAT 


SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


001 226 


001240 




MOV 


PORTB.PTNBR 


SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


001226 


000010 




MOVB 


PORT8.RMCS2(R0) , 


SELECT PORT B. 


001164 




TST 


$TMPO 


SEE IF STATUS EQ 0 FROM PORT A. 






BEQ 


69$ 


BR IF ZERO 


001224 


001240 




MOV 


PORTA, PTNBR 


SEiZJNG PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 


001 1 72 


00''126 




MOV 


$TMP3,$BDDAT 


001224 


000010 




MOVB 


PORTA. PMC S2(R0) . 


•SELECT PORT A. 


001166 






TST 


$TMP1 


SEE IF STATUS EQ ZERO FROM PORT B- 






BNE 


70$ 


BR IF NOT 


177777 


001 25«; 


69$: 


MOV 


#-l.RELERR 


SET 'RELEASE ERROR' INDICATOR 


oooon 


000000 




MOV 


*11,RMCS1(R0) 


■CLEAR THE DRIVE 


000013 


000000 




MOV 
EMT 


*13.RMCS1 (RO) 
26 


RELEASE THE DRIVE 


001170 


001126 


70$: 


MOV 


$TMP2,$B0DAT 


•LOOK FOR BIT FAILURES WHEN RMDS READ 


00''224 


001240 




MOV 


PORTA.PTNBR 


•CaVyiGE PORT NUMBER 


100000 


001126 




BIC 


*ATA,$BDDAT 


; DON'T CHECK THE A^TN BIT 


001124 


001126 




CMP 
BEO 
EMT 


$GDDAT.$6DDAT 

71$ 

7 


;ALL BITS OK ? 

;8R IF OK FROM PORT A. 


001172 


001126 


71$: 


MOV 


$TMP3.JB00AT 


.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 


001226 


001240 




MOV 


PORTB.PT^©R 


.•CHANGE PORT NUMBER 


100000 


001126 




BIC 


«fATA,$6DDAT 


.•DON'T CHECK THE ATTN BIT 


001124 


001126 




CMP 


$GODAT,$BDDAT 


.-SEE IF READ OK FROM PORT B. 




72$: 


BEO 

PUT 

EMT 
NOP 


72$ 

7 


.-BR IF OK 






15: 


SCOPc 


;LOOP ? 






;*TEST 


22 


SEJ2E BY RMAS TEST 



TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
(RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
PORT. 

A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE 'jR.VE 
IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 

•«*•*»»•»•»*•***»*»♦•**••**•••*•»•*•*»*»***••■**•*••••**•*•*••»» 

tST22: 



~cnr2/sr 027250" 

012737 027260 



001 300 
001110 



112737 000022 001102 
012706 001100 



1$: 
2r: " 

TEST22: 



TST KY8CTL 

BEQ 2$ 

8PL 1$ 

JMP EXEC 

MOV #-1 .KYBCTL 

--MOV-- - -mST22,$LPADR 

MOV *TEST22.$LPERR 

MOVB *22. $TSTNM 

MOV *STACK.SP 



PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

Bfi IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 

seruf^ SCOPE loop adortss 

SETUP ERROR LOOP ADDRESS 

;MOVE »22 TO TEST NJ^BER 
;LOAD THE STACK POINTER 



CZRMRBO RM05/3/2 DU POR TSl 1 
T2r SEIZE BY RMAS TEST 



t2^ 

675 



027272 012737 000012 



027300 
027306 
027312 
027320 
027326 
02733A 
0273A0 
027346 



027354 
027362 



027370 
027376 
027404 



027412 
027416 
027420 
027426 
027434 
027440 
027442 
027444 
0274S0 
027450 
027456 
027464 
027470 
027472 
0274/6 
027500 



027504 
02750A 
027510 
027516 
027524 
027530 
027536 
027544 
027552 
027560 
027562 



1 1 3760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



1 1 3760 
013737 



013760 
1 1 3760 
013737 



005760 
001014 
113760 
013737 
005760 
001021 
104042 
000137 

113760 
013737 
005760 
001002 
000137 
104043 
000157 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 



001224 
00001 2 
00001 1 
000013 
001226 
000012 
00001 1 
000013 



001230 
001224 



001236 
001224 
001224 



000012 

001226 
001226 
000012 



031274 

001226 
001226 
000012 

030374 

031274 



001250 
00001 2 
000012 
«011 22 
011700 
001126 
106077 
001124 
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MACRO V04.00 
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001 1 76 


MOV 


#10..$T|MES 


;D0 10. ITERAIIONS 


• rt CAD 


ATTENTION BITS FOR BOTH PORTS 


000010 


MOVB 


PORTA, RMCS2(R0) , 


SELECT PORT *A 


CLR 


RMDS(RO; 


SEIZE THE DRIVE 


000000 


MOV 


*11.RMCS1(R0) 


ISSUE DRIVE CLEAR 


000000 


MOV 


*13,RMCS1(R0) 


'RELEASE THE DRIVE 


000010 


MOVB 


PORTS, RMCS2(R0) 


■SELECT PORT *8 


CLR 


RMDS(RO} 


•SEIZE THE DRIVE THROUGH 


000000 


MOV 


/|fll,RMCS1(R0) 


; ISSUE DRIVE CLEAR 


000000 


MOV 


#13,RMCS1(R0) 


; RELEASE THE DRIVE 



SEO 0090 



000010 
001242 



000016 
000010 
001240 



000010 
001240 



000010 
001240 



001126 
00112? 

001124 
001164 
001164 
001164 



.•SELECT DRIVE OTHER THAN THAT BEING TESTED 

MOVB PORTC.RMCS2(R0) ;SELECT DRIVE NOT BEING TESTED 

MOV PORTA. SEIZPT ; 'SEIZED' PORT ADDRESS 

.-WRITE THF DRIVE'S ATTENTION BIT 

MOV ASRI.RMAS(RO) ;WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 

M0V8 PORTA, RMCS2(R0) ; SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPfOUT 

.-VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 

TST RMDSCRO) .-SEE THE REGISTER THROUGH PORT A ? 

BNE 1$ ;8R IF YES 

MOVB PORTB,RMCS2(R0) .'SELECT PORT B 

MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

TST RMDS(RO) .SEE REGISTER THROUGH PORT B ? 

BNE 2$ ;8R IF YES 

EMT 42 

JMP 41 ;8YPASS REST OF TEST 

MOVB PORTS, RMCS2(R0) .'SELECT PORT B 

MOV PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

TST RMOS(RO) .-REGISTER SHOULD BE ZERO THROUGH PORT B 

BNE .+6 ;8R IF STATUS REG IS NOT ZERO 

JMP 3$ ; STATUS REG IS ZERO 

EMT 43 

JMP 4$ ;8YPASS REST OF TEST 



1$: 



;PORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 



2$: 



001126 001174 



CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 

MOV *RMDS,$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD R0,$80ADR ;ADD RH/RM BASE ADDRESS 

MOV #«0L!PGM!DPR.'DRY!VV,J6DDAT .-WHAT REGISTER SHOULD BE 

MOV $8DDAT,$TMP0 .-MOVE REGISTER CONTENTS TO 'STMPO' 

BIC **C71 700, STMPO ;SAVE SPECIFIED BITS 

CMP $6DDAT,$TMP0 ; COMPARE THE BITS 

BEQ 64J ;8R IF OK 

MOV $8DDAT,$TMP4 ;COPY 'BAD DATA' 



Z^MRBO RM05/5/a DU ''OR TST 
21 SEIZE BY RMAS TEST 



1 "lACMO VOA.OO A-APR-81 18:06:?5 



L 

PAGE 



12 

10-51 



027570 
027576 
027604 
027606 
027612 
0276U 
027622 



042757 
053737 
104010 
0051 57 
000240 
015757 
013737 



071700 


001 1 74 


BIC 


♦71 700,$TMP4 


.'CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPfOUT 


001 1 74 


001124 


BIS 


STMP4.$GDDAT 




EMT 


10 




001250 


64t: 


COM 
NOP 


CKERR 


.SET THE REGISTER COMPARE ERROR INDICATOR 


001226 


001242 


MOV 


P0RT8,SEIZPT 


.•ADDRESS FOR ERROR MESSAGE 


001224 


001244 


MOV 


PORTA.OPPRT 


.-SAME AS ABOVE 



027630 113760 001226 
027636 013737 001226 
027644 012760 000013 



027652 
027656 
027664 
C27672 
027676 
027704 
027712 
027720 
027726 
027734 
027742 
027744 
027750 
027752 
027754 
027762 
027770 
027776 
030000 
030002 



030004 
030012 
C 30020 



030026 
030032 
030040 
030044 
030052 
030060 
030066 
030074 
030102 
030110 
030116 
030124 



005037 
012737 
012737 
060037 
113760 
013737 
016037 
113760 
013737 
016037 
001404 
005737 
001401 
104044 
013737 
013737 
023737 
001401 
104027 
000240 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 



001254 
1 1 1 700 
000012 
001122 
001224 
001224 
000012 
001226 
001226 
000012 

001164 



001164 
001224 
001124 



001224 
001224 
000013 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 



000010 
001240 
000000 



001124 
001 !22 

000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001126 



000010 
001240 
000000 



001122 

001124 
000010 
001170 
001 1 70 
001164 
001164 
000010 
001 1 72 
001 1 72 



.■RELEASE THE DRIVE FROM PORT B 

M0V8 PORTS. RMCS2(R0) .-SELECT PORT B 

MOV PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPtOUT 
MOV *13,RMCS1(R0) .'ISSUE RELEASE THROUGH PORT B 

.VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED OY PORT B 



66$: 



67$: 



CLR 

MOV 

MOV 

ADD 

M0V8 

MOV 

MOV 

M0V8 

MOV 

MOV 

6EQ 

TST 

BEO 

EMT 

MOV 

MOV 

CMP 

BEO 

EMT 

NOP 



RELERR .'CLEAR 'RELEASE ERROR' INDICATOR 

#ATA!M0L!PGM!DPR!DRY!VV.$GDDAT .'COMPARISON CONSTANT 
*RMDS.$6DADR .'REGISTER ADDRESS INCREMENT 
R0,$8DADfi ;RE61STER BASE ADDRESS fOR TYPEOUT 

PORTA, RMCS2{R0) .SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATJON FOR TYPEOUT 
RMDS<RO).$TMPO .-READ STATUS REGISTER FROM PORT A 
PORTS. RMCS2(R0) .'SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS<RO).$BDDAT .-DRIVE STATUS FROM PORT B 

.-SR IF STATUS FROM PORT B ZERO 
;IS STATUS FROM PORT A ZERO ? 
;8R IF ZERO 



66$ 
$TWO 
66$ 

44 

$TMPO.$BDDAT 
PORTA. PTN8R 
$GDDAT.$6DDAT 
67$ 

27 



.-CHECK STATUS FROM PORT A 
.CHANGE PORT ADDRESS FOR TYPEOUT 
.'COMPARE WITH CONSTANT 
;8R IF OK 



.RELEASE THE DRIVE FROM PORl A 

MOVe PORTA. RMCS2(R0) .'SELECT PORT A 

MOV PORTA. PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 

.'VLRIFY THAT THE DRIVE IS STILL IN NEUTRAL 



CLR RELERR 

MOV *RMDS.$BDADR 

ADD RO,$BDADR 

MOV *MOI ! PGM! DPR I DRY 

M0V8 PORTA.RMCS2(R0) 

MOV RMDS(R0).$TMP2 

BIC *PJP|WRL!0M.$TMP2 

MOV $TMP2.$TMP0 

BIC #ATA!VV.$TMPO 

M0V8 P0RT8.RMCS2(R0) 

MOV RMDS(R0).$TMP3 . 

BIC #PIPIWRL.0M.$TMP3 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMOS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT .'COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A 

.CLEAR DONT CARFS 
COPY IT INTO •$TMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT 8. 

GET THE DRIVE STATUS REGISTER FROM PORT B 
.•CLEAR DONT CARES 



.ZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 
T22 SEIZE BV RfWS TEST 



n7Ai 75 
U3U ! 5c 


A1 7777 


Am 1 70 


AAI 1 

UU 1 1 oo 




nuv 


U3U 1 sU 


A/ ^777 


1 AA1 AA 


AA 1 lA A. 
UU 1 ' OO 




or r 


U5Ulso 


A'D7777 


AA1 1 A/. 


AAI 1 
UU 1 1 OO 




rMD 


A7A1 C/ 

U3U1 3S 


AA1 AAJL 

OU . OUo 








tSlMC 


UjUI do 




AA 1 1 A/. 

UU 1 1 o*» 






T^T 

1 d 1 


A <A1 


AA1 A/ C 

OUT U*t J 








DKIt 
ISiMC 


A 7A1 iL/ 


1 A/ A/ 

1 u*»u*»o 








cn 1 


A7A1 d^L 
05U1 DO 


AAA1 7 7 


A7A7iLX. 

UjUjoo 






IMP 


A7A1 70 


A1 7777 


AA1 1 7A 
UU 1 1 f U 


AAI 1 PA 
UU I 1 CO 


DO* • 


MAU 

nuv 




A1 7777 

Ul if if 


AA1 00<^ 
UU 1 CCD 


AAI PA.*^ 
UU 1 CHV 




MAU 

nuv 


A7AOAiL 

U5U<:Uo 


1 1 77An 
\ \ if ou 


Aai ooa 

UU 1 CCD 


AAAA1 A 
UUUU lU 




nuvo 


A7noi / 
U3Uc 1 *• 


rv\^777 


AAI 1 

UU 1 1 o*« 






1 d I 




AAI / 1 A 
UU I *• 1 «» 








DCU 


A7r\005 


ni 7777 


AAI 

UU 1 CCH 


AAI PA A 
UU 1 ChU 




MAU 

nuv 


U3U<:3U 


ni 7777 

U 1 Jf Jf 


AAI 1 7? 
UU life 


AAI 1 PA 
UU 1 1 CD 




MAU 


UjUcjO 


1 1 77<\n 
1 1 jr OU 


nn 1 

UU 1 cc*t 


nnnni n 

UUUU 1 u 




Mnun 

nwo 






AA< 1 fj. 

UU 1 oo 






T^T 




w 1 U 1 c 








one 




m 0777 
V let if 


1 77777 

\ f f f ( f 


nni p^A 

UU 1 C JS 


AQC • 

07» . 


MAU 

nuv 


OjUcOU 


U ( c ' OU 


UUUU 1 1 


uuuuuu 




nuv 


U jUcOO 


u 1 c' ou 


nnnni 'X 

UUUU 1 J 


nnnnnn 




nvv 


U jUc ' 










C" 1 


U3Uc ' 0 


ni 7777 

U 1 J» Jf 


nni 1 7n 

UU 1 1 f u 


nni 1 PA 

UU 1 1 cO 


7nt • 

f u# • 


MAU 

nuv 




m 7777 

U 1 Jf Jf 


nni 

UU 1 cc** 


nm p^n 

UU 1 CHU 




riwv 


U jU J 1 c 


\}'*Cf Jf 


1 nnnnn 


nni 1 PA 

UU 1 1 CD 




Oi c 


UjUjcU 


n57777 

Vcjr if 


AAI 1 
UU 1 1 CH 


nni 1 PA 

UU 1 1 cO 






UjUjcO 


AA1Z.ni 
Uv 1 hU I 








DC W 




1 A/nn7 












ni 77^7 

U 1 Jf Jf 


oni 1 7? 

UU life 


nni 1 PA 

UU 1 1 CO 


714" 

f 1 # • 


nvv 




ni X7'K7 
U 1 Jf Jf 


nni 

UU 1 CCD 


nni p^n 

UU 1 CHV 




nv w 


030346 


042737 


100000 


001126 




BIC 


030354 


023737 


001124 


001126 




CMP 


030363 


001401 








BEQ 


03036A 


104007 








EMT 


U JU jOO 


nnnp^n 

UUV/cHU 






f C* ' 




nxr\x7n 


nAAl 77 
UUU 1 Jf 


n7i P7i 

Uj I Cf h 






IMP 








> 
% 


> 1 nc 


l/n i V c 1 « 


f\Xf\X7/. 








Xt • 
j» • 






1 1 77AA 
1 1 J f OU 


nni 

UU 1 CC*» 


nnnni n 

UUUU 1 u 




nuvo 




A1 7777 

U 1 Jf Jf 


nni OPA 

UU 1 CCt 


nni PAn 

UU 1 cHU 




MAU 

nuv 




nn'jn'^7 

Uw JUjf 


nni psn 
UU 1 c ju 






n R 


UjU*» I** 


ni An'^7 

U lOUjf 


nnnni ? 

UUUU 1 C 


nni 1 PA 

UU 1 1 CO 




MAU 
nuv 




ni?7'^7 

U 1 1 f Jf 


\j\J\J\J \ c 


001 1PP 
uv 1 1 cc 




Mnv 

nuv 




V/DUUJf 


noi 1 ?p 

Uv 1 1 cc 






Ann 




ni?7'?7 

\JiCrJf 


ni 1 7ftn 

U 1 1 f UU 


nm 1 "PL 

\J\j 1 1 CH 




nuv 


nxru.LO 


ni77X7 

- V 1 J f J f 


noi 1 PA 

UU 1 1 cO 


nm 1 A^ 

UU 1 ' OH 




Mni/ 

nuv 




nA?7'?7 

U*tC f Jf 


1 nAn77 

1 UOUf f 


nm 1 Ai 

Uv 1 1 OH 




Rrr 

Oi V. 




yJCjf J 


nni 1 0L 

UU 1 1 cH 


nni 1 A^ 

UU 1 1 OH 




TMP 




nni A1A 








RPQ 


030466 


013737 


001126 


001 1 74 




k MOV 


030474 


CK27Z7 


071700 


001174 




BIC 


030502 


053737 


001174 


001124 




BIS 


030510 


104010 








EMT 


030512 


005137 


001250 






COM 


030516 


000240 






73$: 


NOP 



I 



M 12 
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SEO 009.' 



$TMP3.$TMP1 
#ATA.VV,$TMP1 
$TMP0.$TMP1 
68$ 

$TMPO 
70$ 
46 
72$ 

$TMP2.$BDDAT 

P0r-<T8.PTNBR 

PORTS. RMCS2(R0) 

$TMP0 

69$ 

PORTA. PTNBR 

$TMP3.$8DDAT 

PORTA,RMCS2(R0) 

$TMP1 

70$ 

*-l.RELERR 
#11.RMCS1(R0) 
*13,RMCS1(R0> 
26 

ITMP2,$8DDAT 

PORTA. PTNBR 

/rATA.$BDDAT 

$GDDAT,SBDDAT 

71$ 

7 

$TMP3.$8DDAT 

PORTS. PTNBR 

#ATA,$BDDAT 

$GDDAT,$eODAT 

72$ 

7 

4$ 



copy IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

SR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ' 
SR IF NOT 

aVPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN N£4JTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMOS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 



CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 



- FROM PORT B. 



SEIZED BY PORT A. VERIFY THAT PORT B HAS PORT REQUEST SET 



PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS<R0),$8DDAT ;GET CONTENTS OF RMDS 
#RM0S,$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 



RO.SBDADR 

*MOL;PGM!DPR!DRy 

$8DDAT.$TMP0 

#*C7170O.$TMP0 

$GDDAT,$TMPO 

73$ 

$8DDAT.$TMP4 
ir71700.$TMP4 
$TMP4.$GDDAT 

10 

CKERR 



ADD RH/RM BASE ADDRESS 
VV,$GDDAT .-WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO •$TMP0' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 
CLEAR THE MASKED BITS 
'OR* WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



CZRMRBO RM05/3/2 DU POR TST 1 
T22 SEIZE BY RMAS TEST 

030520 013737 001224 
030526 013737 001226 



nACRO VOA.OO 



N 12 

A-APR-81 18:06:25 PAGE 10-53 



030534 
030542 
030550 



030556 
030562 
030570 
030576 
030602 
030610 
030616 
030624 
030632 
030640 
030646 
030650 
030654 
030656 
030660 
030666 
030674 
030702 
030704 
030706 



030710 
030716 
030724 



113760 
013737 
012760 



005037 
012737 
012737 
060037 
113760 
013737 
016037 
113760 
013737 
016037 
001404 
005737 
001401 
104044 
013737 
013737 
023737 
001401 
104027 
000240 



1 1 3760 
013737 
012760 



001224 
001224 
00001 3 



001254 
1 1 1 700 
000012 
001122 
001226 
001226 
000012 
001224 
001224 
000012 

001164 



001164 
001226 
001124 



001226 
001226 
000013 



SEO 0093 



001242 
001244 



000010 
001240 
000000 



\ 



001 
001 



000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001126 



000010 
001240 
000000 



MOV PORTA.SEIZPT 
MOV P0RTB,0PPRT 



, ADDRESS FOR ERROR MESSAGE 
;SAME AS ABOVE 



;»»ELEASE THE DRIVE FROM PORT A 



MOVB PORTA, RMCS2(R0) .'SELECT PORT A 

MOV PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1{R0) .-ISSUE RELEASE THROUGH PORT A 

.•VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 



IK 



75$: 



76$; 



CLR 

MOV 

MOV 

ADD 

MOVB 

MOV 

MOV 

MOVB 

MOV 

MOV 

BEQ 

TST 

BEO 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 



RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

#ATA!MOL!PGM!DPR!DRY!VV,SGDDAT ; COMPARISON CONSTANT 
*RMDS.$8DADR .-REGISTER ADDRESS INCREMENT 
R0.$8DADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

P0/?TB,RMCS2(R0) .SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO),$TMPO .-READ STATUS REGISTER FROM PORT B 
P0RTA,RMCS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAT ;DRIVE STATUS FROM PORT A 

;BR IF STATUS FROM PORT A ZERO 
;IS STATUS FROM PORT B ZERO ? 
;BR IF ZERO 



75$ 
$TMPO 
75$ 

44 

$TMPO.$BDDAT 

POR TB, PTNBR 

$GDDAT,$BDDAT 

76$ 

27 



.•CHECK STATUS FROM PORT B 
.'CHANGE PORT ADDRESS FOR TYPEOU' 
.COMPARE WITH CONSTANT 
.'BR IF OK 



.'RELEASE THE DRIVE FROM PORT 8 

MOVB P0RTB,RMCS2(R0) .'SELECT PORT B 

MOV P0RTB,PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13,RMCS1(R0) .'ISSUE RELEASE THROUGH PORT B 

.'VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
VV.$6DDAT .-COMPARISON CONSTANT. 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.-CLEAR DONT CARES 
COPY IT INTO '$TMPO* 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.-CLEAR DONT CARES 
COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 



030732 


005037 


001254 




CLR 


RELERR ; 


C30736 


012737 


000012 


001122 


MOV 


#RMDS.$8DADR 


030744 


060037 


001122 




ADD 


K R0.$8DADR 


030750 


012737 


01 1 700 


001124 


MOV 


''^ *MOL.'PGM!DPR!DRY! 


030756 


113760 


001224 


000010 


MOVB 


P0RTA,RMCS2(R0> ; 


030764 


016037 


000012 


001 1 70 


MOV 


RMDS(R0),$TMP2 ; 


030772 


042737 


024001 


001170 


BIC 


*PIP!WRL!0M.$TMP2 


031000 


013737 


001170 


001164 


MOV 


$TMP2,$TMP0 


031006 


042737 


100100 


001164 


BIC 


*ATA.'VV,$TMPO ; 


031014 


113760 


001226 


000010 


MOVB 


PORTS, RMCS2(R0) ; 


031022 


016037 


000012 


001 1 72 


MOV 


RMDS<R0),$TMP3 ; 
*PIP!WRL!0M.$TMP3 


031030 


042737 


024001 


001172 


BIC 


031036 


013737 


001172 


001166 


MOV 


$TMP3.$TMP1 


031044 


042737 


100100 


001166 


BIC 


#ATA!VV,$TMP1 


031052 


023737 


001164 


001166 


CMP 


$TMP0.$TMP1 


031060 


001006 






BNE 


77$ 


031062 


005737 


001164 




TST 


$TMPO 



22 SEIZE B> fWAS TEST 



MACRO V04.00 



B 13 
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SEO 0094 



670 
688 
689 



051066 
051070 
051072 
051076 
051104 
051112 
051120 
051124 
051126 
051154 
051142 
051150 
051154 
051156 
051164 
051172 
051200 
051202 
051210 
031 216 
031224 
031252 
051234 
051256 
051244 
051252 
051260 
051266 
051270 
051272 
051274 



051276 
031276 
031302 
031304 
031306 
031312 
031520 
051326 
031534 
031534 
031342 
031346 



001045 
104046 
000137 
013737 
013757 
115760 
005757 
001414 
013757 
015757 
1 1 5760 
005757 
001012 
012757 
012760 
012760 
104026 
015737 
013757 
042737 
023737 
001401 
104007 
013737 
01 3757 
042737 
025757 
001401 
104007 
000240 
000004 



005737 
00U06 
100002 
000137 
012737 
012737 
012737 



031272 
001170 
001226 
001226 
001164 

001224 
001172 
001224 
001166 

-[77777 
000011 
000013 

001170 
001224 
100000 
001124 



001 1 71 
001226 
100000 
001124 



001300 



003074 
}77777 
031334 
031554 







BNE 


79$ 






EMT 


46 






JMP 


81$ 


001 1 26 


77S: 


MOV 


$TMP2,$8DDAT 


001 240 




MOV 


POftTB.PTNBR 


000010 




MOVB 


PORT8,RMCS2(R0) 






TST 


$TMPO 






8EQ 


78$ 


001240 




MOV 


PORTA.PTNBR 


001 126 




MOV 


$TMP5,$BDDAT 


000010 

WW I w 




M6VB 


P0RTA,RMCS2(R0) 






TST 


$TMP1 






BNE 


79$ 


001254 


78$: 


MOV 


*-1 .RELERR 


000000 




MOV 


#11 .RMCS1 (RO) 


000000 

WW w 




MOV 


#13.RMCS1 (RO) 






EMT 


26 


001126 


79$; 


MOV 


$TMP2.$8DDAT 


001240 




MOV 


PORTA.PTNBR 


001126 




SIC 


#ATA,$8D0AT 


001126 




CMP 


$GDDAT,$eDDAT 






BEO 


80$ 






EMT 


7 


001126 


80$: 


MOV 


$TMP5.$BDDAT 


001240 




MOV 


PORTS, PTN8R 


001126 




BIC 


#ATA.$eODAT 


001126 




CMP 


$GDDAT,$BDDAT 






BEO 


81$ 






EMT 


7 




81$: 


NOP 






4$: 


SCOPE 





112757 000025 
012706 001100 
012737 000012 



001300 
001106 
001110 

001102 

001176 



;8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAO DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT jN NEUTPAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST «iHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT 8. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



LOOK FOR BIT FAILURES WHEN RMOS READ 

CHANGE PORT NUMBER 

DON*T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
8R IF OK 



.•LOOP ? 



■»*♦*«•*•****»***••*****•*****»••***•»*••**••••****••*******♦♦♦* 

^TEST 23 INHIBIT SEIZE BY RMAS TEST 

•VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A 'ZERO* IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT. 

• A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS, EXCEPT THE 

• BIT OF THE DRIVE BEING TESTED, INTO THE ATTENTION REGISTER. 

• B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 

A 

• •♦*♦♦*•»••*****«•••***»•*•*•**»*****•*****•»••*••*»••**»•»••»•* 

tST23: 

PERFORMING ONLV SINGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN e GET NEXT TEST Nlf©ER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 



1$: 
2$: 



TEST23: 



TST 
BEO 
BPL 
JMP 
MOV 
MOV 
MOV 



KYBCTL 

2$ 

1$ 

EXEC 

#-1 .KYBCTL 

*TEST23,$LPADR 

*TEST23,$LPERR 



M0V8 

MOV 

MOV 



*23,$TSTNM 

*STACK.SP 

*10.,$TIMES 



MOVE #23 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



'ZR»1RB0 RM05/?/2 DU POR TST 1 •WCRO V04.00 
T25 INHIBIT SEIZE BY »WWS TEST 



C 13 
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690 
705 



;fLEAR ATTENTION BHS FOR BOTH PORTS 



031 


1 1 3760 


001 ??A 

WW ICC"* 


000010 

WWWW I W 


M0V8 


PORTA RMCS2(R0) • 


031362 


005060 


000012 




CLR 


RMDS(RO) ; 






noooi 1 

WWwW 1 I 


000000 

WWWWWW 


MOV 


<»11.RMCS1(R0) 


031 37A 


012760 


000013 


000000 


MOV 


#13,RMCS1(R0) 


03K02 


1 1 3760 


001226 


000010 


M0V8 


P0RT8.RMCS2(R0) ; 


03U10 


005060 


000C12 




CLR 


RMDS(RO) 


031AH 


012760 


000011 


000000 


MOV 


#11.RMCS1 (RO) 


03U22 


012760 


000013 


000000 


MOV 


#13.RMCS1(R0) 


03U30 


113760 


001230 


000010 


M0V8 


P0RTC,RMCS2(R0) ; 










.WRITE ALL ATTENTION BITS EXCEPT 


03U36 


013737 


001236 


001164 


MOV 


ASR1,$TMP0 ; 


031444 


005137 


001164 




COM 


STMPO 


031450 


013760 


001164 


000016 


MOV 


$TMPO,RMAS(RO/ ; 



SELECT PORT #A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT DRIVE NOT BEING TESTED 



STORE ATTN BIT FOR PORT A 

COMPLEMENT IT 

WRITE THE ATTN REGISTER 



•8* 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



05 i4l6 


AACAT7 

00!>03/^ 


001254 






CLH 


ATI / Z. T 


Al "i^T^ 


AAAA1 O 
00001 if 


AAi 1 O 0 

001 \cc. 




MOV 


03 1 4/^0 


A^AAT7 

06003/' 


AA1 1 OO 

001 1 £d 






ADD 


U3 


KJtCfJf 


All 7AA 

01 1 /OO 


AAI 1 OA 
001 ICH 




nov 


ATI cm 

031 30<: 


1 1 T7^A 

1 1 3/60 


AA1 OO/ 

001cc*» 


AAAAI A 
00001 0 




■mv/Q 
MOVO 


ATI CIA 

031 DlO 


A1 ^AT7 
01603/ 


AThAAl 0 


AA1 1 7A 
001 1 /O 




nuv 


031 516 


ni 37»7 


Uc^OOl 


UOi 1 /U 






ATI CO/ 

031 


013/3/ 


rtA1 1 7rt 

001 1 /O 


AA1 1 A/ 

OO 1 lo*» 




MOV 








V/V 1 1 




Rir 
DJ y. 


031540 


1 1 3760 


001226 


000010 




MOVB 


031 546 


016037 


000012 


001172 




MOV 


031554 


042737 


024001 


001172 




SIC 


031562 


013737 


001172 


001166 




MOV 


031570 


042737 
023737 


1001 CO 


001166 




BIC 


031576 


001164 


001166 




CMP 


031604 


001006 








8NE 


031606 


005737 


001164 






TST 


031612 


001045 








BNE 


031614 


104046 








EMT 


031616 


00013/ 


032016 






JMP 


031622 


013737 


001170 


001126 


64S: 


MOV 


031630 


013737 


001226 


001240 




MOV 


031636 


113760 


001226 


000010 




M0V8 


031644 


005737 


001164 






TST 


031650 


001414 








BEQ 


031652 


013737 


001224 


001240 




MOV 


031660 


013737 


001172 
001224 


001126 




MOV 


031666 


113760 


000010 




MOVB 


031674 


005737 


001166 






TST 


031700 


001012 








BNE 


031 702 


012737 


Mini 


001254 


65$: 


MOV 


031710 


012760 


000011 


000000 




MOV 


031716 


012760 


000013 


000000 




MOV 


031724 


104021 








EMT 


031726 


013737 


001170 


001126 


66S: 


MOV 



RELERR 
#RMOS.SBDADR 
RO.SBDADR 
*WOL!PGM:DPR!DRy 
PORTA.RMCS2(R0) 
RMDS(R0),$TMP2 . 
#PIP!WRL!0M.$TMP2 



CLEAR THE 'RELEASE ERROR * INDICATOR 
FORM THE ADDRESS OF RMOS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
VV.fGDDAT .-COMPARISON CONSTANT 
SELECT PORT A 

GET THE ORIVE'STATUS REGISTER FROM PORT A. 
.'CLEAR DONT CARES 



$TMP2.STMP0 .-COPY IT INTO 'STMPO* 
.#ATA!VV.$TMPO .'CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. R«CS2(R0) ;S£LECT PORT 8. 

RMDS(R0).$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
*PIP!URLI0M.$TMP3 .'CLEAR DONT CARES 



$TMP3.$THP1 
#ATA.'VV,$TMP1 
$TMP0,$TMP1 
64$ 
$TMPO 
66$ 
46 
68$ 

$TMP2.$8DDAT 

P0RT8.PTNBR 
PORTS. RMCS2(R0) 
$TMP0 
65$ 

PORTA, PTNBR 

$TMP3,$80DAT 

P0RTA.RMCS2(R0) 

$TMP1 

66$ 

#-1 .RELERR 
#11. RMCSHRO) 
#13.R«CS1(R0) 
21 

$TMP2.$8DDAT 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
8fi IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

.'LOOK FOR BIT FAILURES WHEN RMDS READ 
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?^ INHIBIT SEIZE BY RMAS TEST 



SEO 0O9C. 



706 
725 
726 



031734 
031742 
051750 
031756 
031 760 
031762 
031770 
051776 
03200A 
032012 
0320U 
032016 
032020 



727 
756 



032022 
032022 
032026 
032030 
032032 
032036 
0320A4 
C32052 
032060 
032060 
032066 
032072 



032100 
032106 
032112 
032120 
032126 
032134 
032140 



013737 
042737 
023737 
001401 
104007 
013737 
013737 
042737 
02373' 
OCUO^ 
104007 
000240 
000004 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 



001224 
100000 
001 1 24 



001172 
001226 
100000 
001124 



001224 
000012 
000011 
000013 
001226 
000012 
00001 1 



001240 
001126 
001126 



001^26 
001240 
001126 
001126 



001300 



003074 

1 77777 001 300 

032060 001106 

032060 001110 

000024 001102 
001100 

000012 001176 



000010 

000000 
000000 
000010 

000000 



67S: 



68S: 



MOV 
BiC 
CUP 
BEO 
EMT 
MOV 
MOV 
BiC 
CMP 
BEO 
EMT 
NOP 
SCOPE 



PORTA. PTMBR 
#ATA,MDDAT 
SGDDAT.SBDDAT 
67$ 

7 

$TMP3.$BDDAT 

P0RT8.PTN8R 

«ArA,SBDDAT 

SGDDAT.SBODAT 

68S 

7 



CHANGE PORT NUMBER 

DON' T CHECK THE ATTN BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PQRi 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

SEE IF READ OK FROM PORT B. . 

8R IF OK 



;LOOP ? 



B. 



>•*•*••*****•********•******••******••**************•»*»**•*•*•• 

•TEST 24 SET PORT 'A* REQUEST TEST 

•VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 



SEIZE THE DRIVE THROUGH PORT '8' BY WRITiNG O'S INTO RMDS- 



* B. WRITE O'S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 'B*. 



D. 



ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT 'A'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'A* AND IS NOT SET FOR PORT '8'. 

ISSUE ^ KELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



TST24; 



1$: 
2$; 

TEST24; 



TST KY8CTL 

BEQ 2S 

BPL 1$ 

JMP EXEC 

MOV *-l,KYBCTL 

MOV #TEST24,$LPADR 

MOV /irTEST24,$LPERR 

M0V8 #24.$TSTNM 

MOV #STACK.SP 

MOV #10..$TIMES 



PERFORMING ONLY SINGLE TEST ? 
8R r NOT 

BR IF JUST ENTERED TEST 
RETURN fc GET NEXT TEST DUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #24 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



M0V8 PORTA, RMCS2(R0) 

CLR RMDSCRO) 

MOV #11.RHCS1(R0) 

MOV #13.RMCS1(R0) 

M0V8 PORTS, RMCS2(R0) 

CLR R«DS(RO) 

MOV #11,RMCS1(R0) 



SELECT PORT *A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 



C2RMRB0 



SET PORT 



OU POR TST 1 
•A' REQUEST 



»WCRO 

EST 



V04.00 A-APR-81 18:06:25 



E 

PAGE 



13 

10-57 



SEC 



C52K6 012760 OOOOn 000000 



0321 5A 
032162 
0321 70 
032174 
032202 
032210 



1 1 3760 
013737 
005060 
013737 
113760 
013737 



001226 
001226 
000012 
001 22A 
001 22A 
001 22A 



032216 005060 000012 



C 32222 
032230 
032236 



0322A4 
032250 
032256 
03226A 
032270 
0322^6 
032304 
032312 
032320 
032326 
03235A 
032336 
032342 
032344 
032346 
032354 
032362 
032370 
032372 
032374 
032376 
032404 
032412 
032416 
032424 
032432 
032436 
032442 
032450 
032456 
032464 
032466 



1 1 3760 
013737 
012760 



005037 
012737 
012737 
060037 
113760 
013737 
016037 
1 1 3760 
013737 
016037 
001404 
005737 
001401 
104031 
013737 
013737 
023737 
001401 
104027 
000240 
1 1 3760 
013737 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 



00 1226 
001226 
00001 3 



001254 
111700 
000012 
001122 
001224 
001224 
000012 
001226 
001226 
000012 

001164 



001164 
001224 
001124 



001226 
001226 
001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 



000010 
001242 

001244 
000010 
001240 



000010 
001240 
000000 



001124 
001122 

000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001126 



000010 
001240 

001126 
001122 



001164 
001164 
001164 



WOV #13.RMCS1 (RO) .-RELEASE THE DRIVE 

SEIZE THE DRIVE THROUGH PORT B 

Move P0RT8.RMCS2(R0) .'SELECT PORT B 

MOV PORTS, SEIZPT ;STORE SEIZING PORT'S ADDRESS 

CLR RMDS(RO) ."WRITE RMDS 

MOV PORTA.OPPRT .-'OPPOSITE' PORT ADDRESS 

M0V8 P0RTA.RMCS2(R0) ; SELECT PORT A 

MOV PO-'UA.PTNSR .-MOVE PORT ADDRESS TO LOCATION fOR TvPEOur 



:StT PORT REQUEST 



CLR 



RMDS(RO) 



.-SET PORT REQUEST FOR PORT A 



.-RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A. 
.•RELEASE THE DRIVE FROM PORT B 

M0V8 PORTS. RMCS2(R0) .-SELECT PORT B 

MOV PORTS, PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
MOV #13.RMCS1(R0) ;ISSUE RELEASE THROUGH PORT B 

.VERIFy THAT DRIVF IS SEIZED BY PORT A WHEN RELEASED BY PORT B 



66$: 



67$: 



001126 001174 



CLR 

MOV 

MOV 

ADD 

MOVS 

MOV 

MOV 

MOVS 

MOV 

MOV 

8E0 

TST 

BEQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 

MOVS 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 



RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

#ATA.'nOL:PGMlDPR.'DRY!VV,$GDDAT .-COMPARISON CONSTANT 
*RMDS,$8DA0R .'REGISTER ADDRESS INCREMENT 
R0.18DADR .'REGISTER BASE ADDRESS FOR TYPEOUT 

P0RTA,RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO).$TMPO .-READ STATUS REGISTER FROM PORT A 
PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMOS(RO),$BDDAT .-DRIVE STATUS FROM PORT B 



66$ 
$TMPO 
66$ 

31 

$TW>0.S8DDAT 
PORT A. PTNBR 
$6DDAT,$8DDAT 
67$ 

27 



.-8R IF STATUS FROM PORT B ZERO 
;IS STATUS FROM PORT A ZERO ? 
.-BR IF ZERO 

.-CHECK STATUS FROM PORT A 
.-CHANGE PORT ADDRESS FOR TYPEOUT 
.-COMPARE WITH CONSTANT 
;8R IF OK 



P0RT8.RMCS2(R0) .-SELECT PORT B 

P0RT8, PTNBR ."MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT .-GET CONTENTS OF RMDS 
*RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS to '$TMPO' 
SAVE SPECIFIED BITS 
.■COMPARE THE BITS 
;6R IF OK 
.-COPY 'BAD DATA' 



R0,$8DADR 

$GDDAT 
$8DDAT,$TMP0 
#*CATA.$TMPO 
$GDDAT.$TMPO 
68$ 

$8DDAT.ITMP4 



'ZRMR80 PiM05/3/2 Db POR TST 1 MACRO V04.00 
SET PORT 'A* REObEST TEST 



032502 
052510 
032512 
032516 
032520 
032526 
03253A 
0325AO 
0325^6 
032554 
032560 
032566 
032574 
032602 
032610 
032612 
032620 
032626 
032634 
032636 
0326 2 



032644 
032652 
032660 



032666 
032672 
032700 
032704 
032712 
032720 
0552726 
032754 
052742 
052750 
C 52 756 
052764 
052772 
055000 
055006 
035014 
055016 
055022 
055024 
053026 
055052 
055040 
055046 
053054 
035060 
C 5 3062 



042757 
055757 
104016 
005157 
000240 
113760 
015757 
005057 
016057 
012757 
060057 
012757 
015757 
042757 
023757 
0C1414 
013757 
042757 
055757 
104016 
005157 
000240 



115760 
015757 
012760 



005057 
012757 
060057 
012757 
115760 
016037 
042737 
015757 
042757 
1 1 5760 
016057 
042757 
015757 
042757 
025757 
001006 
005757 
001045 
1 04046 
000157 
015757 
015757 
1 1 5760 
005757 
001414 
015757 



100000 
001174 

001250 

001224 
001224 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001224 
001224 
000015 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



033212 
001170 
001226 
001226 
001164 



001 1 74 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



000010 
001240 
000000 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001172 
001 1 72 
001166 
001166 
001166 



001126 
001240 
000010 



68$: 



70$: 



4-APR-81 



6IC 

BIS 

EMT 

COM 

NOP 

P10V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 



F 13 

18:06:25 PAGE 10-58 



SEO 0O96 



#ATA.$TMP4 

$TMP4,$GDDAT 

16 

CKERR 



.•CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA.PfNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE "CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
*W1DS.$BDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA* 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
#ATA.$GDDA1 
$8DDAT.$TMP0 
#*CATA.$TMPO 
$GDDAT,$TMPO 
70$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4,$GDDAT 
16 
CKERR 



;SET THE REGISTER COMPARE ERROR INDKATOR 



.•RELEASE THE DRIVE FROM PORT A 



M0V8 PORTA. RMCS2(R0) .'SELECT PORT A 

MOV PORTA, PTNBR ;«OVE PORT ADDRESS TO LOCATION rOR TYPEOUT 
MOV *13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 



.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



72$: 



001224 001240 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEQ 

MOV 



RELERR 

#R«DS,$8DADR 
R0.$8DADR 
*MOL.'PGM!DPR!DRY 
PORTA. RMC 52 (RO) 
R«DS(R0),$TMP2 . 
#PJP!URL!0M,$TMP2 
$TMP2.$TMP0 
#ATA!VV.$TMPO 
P0RT8,RMCS2(R0) 
RMDS(R0),$TMP5 . 
#PJP!WRL!0M.$TMP5 



INDICATOR 
FOR TYPEOLtT 



$TMP5.$TMP1 
#ATAIVV,$TMP1 
$T«P0.$TMP1 
72$ 
$TW>0 
74$ 
46 
76$ 

$TMP2.$8DDAT 

POR T8. PTNBR 

PORT8.RMCS2(R0) 

$TMPO 

75$ 

PORTA, PIN6R 



CLEAR THE "RELEASE ERROR 
FORM THE ADDRESS OF RMDS 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT ; COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.'CLEAR DONT CARES 
COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT 8. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 
CLEAR DONT CARES 



COPY IT INTO '$TMP1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 



OF THE CHECKS 
BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAi 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRI,/E NOT IN Ni 



fif^^/l/d DU POR TST 1 MACRO 
SET PORT 'A* REQUEST TEST 



V04.00 4-APR-81 ^8:06:<^5 



G 

PAGE 



13 

10-59 



SEO 009<> 



757 
'76 
777 



033070 


013737 


00117? 


oor26 




MOV 


$TMP3,$B0DAT 


;'8AD DATA' FOR ERROR TVPE OUT 




033076 


113760 


C01224 


000010 




M0V8 


PORTA. RMCS2(R0) 


.SELECT PORT A. 




033104 
033110 


005737 


001166 






TST 


$TMP1 


.-SEE IF STATJS EQ ZERO FROM PORT 


B. 


001012 








BNE 


74$ 


;8R IF NOT 




033112 


012737 


}77777 


001254 


73t: 


MOV 


*-1 .RELERR 


;SET 'RELEASE ERROR' INDICATOR 




033120 


012760 


00001 1 


000000 




MOV 


#11,RMCS1(R0) 


.•CLEAR THE DRIVE 




033126 


012760 


00001 3 


onoooo 




MOV 


#13,RMCS1 (RO) 


.■RELEASE THE DRIVE 




053134 


104026 








EMT 


26 






033136 


015737 


001170 


001126 


74$: 


MOV 


$TMP2.$8DDAT 


;LOCK FOR BIT FAILURES WHEN RMOS 


READ 


033144 


013737 


001224 


001240 




MOV 


PC'JTA.PTNBR 


.•CHANGE PORT NUMBER 




03315? 


023737 


001124 


001126 




CMP 


$GDDAT,SBDDAr 


;ALL BITS OK ? 




033160 


001401 








BEO 


75$ 


;8R IF OK FROM PORT A. 




033162 


104007 








EMT 


7 






033164 


013737 
013737 


001172 


001126 


75$: 


MOV 


$TMP3,$BDDAT 


; CHECK RMPS FOR BIT FAILURES - FROM PORT 


033172 


001226 


001240 




MOV 


PORTB^^TNeR 


.•CHANGE PORT NUMBER 




033200 


023737 


001124 


001126 




CMP 


$GDDAT.$BDDAT 


.-SEE IF READ OK FROM PORT B. 




033206 


001401 








BEQ 


76$ 


.•8R IF OK 






1 \JH\J\J f 








FMT 


7 






033212 


000240 






76$; 


NOP 








C33214 


000004 






1$: 


SCOPE 




.■LOOP ? 












;*TEST 


25 


SET PORT '8' REQUEST TEST 





'V8 
'79 



VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

B. WRITE O'S INTO RMOS FROM PORT '8'; VERIFY THA.T THE DRIVE IS STILL 
SEIZED BY PORT 'A'. 

C. ISSUE A RELEASE COWANO FROM PORT 'A' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT 'B'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'B* AND IS NOT SET FOR PORT 'A'. 

D. ISSUE A RELEASE COMMAND THROUGH PORT '8' AND VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



C33216 








rST25: 








033216 


005737 


001300 






TST 


KY8CTL 


.PERFORMING ONLY SINGLE TEST ? 


033222 


001406 








BEO 


2$ 


;8R IF NOT 


033224 


100002 








8PL 


1$ 


;8R IF JUST ENTERED TEST 


033226 


000137 


003074 






JMP 


EXEC 


.•RETURN % GET NEXT TEST NUMBER 


033232 


012737 


■[77777 


001300 


1$: 


MOV 


*-1.KY8CTL 


;SET SINGLE TEST INDICATOR 


03324C 


012737 


033254 


001106 


2$: 


MOV 


*TEST25,$LPADR 


; SETUP SCOPE LOOP ADDRESS 


033246 


012737 


033254 


001 no 




MOV 


*TEST25.$LPERR 


.■SETUP ERROR LOOP ADDRESS 


033254 








TEST25: 






.•MOVE *25 TO TEST NIWBER 


033254 


112737 


000025 


001102 




M0V8 


*25.$TSTNM 


033262 


012706 


001100 






MOV 


*STACK.SP 


;LOAD THE STACK POINTER 


033266 


012737 


000012 


001 1 76 




MOV 


*10.,$TIMES 


;;D0 10. ITERATIONS 



; CLEAR ATTENTION BITS FOR BOTH PORTS 



Do POR ^ST 1 MACRO ^04.00 
SET PORT '8* REQUEST TEST 



H 13 
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Sf-0 0)00 



033^74 
033302 
033306 
0333U 
033322 
033530 
03333A 
0333A2 



033350 
033^56 
03336A 
033370 
033376 
033404 



113760 
005060 
012760 
012760 
1 1 3760 
005060 
012760 
012760 



'13760 
013737 
005060 
013737 
113760 
013737 



001 22^. 
000012 
000011 
00001 3 
001226 
000012 
00001 1 
00001 3 



001224 
001224 
000012 
001226 
001226 
001226 



033412 005060 000012 



053416 
033424 
033432 



033440 
035444 
033452 
055460 
033464 
035472 
035500 
033506 
035514 
033522 
033530 
033532 
033536 
055540 
055542 
033550 
055556 
035564 
033566 
033570 
055^572 
033600 
053606 
0"53612 
033620 



1 1 5760 
013737 
012760 



005037 
012737 
012737 
060037 
113760 
013757 
016037 
113760 
013737 
016037 
001404 
005737 
001401 
104051 
015757 
013737 
023737 
001401 
104027 
000240 
1 1 5760 
015737 
005037 
016037 
012737 



001224 
001224 
000013 



001254 
1 1 1 700 
000012 
001122 
001226 
001226 
000012 
001224 
001224 
000012 

001164 



001164 
001226 
001124 



001224 
001224 
001250 
000012 
000012 



000010 

000000 
000000 
000010 

000000 
000000 



000010 
001242 

001244 
000010 
001240 



000010 
001240 
000000 



001124 
001122 

000010 
001240 
001164 
000010 
001240 
001126 



001126 
001240 
001126 



000010 
001240 

001126 
001122 



MOVB 


PORTA, RMCS2(R0) , 


SELECT PORT #A 


CLR 


RMDS (RO) 


SEIZE THE DRIVE 


MOV 


#1 1 .RMCSI (RO) 


•ISSUE DRIVE CLEAR 


nuv 




KtLtASt IHt DHlVt 


MOVQ 


PORTS. RMCS2(R0) 


■SELECT PORT #8 


CLR 


RMDS(RO) 


•SEIZE THE DRIVE THROUGH PORT '8' 


MOV 


#11.RMCS1(R0) 


•ISSUE DRIVE CLEAR 


MOV 


*13.RMCS1<R0) 


•RELEASE THE DRIVE 



; SEIZE THE DRIVE THROUGH PORT A 

M0V8 PORTA. RMCS2(R0) /SELECT PORT A 

MOV PORTA, SEIZPT ;ST0RE SEIZING PORT'S ADDRESS 

CLR RMDS(ROJ .-WRITE RMDS 

M0»/ PORTS. OPPRT ; 'OPPOSITE' PORT ADDRESS 

M0V8 PORTS, RMCS2(R0) .-SELECT PORT B 

MOV P0RT8.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TVPfCX.T 



.-SET PORT REQUEST 



CLR 



RMDS(RO) 



.-SET PORT REQUEST FOR PORT 8 



.-RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT 8. 
.-RELEASE THE DRIVE FROM PORT A 

M0V8 PORTA. RMCS2(R0) .-SELECT PORT A 

MOV PORTA, PTNBR .'MOVE PORT ADDRESS TO L0CATIW4 FOR TrPEOUT 
MOV /H3.RMCSKR0) ;JSSUE RELEASE THROUGH PORT A 

.•VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 



66t: 



67$: 



CLR 

MOV 

MOV 

ADD 

M0V8 

MOV 

MOV 

Move 

MOV 

MOV 

6EQ 

TST 

BEO 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 

M0V8 

MOV 

CLR 

MOV 

MOV 



RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

*ATA!MOL!PGM!DPR!DRy:VV.$GDDAT .-COMPARISON CONSTANT 
#RMDS,$8DADR .-REGISTER ADDRESS INCREMENT 
RO.SBDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

PORTS. RMCS2(R0) .-SELECT PORT 8 

P0RT8. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO).$TMPO .-READ STATUS REGISTER FROM PORT B 
PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCAIION FOR TYPEOUT 
KMDS(R0).$8DDAT .-DRIVE STATUS FROM PORT A 



66$ 
STMPO 
66$ 

31 

$TMPO.$BDDAT 

PORTS, PTN8R 

$GDDAT,$8DDAT 

67$ 

27 



;6R IF STATUS FROM PORT A ZERO 
;IS STATUS FROM PORT 8 ZERO 
;8R IF ZERO 

.•CHECK STATUS FROM PORT B 
.•CHANGE PORT ADDRESS FOR TYPEOUT 
.■COMPARE WITH CONSTANT 
;8R IF OK 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 
*RMDS.$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 



'H'^yfi' RM05/5/if DU POR TST 1 01AC«O VO^.OO 
SET PORT '8' REOUEST TEST 



C336P6 
035632 
03^636 
0336^.^ 
035652 
033660 
033662 
033670 
033676 
033704 
033706 
053712 
033714 
033722 
033730 
033734 
033742 
033750 
033754 
C33762 
033770 
033776 
034004 
034006 
034014 
054022 
054050 
034052 
054056 



054040 
054046 
054C54 



054062 
054066 
034074 
C54100 
054106 
05'«114 
054122 
054150 
054 1 56 
05414'* 
034152 
054160 
054166 
034174 
05420? 
054210 
054212 
C54216 
C 34220 



060057 
005057 
015757 
042757 
025757 
001414 
015757 
042757 
053757 
104016 
005157 
000240 
1 5760 
015757 
005057 
016057 
012757 
060057 
012757 
015757 
042757 
025757 
001414 
015757 
042757 
055757 
104016 
005157 
000240 



1 1 5760 
015757 
012760 



005057 
012757 
060057 
012757 
115760 
016057 
042757 
015757 
042757 
115760 
016057 
042757 
015757 
042737 
025737 
001006 
005757 
001045 
104046 



00112? 
001124 
001126 
077777 
001124 

001126 
100000 
001 1 7<, 

001250 

001226 
001226 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001 1 74 

001250 



001226 
001226 
00001 5 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001 1 70 
100100 
001226 
000012 
024001 
001 1 72 
100100 
001164 

001164 



oor64 

001164 
001164 

001 1 74 
001174 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



000010 
001240 
000000 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 72 
001 1 72 
001166 
001166 
001166 



63S: 



70$: 



4-APR-8 1 



ADD 

CLR 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

MOVO 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 



I 15 
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SEO Old 



RO.SSDADR 
SGDDAT 

$8DDAT.$TMP0 
#*CATA,$TMP0 
$GDDAT,$TMPO 
66S 

$8DDAT.$TMP4 
*ATA.$TMP4 
$TMP4,$GDDAT 
16 

C<ERR 



;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD Bf 
;MOV£ REGISTER CONTENTS TO 'STMPO* 
SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;BR IF OK 
;COPY 'RAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' ClITM GOOD DATA FOR TyPEQUT 

;SET THE REGISTER COMPARE ERftOR INDICATOR 



PORTS. RMCS2(R0) ; SELECT PORT B 

P0RT8.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$t5DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO 'STMPO' 
:SAVE SPECMED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.-COPY 'aAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO,$eDADR 
*ATA,$GDDAT 
SBDDAT.STMPO 
#*CATA.$TMPO 
$GDDAT,$TMPO 
70$ 

$8DDAT,$TMP4 
irATA,$TMP4 
$TMP4,$G0DAT 

16 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT B 



M0V8 PORT8.RMCS2(R0) .'SELECT PORT B 

MOV PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #15.RMCS1(R0) ; ISSUE RELEASE THROUGH PORT B 

;VERIFV THAT THE DRIVE IS STILL JN NEUTRAL 



CLR 
MOV 
ADD 
MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

M0V8 

MOV 

BIC 

crtp 

??? 

Bf^JE 
EfilT 



REIERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

#WDS,J80ADR .FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SeOADR ;ADD THE I/O BASE ADDRESS 

JM0L!PGH!DPR!DRY1VV.$GDDAT ; COMPARISON CONSTANT 
PORTA. RHCS2(R0) .'SELECT PORT A. 

RMDS(R0).$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
*PIPIWRL!0«,$TMP2 .-CLEAR DONT CARES 

$TMP2.$TMP0 .-COPY IT INTO •$TMPO' 

*ATA!VV.$TMPO .CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORT8.RMCS2(R0) .SELECT PORT B. 

RMDS(R0),$TMP5 -GET THE DRIVE STAiUS REGISTER FROM PORT B. 
#PIP! WRL!0M.$TMP5 .-CLEAR DONT CARES 



$TMP3.$TMP1 
*ATA!VV.$TMP1 
$TW>0.$TMP1 
72$ 
$TMPO 
74$ 
46 



COPY IT INTO '$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



J^MhBO RMC5/3/2 Ou POR TST 1 
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783 
802 
805 



SET PORT '8* REQUEST TEST 








034222 


000137 


034406 






iMP 


76$ 


03^226 


013737 


001 1 70 


0011 26 


721: 




$TMP2,$BDDAT 


034234 


013737 


001226 


001240 




ifiov 


P0RT8,PTNBR 


034242 


11 3760 


001226 


AAA/\4 A 

000010 




♦iove 


PORTS, RMCS2(R0) 


034250 


005737 


001 164 






TST 


$TMPO 


034254 


001414 








BEO 


73$ 


034256 


013737 


001224 


001240 




l*10V 


PORTA.PTNBR 


034264 


013737 


001 1 72 


001126 




10V 


$TMP3,1BDDAT 


034272 


1 1 3760 


001224 


A A A 4 A 

000010 




MOVB 


PORTA. RMCS2(R0) 


034300 


005737 


001166 






^ST 


$TMP1 


03't304 


001012 








BAJE 


74$ 


034306 


012737 


1 77777 


001254 


73$: 


MOV 


*-1 .RELERR 


054314 


0'2760 


00001 1 


AA AAA A 

000000 




NOV 


^fll.RMCSKRO) 


034322 


r*. 4 ^ ^y l\ 

012760 


00001 3 


A A AAA A 

000000 




MOV 


*13.RMCS1 (RO) 


C34330 


1 04026 








EMT 


26 


034332 


01 3757 


0011 70 


A A 4 4 ^y 

001 126 


74$: 


MOV 


$TMP2.$BDDAT 


054540 


01 5757 


001224 


A A 1 "1 y A 

00V40 




MOV 


PORTA, PTNRR 


054546 


025757 


A A 4 4 ^ / 

001 124 


A A 4 4 

001 126 




CMP 


$GDDAT,$aDDAT 




001401 








t BEQ 


75$ 


C34356 


104007 








' EMT 


7 


034560 


01 5757 


001 1 72 


AA4 4 1^ 

001126 


75$: 


MOV 


$TMP3,$8DDAT 


034566 


015757 


AA4 "^T^ 

001226 


A A 4 T / A 

001240 




MOV 


PORTB.PTNBR 


054 574 


023737 


001124 


001 126 




CMP 


$GDDAT,$8DDAT 


034402 


001401 








.SEQ 


76$ 


034404 


104007 








JEMT 


7 


034406 


000240 






76$: 


INOP 




034410 


000004 






1$: 


J SCOPE 





■Au 



03A412 
034412 
034416 
034420 
034422 
034426 
034434 
034442 
034450 



BYPASS THE REST Of THE CHECKS 
SET UP POSSIBLE BAD DATA FQR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT JN »«UTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
"BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMOS READ 

CHANGE PORT NUMBER 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NlfBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 



;LOOP ? 



***••***••**•••*••**••*«*»**•***••*****»•**••••*••••«•*••*••••• 

TEST 26 TEST RESET ATTENTION 'A' BY DRIVE CLEAR 

VERIFV THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
SET. 

t. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

C. ISSUE A DRIVE CLEAR COMMAND. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT TS£ ATTENTION 
BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
•8' IS STILL SET. 

****••••***••••***•**•*•••*•••*********•****••*••••••••*•*••••• 

TST26: 



005737 


001300 






TST 


KY8CTL 


•PERFORMING ONLY SINGLE TEST ? 


001406 








BEO 


2S 


;BR IF NOT 


1JQ0002 


003074 






BPL 


IS 


;BR IF JUST ENTERED TEST 


000137 






JMP ^ 


EXEC 


•RETURN & GET NEXT TEST NUMBER 


012737 


1 77777 


001300 


1$: 


MOV 


#-1 ,KYBCTL 


•SET SINGLE TEST INDICATOR 


012737 


034450 


001106 


2$: 


MOV 


*TEST26,$LPADR 


•SETUP SCOPE LOOP ADDRESS 


012737 


034450 


0011 TO 




MOV 


*TEST26.$LPERR 


; SETUP ERROR LOOP ADDRESS 



TEST26: 



« 



f-MRBO RMOS/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 
6 TEST RESET ATTENTION 'A* BY DRIVE CLEAR 



804 
857 



054450 


112737 


000026 


001102 




Move 


054456 


012706 


001 100 






MOV 


054462 


012737 


000012 


00r76 




MOV 










;SET AT TENT IC 


054470 


113760 


001224 


C>00010 




nUVo 


054476 


005760 


000012 




66$: 


TST 


054502 


001775 








BEQ 


054504 


012760 


^77777 


000014 




MOV 


054512 


005060 


000014 






CLR 


054516 


013760 


001226 


000010 




MOV 


054524 


005760 


000012 




64$: 


TST 


054550 


001775 








BEQ 




0 l<:^6U 


1 7777"? 
\ f f f f 1 


A A Am / 
UUOU 1 4 




MOV 


054540 


005C60 


000014 






CLR 


054544 




AAI 


AAAA1 A 




M0V8 


054552 


005760 


000012 




65$: 


'ST 


034556 


001 775 








BEQ 










.-CONFIRM THAI 


034560 


113760 


001224 


000010 






054566 


013737 


001224 


001240 




MOV 


054 5 74 


005057 


001250 








054600 


016037 


000012 


001126 




MOV 


054606 


012737 


000012 


001122 




MOV 


054614 


060037 


001122 






ADD 


054620 


012737 


100000 


001124 




MOV 


054626 


013757 


001126 


001164 




MOV 


054654 


0^2737 


077777 


001164 




BIC 


054642 


023737 


001124 


001164 




CMP 


054650 


001414 








BEO 


054652 


013737 


001126 


001 1 74 




MOV 


054660 


042737 


100000 


001 1 74 




BIC 


034666 


053737 


001 1 74 


001124 




BIS 


034674 


104010 








EMT 


054676 


005137 


001250 






COM 


054702 


000240 






67$: 


NOP 


034704 


005737 


001250 






TST 


034710 


001402 








BEO 


054712 


000137 


036104 






JMP 


034716 


113760 


001226 


000010 




M0V8 


034724 


013737 


001226 


001240 




MOV 


034732 


005037 


001250 






CLR 


034736 


016037 


000012 


001126 




MOV 


034744 


012737 


000012 


001122 




MOV 


054752 


060037 


001122 






ADD 


054756 


012737 


100000 


001124 




MOV 


054764 


013737 


001126 


001164 




MOV 


034772 


042737 


077777 


001164 




BIC 


035000 


023737 


001124 


001164 




CMP 


035006 


001414 








BEQ 


035010 


013737 


001126 


001174 




MOV 


035016 


042737 


100000 


001 1 74 




BJC 


035024 


053737 


001 1 74 


001124 




PIS 



K 13 
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*26.$TSTNM 

#STACK.SP 

#10.,$TIMES 



MOVE #26 rO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



BITS FOR BOTH PORTS 



PORTA, RMCS2(R0) 

RMDS(RO) 

66$ 

^f'^ .RMERKRO) 

RMERKRO) 

P0RT8.RMCS2(R0) 

RMDS(RO) 

64$ 

#-1 ,RMER1 (RO) 

RMER1 (RO) 

P0RTA,RMCS2(R0) 

RMDS(RO) 

65$ 



SELECT PORT 64$ 
MAKE SURE DRIVE 



AVAII ABLE 



FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
8R IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT "64$" A(5AIN 
WAIT FOR DRIVE TO flMEOUf 
.-iBR IF DRIVE HASN'T TIMED OUT 



307H ATTENTION BITS ARE SET 
PORTA,RMCS2(R0> .'SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 
*RMDS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO 'STMPC 
.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
.BR IF OK 
.COPY 'BAD DATA' 
.■CLEAR THE MASKED BITS 
.•'OR' WITH GOOD DATA FOR TYPEOUT 



RO,$BDADR 
«ATA.$6DDAT 
$8DDAT.$TMP0 
#*CATA,$TMPO 
$GDDAT.$TMPO 
67$ 

$8DDAT.$TMP4 
#ATA.$TMP4 
$TMP4,$GDDAT 

10 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .WAS ATTN BIT FOR PORT A SET ? 

.♦6 ;8R IF IT WAS » 

1$ ;8YPASS REST OF TEST IF NOT ♦ 

PORTS, RMCS2(R0) .SELECT PORT B • 
P0RT8,PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPECXiT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT .-GET CONTENTS OF RMDS 
#RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$TMPO' 
.•SAVE SP&CIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
#ArA.$G0DAT 
$8DDAT.$TMP0 
#*CATA,$TMPO 
$6DDAT,$TMP0 
69$ 

$8DDAT.$TMP4 

#ATA,$TMP4 

$TMP4.$GDDAT 



L 13 

f/RMRBO RM05/3/2 OU POR TST 1 ISAC«0 V04.00 4-APR-81 18:06:if5 PAGE 10-64 
T?fc TEST RESET ATTENTION 'A' BY DRIVE CLEAR 



SEO 01(K 



05S052 
055054 
055040 
055OS2 
035046 
035050 



035054 
055062 
055070 
055074 
035102 
035110 
055116 
035124 
035130 
035136 
035H2 
035150 
035152 
055154 
055160 
055160 
055166 
055174 
055202 
055210 
055216 
055224 
055230 
035236 
035244 
035252 
035254 
0^5256 



1040'0 
005137 
000240 
005737 
00U02 
000137 



1 1 3760 
013757 
005060 
1 1 5760 
015757 
015737 
016037 
010057 
062757 
005037 
023737 
001403 
104004 
0001 37 

115760 
015737 
016057 
042737 
012737 
015737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



001250 
001250 
056104 



001224 
001224 
00001 2 
C01226 
001226 
001226 
000012 
001122 
00001 2 
001124 
001 124 



036104 

001224 
001224 
000012 
020001 
011700 
001124 
001166 
001126 
001166 
001124 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

001126 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



035260 012760 000011 000000 



035266 
035272 
035300 
035306 
035312 
035316 
035324 
035332 
035340 
035342 
035550 
055356 
055564 



005037 
016057 
012757 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104047 



001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 



001126 
001122 



001164 
001164 
001164 

001174 
001 1 74 
001124 



69t; 



EMT 
COM 
NOP 
TST 
BFQ 



10 

CKERR 

CKERR 

.♦6 

IS 



;SET THE REGISTER COMPARE ERROR INDICATOR 

.-WAS ATTN BIT fOR PORT B SET ? 
* BR IF I ^ WAS 

•BYPASS REST OF TEST IF NOT 



.•SEIZE THE DRIVE THROUGH PORT A 



71$: 



72$: 



M0V8 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CIR 

CMP 

BEQ 

EMT 

JMP 

MOVB 

MOV 

MOV 

6IC 

MOV 

MOV 

COM 

MOV 

BIG 

CMP 

BEO 

EMT 

NOP 



P0,VTA,RMCS2(»<0) .-SELECT PORT A 
PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMDS 

PORTB.RMCS2(R0) .-SELECT PORT B 

P0RT8.PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 



PORTB.OPPRT 



; 'OPPOSITE' PORT ADDRESS 



RMDS(R0).$8DDAT ;SEE IF DRIVE SEIZED BY PORT A 



R0.S6DADR 
#RMDS,$BDADR 
SGDDAT 

$GDDAT.$BDDAT 
71$ 

1$ 



;RH/RM BASE ADDRESS 
.-GENERATE BAD REGISTER ADDRESS 
.-REGISTER SHOULD BE ZERO 
.-IS THE REGISTER ZERO 
;8R IF IT IS 

.-BYPASS REST Of THE SlBTEST 



PORTA.RMCS2(R0) .'SELECT PORT A 
PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATIO^J FOR TYPEOUT 
RMDS(R0).S8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
*OMIPIP.$BDDAT .-CLEAR DONT CARE BITS 

*M0L1PGM!DPR!DRY!VV,$6DDAT .-EXPECTED STATUS 
$6u>DAT,$TMPl .-USE GOOD DATA AS A MASK 



STMPI 
$8DDAT,$TMP0 
$TMP1,$TMP0 
$GDDAT,$TMPO 
72$ 
5 ' 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
BR IF THEY ARE 



.ISSUE DRIVE CLEAR COMMAND TO PORT A 



MOV 



*11.RMCS1(R0) ;D0 A DRIVE CLEAR COMMAND 



[VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 



CLR CKERR 

MOV Rf1DS{R0),$8DDAT 

MOV <rRMDS.$8DADR ; 

ADD RO,$BDADR 

CLR $GDDAT 

MOV $8DDAT,$TMP0 

BIG #*CATA,$TMPO ; 

CMP * $GDDAT.$TMPO 

BEQ 73$ 

MOV $8DDAT,$TMP4 

BIG *ATA,$TMP4 

BIS $TMP4.$GDDA^ 

EMT 4/ 



.-CLEAR THE 'CHECK ERROR' INDICATOR 
.-GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROFt MESSAGE 

;ADD RH/RM BASE ADDRESS 

.•WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 

.-COMPARE THE BITS 

;BR IF OK 

.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 
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rZWRBO RM05/3/2 OU POR TST 1 MACRO V04.00 A-APR-8I 18:06:25 PAGE 10-65 
T?6 TEST RESET ATTENTION 'A' BY DRIVE CLEAR 



SEQ 0105 



05^566 


Arte 1 T7 


AA1 OCA 




77* . 

r 5» : 


Lun 




OOO^AO 






kino 










.RELEASE 


THE 


03537A 


1 1 3760 


001224 


000010 




M0V8 


035AO? 


An 

0 1 3r S/' 


AA1 "5 5/ 

001 cdf* 


AAI 5/ A 

00 1 c'»0 




MAI/ 

nuv 




A1 17^A 


00001 5 


AAAAAA 
000000 




MAV/ 

PIUV 










; VtKlr T 


TUA T 




AACA77 


AA 1 5C/ 
00 1 C3*i 






ri D 


ATC/ "JO 


A1 •3717 


AAAA1 5 

0000 1 


AAI 155 
00 1 1 CC 




MAW 


05!)*»5U 




AA1 1 55 
001 1 






AUU 




A1 D777 


A1 1 7AA 
0 1 1 f 00 


AAI 1 5A 
00 1 1 c*» 




MAW 

nuv 


A1C/ / O 


1 1 77AA 
M3/^OU 


AA1 55/ 


AAAA1 A 
0000 1 0 




MAWQ 

novo 




A1 AA77 


AAAA1 5 
00001 C 


AAI 1 7A 

001 1 f 0 




MAW 

nuv 




Ay ■5777 


A5y AA1 

OcsOO 1 


AAI 1 7A 

OU 1 1 f\J 








A1 7777 

01 5f Jf 


AAI 1 7 A 

001 1 1\) 


AA 1 1 AA 
00 1 1 0*» 




MAW 

rlUV 




A/ ■37t7 


1AA1 AA 
1 OO 1 00 


AA1 1 AA 
UO I I Oh 






n7CCAA 


1 1 77JIA 
1 1 Jf DO 


AAI 55A 

00 1 ceo 


AAAAI A 
UUUU 1 U 




MAUR 




A1 AA77 

0 io03r 


AAAA1 5 
0000 1 C 


AA1 175 

00 I \ f C 




MAW 

nuv 




Ay 5777 


A5y AAI 

0<:*iOO 1 


AAI 1 75 
UO life 




Oi L 




A1 7777 


AAI 1 75 
OO life 


AAI 1 AA 
UO 1 1 OO 




nuv 


Aicc7n 


Ay 0777 
\JHCf Jf 


1 AAI AA 
1 OO 1 OO 


AA 1 1 AA 
UU 1 1 OO 






A7C;7A 


A07777 
\JCJf Jf 


AA1 1 AA 

UO I 1 o<* 


AAI 1 AA 
UU 1 1 OO 






ATCC/ / 


AA1 AAA 
00 lOOO 








BMC 




AA^777 
mjjf Jf 


AA1 1 AA 
UU 1 lO** 






TQT 




AA1 AA C 
00 1 Oh J 








DMF 
ONC 




1 f\/.r\LA 
1 UmUhO 








FMT 




AAA1 77 
OOU iJf 


A7^7CA 






IMD 

JUT 




l\1 7777 

O 1 Jf Jf 


(\n^ 1 7A 


Ani 1 5A 
UU 1 1 cO 


fJ9' 


nuv 


A7CC7A 


A1 7777 


AAI 55A 
OOlccO 


AAI 5AA 
UU 1 c*iU 




nuv 


ATCC7A 


1 1 77AA 


AAI 55A 
OO iccO 


AAAA1 A 
UUUU 1 U 




MA wo 

nuvo 


ATCA/V. 


AAC777 
OOjy Jf 


nni 1 AA 
OU 1 lp*« 






1 d 1 


UjjO IU 


OO ihIh 








DCU 




A1 7777 
0 1 Jf Jf 


AAI 55A 
00 1 ccif 


AAI 5AA 
UU 1 chU 




MAW 

nuv 




A1 7777 

0 1 jy jy 


AA1 1 75 
OO lire 


AAI 1 PA 
UU 1 1 CO 




MAW 

nuv 




117 7AA 
1 1 OO 


AAI 55A 
OOl ttH 


AAAA1 A 




PWVO 




AA^777 
OOjy Jf 


AAI 1 AA 
UU 1 lOO 






TCT 




AA1 A1 "J 
00 10 1 d 








OfVC 




A1 5777 
O let Jf 


1 77777 

\ 1 1 f f f 


AAI 5CA 
UU 1 c jh 


7AC< 


MAW 

nuv 




A1 57AA 
ViCf OO 


AAAA1 1 
OOOO 1 1 


AAAAAA 




MAU 

nuv 




A1 57AA 
0 1 Cf OO 


AAAA1 7 
OOUU 1 J 


AAAAAA 




MAU 

nuv 




1 AAA5A 
1 0*1 OcO 








cni 


AT*: AAA 


A1 7777 

oi jyjy 


Am 1 7A 
OO 1 1 f U 


AA1 1 PA 
UU 1 1 CO 


f 19 • 


MAW 

nuv 


A1CA7Z 


m 7777 

O 1 Jf jf 


nni 35A 
OU 1 ec H 


AAI PAA 
UU 1 £*tU 




MAW 

nuv 


A7C7A5 


f\/ 5777 

KjHCI Jl 


1 AAAAA 


AAI 1 PA 
UU 1 1 cO 




PIT 
Di V 


A7^7in 
\JjJt 1 U 


AP7777 

KJCJf Jf 


AA 1 1 PA 
OO 1 1 CH 


AA1 1 PA 
UU 1 1 CO 




Lnr 


A7^71 A 


AA1 

OO 1 MV 1 










A7^75A 


1 AZ.AA7 








CMT 

cm 


\JJJf cc 


013737 

\J 1 Jl Jl 


00117? 

\J\J \ \ t C 


001 1 26 

yjv 1 lev/ 


78% • 


MOV 


035730 


013737 


001226 


001240 




MOV 


035736 




100000 


001126 




BIC 


03574A 


023737 


001124 


001126 




CMP 


035752 


00U01 








BEQ 


03:754 


104007 








EMT 



CKERR 



;SET THE REGISiER COMPARE ERROR IWICATOR 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT A 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

<fRMDS.$BDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SSDADR .-ADD THE I/O BASE ADDRESS 

#MOL.PGM!DPR!DRy!VV.$GDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) ; SELECT PORT A. 

RMDS(R0),$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0M,$TMP2 ; CLEAR DONT CARES 

$TMP2.$TMP0 ;COPY IT INTO 'STMPO* 

#ATAIVV.$TMP0 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTe,RMCS2(R0) .'SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP! URL !0M,$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 
*ATA.'VV.$TMP1 
$TMP0.$TMP1 
75$ 
$TMPO 
77$ 
46 
79$ 

$TMP2.$8DDAT 

PORTS. PTNBR 

P0RT8.RMCS2(R0) 

$TMP0 

76$ 

PORTA. PTNBR 

$TMP3.$8DDAT 

P0RTA.RHCS2(R0) 

$TMP1 

77$ 

#-1 .RELERR 
*11.RMCS1(R0) 
#13.RMCS1(R0) 
26 

$TMP2.$B00AT 

PORTA.PTNBR 

/TATA.feDDAT 

$GDDAT,$80DAT 

78$ 

7 

$TMP3,$BDDAT 

PORTS, PTNBR 

#ATA.$BDDAT 

$6DDAT.$8DDAT 

79$ 

7 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM B'lTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME. ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE CUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE* THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B, 
BR IF OK 



N 13 

CZRMR80 RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 18:06:25 PAGE 10-66 
T26 TEST RESET ATTENTION 'A' BY DRIVE CLEAR 



SEQ 0106 



035756 000240 



838 
856 
857 



055760 
035766 
035774 
036000 
036006 
0360U 
036020 
036026 
03603A 
036042 
036050 
036052 
056060 
036066 
036074 
C36076 
036102 
036104 



858 
859 



1 1 3760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104050 
005137 
000240 
000004 



001226 
001226 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001 250 



000010 
001240 

001126 
001122 

001124 
001164 
003164 
001164 

001174 
001174 
001124 



036106 








036106 


005737 


001300 




036112 


001406 






036114 


100002 






036116 


000137 


003074 




036122 


012737 


1 77777 


001300 


036130 


012737 


036144 


001106 


036136 


012737 


036144 


oomo 


036144 






001102 


036144 


112737 


000027 


036152 


012706 


001100 




036156 


012737 


000012 


001176 



79$: NOP 

.•CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B) 



80$: 
1$: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

SCOPE 



PORT8,RMCS?(R0) .-SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0>.$8DDAT ;GET CONTENTS OF RMDS 
#RMDS,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO •$TMP0' 
;SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR 



RO.$BDADR 
#ATA.$GDDAT 
$8DDAT.$TMP0 
#*CATA.$TMPO 
$GDDAT.$TMPO 
80$ 

$8DDAT,$TMP4 
*ATA,$TMP4 
$TMP4,$GDDAT 
50 

CKERR 



TfPEOUT 

.-SET THE REGISTER COMPARE ERROR INDICATOR 
.•LOOP ? 



-«*****»********************* *********************************** 

•TEST 27 TEST RESET ATTENTION 'B' BY DRIVE CLEAR 

•VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 



SEIZING PORT, 

SET EACH PORT'S ATTENTION BIT. 
SET. 



VERIFY THAT BOTH ATTENTION BITS 



B. 

C. 
D. 



SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 
ISSUE A DRIVE CLEAR COMMAND. 

RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE ATTENTION 
BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
'A' IS STILL SET. 



*»»•*****•***♦*»***♦»■»*****•**•*»***»»*************•»********•• 

tST27: 



1$: 
2$: 

TEST27: 



TST KY8CTL 

BEO 2$ 

BPL 1$ 

JMP EXEC 

MOV #-1,KYBCTL 

MOV *TEST27.$LPADR 

MOV 4rTEST27.$LPERR 

M0V8 #27. $TSTNM 

'MOV *STACK,SP 

MOV *10..$TIMES 



PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN & GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *27 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



;SET ATTENTION BITS FOR BOTH PORTS 



rZRMRBC RM05'3/2 DU POR TST 1 I»1ACR0 V04.00 A-APR 
^2^ TEST RESET ATTENTION 'B* BY DRIVE CLEAR 



056164 113760 001224 

056172 005760 000012 

056176 001775 

056200 012760 177777 

036206 005060 OOOOK 

056212 015760 001226 

056220 005760 000012 

056224 001775 

056226 012760 -[77177 

056254 005060 000014 

C56240 115760 001224 

056246 005760 000012 

056252 001775 



056254 113760 001226 

056262 015757 001226 

036270 005037 001250 

036274 016037 000012 

036302 012737 000012 

056510 060037 001122 

056514 012757 100000 

056522 015757 001126 

056550 042757 ^77777 

056536 023757 001124 

056544 001414 

056346 015757 001126 

056554 042757 100000 

056362 053737 001174 

056570 104010 

056572 005157 001250 

056376 000240 

036400 005737 001250 

036404 001402 

056406 000137 037600 

056412 113760 001224 

036420 013737 001224 

036426 005057 001250 

056452 016057 000012 

C56440 012757 000012 

056446 060057 001122 

056452 012737 100000 

056460 013737 001126 

036466 042737 Q77777 

0lkU7i. 025737 001124 

036502 001414 

036504 013737 001126 

036512 042737 100000 

036520 053737 001174 

036526 104010 

056530 005137 001250 

056554 000240 

056556 005757 001250 

036542 0U1402 

C36544 000157 057600 



OOuOlO 




flOVB 




66S: 


'ST 






BEQ 


000014 

WW • ~ 




nov 






CLR 


000010 

WW 1 V 




WOV 




64S: 


TST 






BEG 


000014 




MOV 






CLR 


0000 1 0 




M0V8 




65S: 


TST 






BEO 




.-CONFIRM THA 


000010 




MOVa 


001 240 










CLR 


001126 




njy 


001122 




nJv 






ADD 


001124 




HUV 


001164 




nuv 


001164 




Di C 


001164 




in* 






DC A 
DCU 


001174 




■Amy 


001 1 74 




Di V. 


001124 




ore 






CMT 






LUn 




or 9: 


kino 






TCT 












JMP 


000010 




nove 


001240 




MOV 






CLR 


001126 




MOV 


001122 




MOV 






ADD 


001124 




MOV 


001164 




MOV 


001164 




BK 


001164 




CMP 






BEO 


001 1 74 




MOV 


001 1 74 




SIC 


001124 




BIS 






EMT 






COM 




69$: 


NOP 






TST 






BEQ 






JMP 



B 14 
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^CO 0107 



P0R^A,RMLS2(R0) 

RMDS(RO) 

66$ 

/r-l,RMER1(R0) 

RMERKRO) 

PORTS, RMCS2(R0) 

RMDS(RO) 

64$ 

RMERKRO) 
RMER1 (RO) 
PORTA, RMCS2(R0) 
RMDS(RO) 
65$ 



.•SELECT PORT 64$ 
.-MAKE SURE DRWE 



AVAILABLE 



FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT ••64$" AGAIN 
WAIT FOR DRIVE TO TIMECJT 
BR IF DRIVE HASN'T Tr«ED OUT 



BOTH ATTENTION BITS ARE SET 

PORTS. RMCS2(R0) .SElECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR" INDICATOR 

RMDS(R0),$6DDAT ;6ET CONTENTS OF RMDS 
«RMDS,S8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;^DD RH/RM BASE ADDRESS 
:WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO 'fTMPO* 
.SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.•COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO,$SDADR 
»ATA,$GDDAT 
$8DDAT,$TMP0 
#*CATA.$TMPO 
$6DDAT,$TMP0 
67$ 

$8DDAT,$TMP4 
#ATA,$TMP4 
$TMP4,$G0DAT 

10 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR > ;WAS ATTN BIT FOR PORT B SET ? 

.♦6 ;8R IF IT WAS 

1$ .-BYPASS REST OF TEST IF NOT 

PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;«OVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

R«DS(R0),$80DAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ;F0RM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
.•SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;BR IF OK 
.COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.S6DADR 
/rATA.$GODAT 
$8DDAT,$TMP0 
/r''CATA,$TMPO 
$GDDAT,$TMPO 
69$ 

$8DDAT,$TMP4 
/rATA.$TMP4 
$TMP4,fGDDAT 

10 
CKERR 



CKERR 
1$ 



.SET THE REGISTER COMPARE ERROR IN^'KATOR 

;WAS ATTN BIT FOR PORT A SET ? 
• BR IF IT WAS 

■BYPASS REST OF TEST IF NOT 



/•-JMRb^ RK)5/3/2 DU POK TST 1 nACftO V04 
TEST RFSET ATTENTION '8' BY DRIVE 



.00 M-APR-81 
CLEAR 



18:06:^5 



C U 
PAGF 10-68 



SEO 0106 



.-SEIZE THE DRIVE THROUGH PORT B 



056550 
036556 
036564 
036570 
036576 
036604 
0366'' 2 
036620 
036624 
036632 
036656 
056644 
036646 
056650 
036654 
036654 
C36662 
036670 
036676 
036704 
036712 
036720 
036724 
036732 
036740 
036746 
036750 
036752 



1 1 3760 
013757 
005060 
113760 
013757 
015757 
016037 
010037 
062737 
005037 
023757 
001405 
104004 
000157 

115760 
015757 
016057 
042757 
012757 
015757 
005157 
013757 
043737 
025737 
001401 
104005 
000240 



001226 
001226 
000012 
001224 
001224 
001224 
C00012 
001122 
000012 
001124 
001124 



057600 

001226 
001 226 
000012 
020001 
011700 
001124 
001166 
0C1126 
001166 
001124 



000010 
001242 

000010 
001240 
001244 
001126 

001122 

0Cr26 



000010 
001240 
001126 
001126 
001124 
001166 

001164 
001164 
001164 



056754 012760 000011 OOCOOO 



71$: 



72$: 



Move 

MOV 

CLR 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CIP 

CMP 

BEO 

EMT 

JMP 

MOVB 

MOV 

MOV 

BIC 

MOV 

MOV 

row 

MOV 
BIC 
CMP 
BEQ 
EMT 
NOP 



PORTS. RMCS2(R0) ;SFLECT PORT B i 
PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .-WRITE RMOS 

PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TrPEOUT 



PORTA,OPPRT 
RMDS(R0).$8DDAT 
R0,$6DADR 
#RMDS.$6DADR 
$GDDAT 

$GDDAT.$6DDAT 

71$ 

4 

1$ 



'OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF ,T IS 

BYPASS REST OF THE SUBTEST 



PORT8.RMCS2(R0) .SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPtOUT 
RMDS(R0),$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M! PI P. $BDDAr .-CLEAR DONT CARE BITS 

*MOL!PGM!DPR!DRY;vv.$GDDAT .expected STATUS 
$GDDAT.$TMP1 ;USE GOOD DATA AS A MASK 

; COMPLEMENT THE EXPECTED STATUS 
;SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
;ARE THE EXPECTED STATUS BITS SET ? 
;8R IF THEY ARE 



$TW>1 

$8DDAT.$TMP0 
$TMP1.$TMP0 
$6DDAT.$TMP0 
72$ 

5 



.ISSUE DRIVE 
MOV 



CLEAR COMMAND TO PORT B 

#11 .RMCSKRO) ;D0 A DRIVE CLEAR COMMAND 



; VERIFY THAT ATTENTION BIT Fijk PORT 8 CLEARED 



056762 


005037 


001250 




CLR 


CKERR 


.•CLEAR THE 'CHECK ERROR" INDICATOR 


056766 


016057 


000012 


001126 


MOV 


RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 


036774 


012737 


000012 


001122 


MOV 


/rRnDS,$BDADR 


;FORn REGISTER ADDRESS OF ERROR MESSAGE 


C37002 


060037 


001122 




ADD 


R0.$8DADR 


.ADD RH/m BASE ADDPESS 


037006 


005037 


001124 




CLR 


$GDDAT 


.WHAT REGISTER SHOULD BE 


037012 


013757 


001126 


001164 


MOV 


$8DDAT.$TMP0 


.•MOVE REGISTER CONTENTS TO •$TMPO' 


057020 


042/57 


0/7777 


001164 


BIC 


#*CATA,$TMPO 


.SAVE SPECIFIED BITS 


057026 


025757 


001124 


001164 


CMP 


$GDDAT,$TMPO 


.-COMPARE THE BITS 


057034 


001414 






BEQ 


75$ 


;8R IF OK 

.COPY 'BAD DATA' 


037036 


015737 


001126 


001 1 74 


MOV 


$8DDAT.$TMP4 


037044 


042737 


100000 


001 1 74 


BIC 


#ATA.$TMP4 


.-CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPE OUT 


057052 


055757 


001 1 74 


001124 


BIS 


$TMP<.$GDDAT 


057060 


104047 






EMT 


47 




037062 


005137 


001250 




COM 


CXERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


037066 


000240 




75$: 


NOP 







037070 113760 001226 000010 



.•RELEASE THE 
MOVB 



DRIVE FROM PORT B . 

PORTS. RMCS2(R0) .-SELECT PORT B 



^"iWBO RM05/5/2 DU P0« TSf 1 flACRO V04.00 A-APR-8 
^ TEST RESET ATTENTION 'B' BY DRIVE CLEAR 



037076 


013737 


001226 


001 24C 




nov 


0571 OA 


012760 


000013 


000000 




MOV 










.•VERIFY 


THAT 


03/11? 


005037 


001254 






CLR 


057116 


012737 


000012 


001122 




nov 


057124 


060037 


001122 






ADD 


037150 


012737 


011700 


001124 




MOV 


037156 


1 1 3760 


001224 


000010 




Move 


057U4 


016037 


000012 


001 1 70 




MOV 


057152 


042737 


024001 


001 1 70 




BIC 


037160 


013737 


001 1 70 


001164 




MOV 


037166 


042737 


100100 


001164 




BIC 


037174 


1 1 5760 


001226 


000O10 




M0V8 


037202 


016057 


000012 


001 1 72 




MOV 


037210 


042737 


024001 


001 1 72 




BIC 


C37216 


013737 


001 1 72 


001166 




MOV 


037224 


042737 


100100 


001166 




BIC 


C37232 


023737 


OCT 164 


001166 




CMP 


037240 


001006 








BNE 


037242 


005737 


001164 


A 




TST 


037246 


001045 




K 




BNE 


037250 


104046 








EMT 


037252 


000137 


037452 






JMP 


037256 


013737 


001170 


001 126 


75$: 


MOV 


057264 


013757 


001226 


001240 




MOV 


037272 


113760 


001226 


000010 




M0V8 


057300 


005737 


001164 






TST 


037504 


001414 








BEQ 


057306 


013737 


001224 


001240 




MOV 


057514 


013737 


001172 


001126 




MOV 


057522 


113760 


001224 


000010 




M0V8 


037330 


005737 


001166 






TST 


037334 


001012 








BNE 


037336 


012757 


y77777 


001254 


76$: 


MOV 


037344 


012760 


000011 


000000 




MOV 


037352 


012760 


000013 


000000 




MOV 


037360 


104026 








EMT 


037562 


013757 


001170 


001126 


77%: 


MOV 


037370 


013757 


001224 


001240 




MOV 


C37576 


042737 


100000 


001126 




BIC 


037404 


023737 


001124 


001126 




CMP 


037412 


001401 








BEQ 


037414 


104007 








EMT 


037416 


015757 


001172 


001126 


78$: 


MOV 


037424 


013737 


001226 


001240 




MOV 




A/ '3777 


1 OUUUU 






o I r 
Qi C 


037440 


023737 


001124 


001 1 26 




CMP 




001 401 








Bcu 


037450 


104007 








EMT 


037452 


G00240 






79$: 


NOP 










.•CHECK 


ATTEN' 


057454 


113760 


001224 


000010 




M0V8 


037462 


015737 


001224 


001240 




MOV 



D 14 
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P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOuT 
4n3.RMCS1(R0) .ISSUE RELEASF THROUGH PORT B 

HE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

«RMDS,$BDADR .-FORM THE ADDRESS OF RMDS FOR TYPE OUT 
RO.$eDADR .ADD THE I/O BASE ADDRESS 

«MCL!PGM!DPR!DRV.'VV.$GDDAT .-COMPARISON CONSTANT 
P0.?TA.RMCS2(R"» .-SELECT PORT A. 

RMDS(RO),$TMPi ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#P]P!URL!0M.$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO •$TMPO' 

#ATA!VV,$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB,RMCS2(R0) ; SELECT PORT B. 

R«DS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP1URL!0M.$TMP3 ; CLEAR DONT CARES 



$TMP3.$TMP1 

#ata:vv.$tmpi 

$TMP0,$TMP1 

75$ 

$TMPO 

77$ 

46 

79$ 

$TMP2.$BDDAT 
PORTS. PTNBR 
PORTS. RMCS2(R0) 
$TMP0 
76$ 

PORTA. PTNBR 

$TMP3.$8DDAT 

PORTA.RMCS2(R0) 

$TMP1 

77$ 

*-l .RELERR 

*11.RMCS1<R0) 

#13.RMCS1<R0) 

26 

$TMP2.$BDDAT 

PORTA. PTNBR 

#ATA,$BDDAT 

$GDDAT,$BDDAT 

78$ 

7 

$TMP3.$80DAT 

PORTS, PTNBR 

#ATA.$BDDAT 

$GDDAT.$BDDAT 

79$ 

7 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM 'HE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
SR IF NOT 

SyPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A 

SEE IF STATUS'eO ZERO FROM PORT B. 
SR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B, 
SR IF OK 



ON BIT ON THE OPPOSITE PORT (PORT A) 
PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;«OVE PORT ADDRESS TO LOCATION FOR TypfouT 



860 
879 
880 



881 
9K 



E 14 
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TEST REStT ATTENTION '8' Br DRIVE CLEAR 



037470 


005037 


001250 






CLR 


037474 


016037 


000012 


001126 




MOV 


057502 


012737 


000012 


001122 




MOV 


037510 


060037 


001122 






ADD 


037514 


012737 


100000 


001124 




MOV 


03752? 


013737 


001126 


001164 




MOV 


037530 


042737 


077777 


001164 




BIC 


037536 


023737 


001124 


001164 




CMP 


037544 


001414 








BEQ 


037546 


013737 


001126 


001174 




MOV 


037554 


042737 


100000 


001174 




BIC 


037562 


053737 


001174 


001124 




BIS 












EMT 

tn 1 


U37572 


005137 


001250 






COM 


037576 


000240 






80$: 


NOP 










It* 












.••TEST 


30 



037660 
037666 
037672 
037674 



CKERR 

RMDS(R0).18DDA 
#RMDS.$8DADR 
R0,$8DA0R 
#ATA,$GDDAT 
$8DDAT.STMP0 
#*CATA,$TMPO 
SGDDAT,$TMPO 
80S 

$8DDAT.$TMP4 
#ATA,STMP4 
$TMP4,$&DDAT 

50 

CKERR 



.•CLEAR THE 'CHECK ERROR' IMDICATOR 
T ;GET CONTENTS Of RMDS 
.•FORM REGISTER ADDRESS OF ERROR MESSAGE 

.ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 

.MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
;COPy 'BAD DATA' 
.•CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR TYPEOUT 

.SET THE REGISTER COMPARE ERROR INDICATOR 

.-LOOP ? 



RESET ATTENTION 'A' BY GO TEST 

VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 

B. SEI2E THE DRIVE THROUGH PORT 'A* BY WRITING O'S 
INTO RMDS. 



C. 
D. 



ISSUE A NOP COMMAND. 



RELEASE THE FRIVE 
ATTENTION BIT FOR 
ATTENTION BIT FOR 



THROUGH PORT 'A'. VERIFY THAT 
PORT 'A' IS RESET. AND THE 
PORT '8' IS STIL SET. 



THE 



03760? 








TST30: 








037602 


005737 


001 300 






TST 


KVeCTL 


.-PERFORMING ONLY SINGLE TEST ? 


037606 


301406 








BEQ 


2S 


;BR IF NOT 


037610 


100002 








BPL 


1$ 


;8R If JUST ENTERED TESf 


037612 


000137 


003074 






JMP 


EXEC 


.•RETURN ft GET NEXT TEST NUMBER 


037616 


012737 


177777 


001 300 


1$: 


MOV 


♦-l.KYBCTL 


;SET SINGLE TEST INDICATOR 


037624 


012737 


037640 


001106 


2$: 


MOV 


#TEST30.$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


037632 


012737 


037640 


001110 




MOV 


#TEST30.$LPERR 


.SETUP ERROR LOOP ADDRESS 


03764C 








TEST30: 








037640 


112737 


000030 


001102 




Move 


#30.$TSTNM 


.•MOVE #30 TO TEST NUMBER 


037646 


012706 


001100 






MOV 


<fSTACK,SP 


.-LOAD THE STACK POINTER 


037652 


012737 


000012 


001176 




MOV 


#10.,$TIMES 


;;D0 10. ITERATIONS 



113760 
005760 
001775 
012760 



001224 
000012 

177777 



000010 
000014 



;SET ATTENTION BITS FOR BOTH PORTS 
66$: 



M0V8 

TST 
BEQ 
MOV 



PORTA, RMCS21R0) .'SELECT PORT 64$ 

RMDS(RO) ;MAKE SURE DRIVE AVAILABLE 
66$ 

#-1,RMER1(R0) .-FORCE ERRORS 



CJRMRBO DU POR TST 1 MAC«0 vOA.OO A-APR-8 

'5G RFSET ATTENTION 'A' Br GO TEST 



\Jj'f \JC 


nnsfVkO 


noon 14 

vvvv 1 








XJjff vo 


w 1 J r DV 


nni 


000010 

WW WW 1 w 




nw w 


0^771^ 

\J jr f 1*9 


00^760 


00001 P 

V/vWv 1 C 




WM 9 • 


TST 


037720 


001775 








BEO 


017722 


012760 


}77777 


000014 




MOV 


C37750 


005060 


OOOOH 






CLR 


03775A 


1 1 3760 


001224 


000010 




M0V8 


r)^77<.? 


0057#\0 


00001 P 

WWWw 1 c 




65i: 


TST 


f)3774A 

v Jr f ••W 


001775 








BEO 










.CONFIRM THAI 




1 1 3760 


0012r^4 


000010 

*y v/w ' V 




M0V8 


0377S6 


013737 


001224 

W ICC"' 


001240 




MOV 




005037 

\J\J J\J J f 


001250 






CLR 


037770 


016037 


00001 2 


001 126 

W 1 1 C w 




MOV 


037776 


012737 


00001 2 

WW 1 c 


001 122 

W ' I cc 




MOV 


040004 


060037 


001 1 22 

W < ICC 






ADD 


040010 


012737 


1 00000 

1 w wv 


001 124 

W 1 1 c~ 




MOV 


04 0016 


013737 


0C1 126 


001 164 




MOV 


040024 


042737 


077777 


001164 




BIC 


040032 


023737 


001124 


001164 




CMP 


040040 


001414 








BEO 


040042 


013737 


001 126 


001 1 74 




MOV 


040050 


042737 


1 00000 

1 wwv 


001 1 74 




Bi C 


040056 


053737 


001174 


001 124 




BIS 


040064 


104010 








EMT 


040066 


005137 


001250 






COM 


040072 


000240 






67$: 


NOP 


040074 


005737 


001250 






TST 


040100 


001402 








BEQ 


040102 


000137 


041274 






JMP 


040106 


1 1 3760 


001226 


000010 

WW > V 




M0V8 


0A0114 


013737 


001226 

W 1 C C w 


001240 




MOV 


040122 


005037 


001250 






CLR 


040126 


01 6037 


000012 


001126 




MOV 


0401 34 


012737 


00001 2 

WW ' c 


001122 

W < ICC 




MOV 


040142 


060037 


001 122 






ADD 


04O146 


012737 


1 00000 

' WW V 


001 1 P4 




MOV 


0401 5 A 


013737 


001 1 26 


001164 




MOV 


040162 


042737 


077777 


001 164 




air 


C401 70 


023737 


001 124 


001 164 




CMP 


0401 76 


001414 








BEQ 


040200 


013737 


001 1 26 


001 1 74 




MOV 


040206 


042737 


1 00000 

■ WWv 


001 1 74 




SIC 


0A02H 


053737 


001 1 74 


001124 




BIS 


0^0222 


104010 








EMT 


040224 


005137 


001250 






COM 


040230 


000240 






69$: 


NOP 


040232 


005737 


001250 






TST 


040236 

Vt -'W 


001402 








BEQ 


040240 


000137 


041274 






JMP 










.•SEIZE 


THE Df 


040244 


1 1 3760 


001224 


0000^0 




M0V8 


0402S2 


013737 


001224 


001242 




MOV 



F 14 
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SEC 0111 



RMER1 (RO) 

P0RTB.RMCS2(R0) 

RMDS(RO) 

64$ 

#-1.RMER1(R0) 

RMERKRO) 

PORTA, RMCS2(R0) 

RMDS(RO) 

65$ 



C^EAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
8R IF DRIVE HASN'T TIMED ObT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT "64$" AGAIN 
WAIT FOR DRIVE TO MMEOUT 
8R IF DRIVE HASN'T TIMED OUT 



fauTH ATTENTION BITS ARE ^'T 

PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TrPEQUT 
CKERR .CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO '^TMPO* 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
;COPV 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TrPEOUT 



R0.$8DADR 
*ATA,$GDDAT 
$8DDAT,$TMP0 
**CATA.$TMPO 
$6DDAT,$TMP0 
67$ 

$eDDAT,$TMP4 
*ATA.$TMP4 
$TMP4,$GDDAT 

10 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .WAS ATTENTION SET FOR A?? 

.♦6 ;yES!; 

1$ ;N0 - BYPASS REST OF TEST 

P0RT8,RMCS2(R0) .SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TrPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$"MPG' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPV '8AD DATA' 
.-CLEAR THE MASKED BITS 
;'0R* WITH GOOD DATA FOR TvPEQuT 



R0.$6DADR 
*ATA.$GDDAT 
$8DDAT.$TMP0 
**CATA.$TMPO 
$GDDAT.$TMPO 
69$ 

$8DDAT,$TMP4 
*ATA.$TMP4 
$TMP4,$GDDAT 
10 
CKERR 



CKERR 
.*6 
1$ 

IVE THROUGH PORT A 



;SET THE REGISTER COMPARE ERROR INDICATOR 

.-WAS ATTENTION SET FOR B?? 

;YES: ' 

;N0 - BYPASS REST OF TEST 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. SEIZPT ; STORE SEIZING PORT'S ADDRESS 



DU P0« TST 1 MACRO ^04.00 
RESET ATTENTION 'A* GO TEST 



G U 
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OA0260 

0A0272 
040300 
040306 
0A03T4 
040320 
040326 
040332 
040340 
040342 
040344 
040350 
040350 
040356 
040364 
040372 
040400 
040406 
040414 
040420 
040426 
040434 
040442 
040444 
040446 



005060 
113760 
013737 
015737 
016037 
010037 
062737 
005037 
023737 
001403 
104004 
000137 

113760 
013737 
016037 
042737 
012737 
015737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 



000012 
001226 
001226 
001226 
000012 
001122 
000012 
001124 
001124 



041274 

001224 
001224 
000012 
020001 
01 1 700 
001124 
0C1166 
001126 
001166 
001124 



040456 
040462 
040470 
040476 
04050? 
040506 
040514 
040522 
040530 
040532 
040540 
040546 
040554 
040556 
040562 



040564 
040572 
040600 



005037 
016037 
012737 
060037 
005057 
013737 
042737 
023737 
001414 
015737 
042737 
053737 
104061 
005137 
000240 



113760 
013737 
012760 



001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001224 
001224 
000013 



000010 
00V40 
00 '244 
001126 

001122 

001126 



000010 
001240 
001126 
coil 26 
001124 
001166 

00n64 
001164 
001164 



040450 012760 000001 000000 



001126 
001122 



001164 
001164 
001164 

001174 
001 1 74 
001124 



000010 
001240 
000000 



71$: 



72$: 



CLR 

Move 

MOV 
MOV 
MOV 
MOV 
ADD 
CLR 
CMP 
BEQ 
EMT 
JMP 

M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

SIC 

CMP 

BEQ 

EMT 

NOP 



RMDS(RO) ;WRJTE RMDS 

PORTS. RMCS2(R0) ;SELcCT PORT B 

P0RT8.PTN8R ;M0VE PORT ADDRESS TO LOCATION fOR TyPEO*)! 



PORTS. OPPRT 
RMDS{R0),$8DDAT 
R0.$8DADR 
#RMDS,S8DADR 
$GDDAT 

$GDDAr.$BDDAr 

71i 
4 

1$ 



•OPPOSITE* PORT ADDRESS 
SEE If DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS ^HE REGISTER ZERO 
BR IF IT IS 

8VPASS REST OF THE SUBTEST 



PORTA, RMCS2(R0) ;SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDSfR0),$8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
/TOM I PI P. SBDDAT ; CLEAR DONT CARE BITS 

*M0L!P6MiDPRIDRY.'VV.$GDDAT .-EXPECTED STATUS 
$GDDAT,$TMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT.$TMP0 
$TMP1,$TMP0 
$GDDAT.$TMPO 
72$ 
5 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
BR IF THEV ARE 



.-ISSUE NOP COMMAND TO PORT A 
MOV iirl.RMCSKRO) 
; VERIFY THAT ATTENTION FOR PORT A CLEARED 



73$: 



CLR CKERR 

MOV RMDS(R0).$8DDAT 

MOV #RnDS.$80ADR 

ADD RO.SBDADR 

CLR $GDDAT 

MOV $8DDAT,$TMP0 

BIC #*CATA.$TMPO 

CMP $GDDAT,$TMPO 

BEO 73$ 

MOV $8DDAT,$TMP4 

BIC #ATA,$THP4 

BIS $TMP4,$G0DAT 

EMT 61 

COM CKERR 
NOP 



.-CLEAR THE 'CHECK ERROR' INDICATOR 
.-GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MES'iAGE 

.-ADD RH/RM BASE ADDRESS 

.-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 
SAVE SPECIFIED BITS 

.COMPARE THE BITS 

;8R IF OK 

.-COPY 'BAD DATA* 

.•CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COWARE ERROR INDIlAt&R 



.RELEASE THE DRIVE FROM PORT A 



M0V8 PORTA. RMCS2(R0) .SELECT PORT A 

MOV PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR tvpeou' 
MOV *13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



H U 



HnjT/^/d DU "OH 


f C f 1 

1 S 1 


.r04.00 




PESET ATTf^jTION 


'A* BY 


GO TEST 






C40606 


005037 


001254 






CL« 


0^0612 


012737 


C00012 


001122 




MUV 


040620 


060037 


001 1 22 






ADD 


040624 


012737 


011700 


001124 




MOV 


040652 


1 1 3760 


001224 


000C10 




M0V8 


040640 


016037 


000012 


001170 




MOV 


040646 


042737 


024001 


001 1 70 




BIC 


040654 


013737 


001170 


001164 




MOV 


040662 


042737 


100100 


0C1164 




BIC 


040670 


1 1 3760 


001226 


000010 




MOVB 


rtrf 

040676 


016037 


000012 


001172 




MOV 


040704 


042737 


024001 


001172 




BIC 


040712 


01 5737 


001172 


001166 




MOV 


040720 


042757 


100100 


001166 




BIC 


040'26 


A17777 

023737 


001164 


001166 




CMP 




001006 








BNE 


040736 


AAC 777 

005737 


001164 






TST 




AA" A/ C 

00 1 045 








BNE 


040744 


^ A/ Ay X 

1 04046 








EMT 




AAA 177 

000157 


041146 






JMP 


040752 


A1 7 777 

013757 


001 1 70 


001126 


75$: 


MOV 


040760 


A1 7777 


001226 


001240 




MOV 




117 7Z. A 


001226 


000010 




M0V8 




AAC 777 

005737 


001164 






TST 


A/ 1 AAA 


00 14 14 








BEQ 


A/ i AA*^ 

04100^ 


A1 1717 


001224 


001240 




MOV 


A/ 1 A1 A 

OAIO lO 


A1 7777 
\J\5f5f 


001 1 72 


001 1 26 




MOV 


A/ 1 A1 ^ 

04 1016 


1 1 77iLA 

1 13/^60 


001224 


000010 




M0V8 


A/ 1 A"^/ 

OA 1 OiTs 


AAC777 

00!) Of 


001166 






TST 


A/ "1 A7A 

04 1 OiO 


AA 1 A1 

001012 








BNE 


Ay 1 A7 1 

041032 




1 77777 


001254 


76$: 


MOV 


A/ 1 A/ A 

041040 


012760 


00001 1 


000000 




MOV 


A/ 1 A/ 

041 046 


A1 17^A 


000013 


000000 




MOV 


A/ 1 AC/ 

041 0!>4 


1 A/ A1X 

10404:6 








EMT 


A/ 1 AC^ 

04 1 0!>6 


A1 7777 

\J\5f5f 


001 1 70 


001126 


77$: 


MOV 


041064 


A1 7777 


001224 


001240 




MOV 


A/ 1 A*?"! 

04 1 0 r ^ 


A/ 17T7 


100000 


001 1 26 




BIC 


Ay 1 1 AA 

04 11 00 


A177 /7 

025/57 


001124 


001126 




CMP 


A/ 1 1 AZ. 

041 106 


AA1 y A1 

001401 








BEQ 


Ay 1 1 1 A 
041 110 


i Ay AA'y 

1 U400r 








EMT 


A/ 1 1 i 

04 1 11 


A1 'Z7t7 

01 5r^3/' 


001172 


001 1 26 


78$: 


MOV 


041 l^rO 




001226 


001240 




MOV 


nz. 1 1 PA 

Uh I 1 to 


OA 5777 


100000 


001126 




BIC 


041134 


023737 


001124 


001126 




CMP 


041142 


001401 








3EQ 


041144 


10-007 








EMT 


041146 


000240 






79$: 


NOP 



relerr 

#RM0S,$8DADR 
R0.$8DADR 

*mol:pgm.dpr:dry 
porta. rmcs2(r0) 
rmds(r0).$tmp2 . 
#pip;url.om,$tmp2 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMOS FOR TVPEQuT 
ADD THE I/O BASE ADDRESS 
VV.$GDDAT .-COMPARISON COr^TANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGI^TEF. FROM PORT A. 
; CLEAR DONT CARE^ 
$TMP2,$TMP0 .-COPY IT INTO •$TMPO' 
#ATA.'VV.$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0^^T8.RMCS2(R0) .-SELECT PORT B. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP;WRL.0M.$TMP3 ; CLEAR DONT CARES 



$TMP3,$TMP1 
#ATA.VV.$TMP1 
$TMP0,$TMP1 
75$ 
$TMPO 
77$ 
46 
79$ 

$TMP2.$8DDAT 

P0RT8.PTNBR 

P0RT8,RMCS2(R0) 

$TMPO 

76$ 

PORTA, PTNBR 

$TMP3.$8DDAT 

PORTA. RMCS2(R0) 

$TMP1 

77$ 

*-l.RELERR 
*11 .RMCS1 (RO) 
*13.RMCS1 (RO) 
26 

$TMP2.$BDDAT 

PORTA. PTNBR 

«ATA,$6DDAT 

$GDDAT,$BDDAT 

78$ 

7 

$TMP3.$8DDAT 

PORTS, PTNBR 

*ATA.$8DDAT 

$GDDAT.$6DDAr 

79$ 

7 



COPY IT INTO •$TMP1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAL 



SHOWS DRIVE 
TYPE OUT 



NOT IN NEUTRAL 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 
SEIZING PORT IF TEST 
'BAD DATA' FOR ERROr( 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NLf«ER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 8. 
8R IF OK 



.-VERIFY THAT ATTENTION FOR PORT B IS STIL SET 

041150 113760 001226 000010 MOVB PORTS, RMCS2(R0) .-SELECT PORT B 

041156 013737 001226 001240 MOV PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOc' 

041164 005037 001250 CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

041170 016037 000012 001126 MOV RMDS(RO) .$8DDAT ;GET CONTENTS OF RMDS 

041176 012737 000012 001122 MOV #P^DS.$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

041204 060037 001122 ADD R0,$8DADR ;ADD RH/RM BASE ADDRESS 

04T210 012737 100000 001124 MOV *AFA.$GDDAT ;UHAT REGISTER SHOULD BE 



./K«<RBO 9M05/</2 DU POR 
'?0 OESET ATTENTION 

04l?16 

04 1332 
041240 
041242 
041250 
041256 
041264 
041266 
041272 
04^274 

915 
934 
935 



TST 
'A' 



1 

BY 



l*WC«0 V04 
GO TEST 
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S£0 01 U 



956 
937 



041354 
041362 
041366 
041370 
041376 
041402 
041410 
0414U 
041416 



013737 


001126 


001164 




lOV 


042737 


077777 


001164 




BIC 


023737 


001 1 24 


001164 




CMP 


001414 








BEQ 


013737 


001126 


001 1 74 




MOV 


042737 


100000 


001174 




BK 


053737 


001174 


001124 




BiS 


104(V\? 








FMT 


005137 


001250 






COM 


000240 






80S: 


NOP 


000004 






IS: 


SCOPE 








.'•TEST 


31 



S80DAT.STMP0 
#*CATA.$TMPO 
SGDDAT.STMPO 
SOS 

$aDDAT.STMP4 

#ATA.STMP4 

STMP4,SG0DAT 

62 

CKfRR 
# 



.•MOVE REGISTER CONTENTS TO 'STMPO* 
;SAVE SPECIFIED BITS 
.'COMPARE THE BITS 
;8R IF OK 
;COPV 'SAD DATA' 
.•CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TrPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



RESET ATTENTION '8' BY GO TEST 

VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 

8. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S 
INTO RMDS. 

f. ISSUE A NOP COMMAND. 

D. RELEASE THE FRIVE THROUGH PORT 'B' . VERIFY THAT THE 
ATTENTION BIT FOR PORT *8' IS RESET. AfJD THE 
ATTENTION BIT FOR PORT 'A' !S STIL SET. 



041276 








TST31: 




041276 


005737 


001300 






TST 


041302 


001406 








BEO 


041304 


100002 








BPL 


041306 


000137 


003074 




U: 


JMP 


04:312 


012737 


\77777 


001 300 


MOV 


041320 


012737 


041334 


001106 


2$: 


MOV 


041326 


012737 


041334 


001110 




MOV 


041334 








TEST31: 




041334 


112737 


000031 


00T102 




M0V8 


041 342 


012706 


oonoo 






MOV 


041346 


012737 


000012 


001 1 76 




MOV 



KY8CTL 

2S 

IS 

EXEC 

/r-1.KYBCTL 

mST31.$LPADR 

*TEST31.SLPERR 

#31.$TSTNH 

#STACK,SP 

#10..$TIHES 



PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN % GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *31 TO TEST ^W«ER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



.SET ATTENTION BITS FOR BOTH PORTS 



1 1 3760 
005760 
001775 
012760 
005060 
013760 
005760 
001775 
01 2760 



001224 
000012 

}77777 
000014 
001226 
000012 



000010 

000014 
000010 



M7777 000014 



M0V8 PORTA, RMCS2(R0) 

66S: TST RMOS(RO) 

BEQ 66$ 

MOV #-1.RMER1(R0) 

CLR RMERKRO) 

MOV PORT8.RHCS2(R0) 

64$: TST RMDS(RO) 

BEQ 64$ 

MOV #-l.RMERHRO) 



SELECT PORT 64$ 
MAKE SURE DRIVE 



AVAILABLE 



FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
8R IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 



T?1 



DU POR TST 1 
RESET ATTENTION '8' BY 



MACRO VOA.OO 
GO TEST 
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SCO 011^ 



04U24 
0<.K50 
04 1436 
041442 



041444 
041452 
041460 
041464 
041472 
041500 
041504 
041512 
041520 
041526 
041554 
041536 
C41544 
041552 
041560 
041562 
041566 
041570 
041574 
041576 
041602 
041610 
041616 
041622 
041630 
041636 
041642 
041650 
041656 
041664 
041672 
041674 
041702 
041710 
041716 
041720 
041 724 
041726 
041732 
041734 



041740 
041746 
041754 
041760 
041766 
041774 
042002 



005060 
113760 
005760 
001775 



113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 
1 1 3760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 



113760 
013737 
005060 
113760 
013737 
013737 
016037 



00O014 
C01224 
000012 



001226 
001226 
001250 
000012 
'000012 
001122 
100000 
001126 
077777 
001124 

001126 
1C0000 
001174 

001250 

001250 

042770 
001224 
001224 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001250 

042770 



001226 
001226 
000012 
001224 
001224 
001224 
000012 



000010 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001 1 74 
001124 



000010 
001242 

000010 
001240 
001244 
001126 



65S: 



CLR RMERKRO) 

M0V8 PORTA.RMCS2(R0) 

TST RMDSCRO) 

BEQ 65$ 



CLEAR THE ERRORS 
SELECT PORT "64$" AGAIN 
WAIT FOR DRIVE TO TIMEOUT 
8R IF DRIVE HASN'T TIMED OUT 



.-CONFIRM THAT BOTH ATTENTION BITS ARE SET 



67$: 



69$: 



M0V9 

MOV 

CLR 

MOV 

MOV 

ADD 

lOV 

MOV 

BK 

CMP 

BEQ 

MOV 

SIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 

MGV8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIG 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 



P0RT8.RMCS2{R0) .-SELECT PORT B 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CK:RR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$80DAT ;GET CONTENTS OF RMDS 
*RMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE AI^DRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
.•SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF OK 
;COPY 'SAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
*ATA.$GDDAT 
$8DDAT.$TMP0 
**CATA.$7MP0 
$GDDAT.$TMP0 
67$ 

$8DDAT.$TMP4 
*ATA.$TMP4 
$TMP4.$GDDAT 
10 
CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-WAS ATTENTION SET FOR B?? 

.♦6 ;YES!! 

1$ ;N0 - BYPASS REST OF TEST 

PORTA. RMCS2(R0) ."SELECT PORT A 

PORTA. PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERH .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMOS(RO).$BDDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$TMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.•COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
#ATA,$GDDAT 
$8DDAT.$TMP0 
#*CATA,$TMPO 
$GODAT.$TMPO 
69$ 

$8DDAT,$TMP4 
#ATA.$TMP4 
$TMP4,$6DDAT 

10 
CKERR 



CKERR 

.♦6 

1$ 



;SET THE REGISTER COMPARE ERROR INDICATOR 

.WAS ATTENTION SET FOR A?? 
• YES ' ' 

•NO -^'bypass REST OF TEST 



.-SEIZE THE DRIVE THROUGH PORT B 

M0V8 PORT8.RMCS2(R0) ;SElECT PORT B 

MOV PORTB.SEIZPT ;STOR'. SEIZING PORT'S ADDRESS 

CLR RMDSCRO) ; WRITE RMDS 

M0V8 P0RTA,RMCS2(R0) .-SELECT PORT A 

MOV PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TVPEOjT 

MOV PORTA, OPPRT .-'OPPOSITE* PORT ADDRESS 

MOV RMDS{RO).$BDDAT ;SEE iF DRIVE SEIZED BY PORT B 



»MQBu RMOS/^/^ DU POR T5T 1 
RESET ATTENTION 'B' BY 



I*IAC«0 VOA.OO 
GO TEST 



K K 
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SEO 0116 



042010 


010037 


001122 






MOV 


0420K 


062737 


000012 


001122 




ADD 


0A2022 


005037 


001124 






CLR 


042026 


023737 


OOIVh 


001126 




CMP 


042034 


001403 








BEQ 


042036 


104004 








EMT 


042040 


000137 


042770 






JMP 


042044 








71$: 




042044 


113760 


001226 


000010 




M0V8 


042052 


015737 


001226 


001240 




MOV 


042060 


016037 


000012 


001126 




MOV 


042066 


042737 


020001 


001126 




BIC 


042074 


012737 


011700 


001124 




MOV 


042102 


013737 


001124 


001166 




MOV 


042110 


005137 


001166 






COM 


042114 


013737 


001126 


001164 




MOV 


0421 ?2 


043737 


001166 


001164 




BIC 






nni 1 

\J\J 1 1 C* 






TMP 


042136 


001401 








BEQ 




logon's 








FMT 


042142 


000240 






72$: 


NOP 










.•ISSUE 


NOP C( 


042144 


012760 


000001 


000000 




MOV 



042152 
0421 56 
042164 
0421 72 
0421 76 
042202 
042210 
042216 
042224 
042226 
042234 
042242 
042250 
042252 
042256 



042260 
042266 
042274 



042302 
042306 
0423U 
04P320 
042326 



R0,$6DADR 

*RMDS.$8DADR 

$GDDAT 

$GDDAT,$6DDAT 

71$ 

4 

1$ 



RH/RM BASE ADDRESS 

GENERATE BAD REGISTER ADDRESS 

REGISTER SHOULD BE ZERO 

IS THE REGISTER ZERO 

8R IF IT IS 

.-BYPASS REST OF THE SUBTEST 



PORTS, RMCS2(RC) .-SELECT PORT B 

P0r-<T8.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
R«DS(R0),$8DDAT .-SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M! PI P,$6DDAT ; CLEAR DONT CARE BITS 

*MOL!PGM!DPR!DRY:vV.$GDDAT .-EXPECTED STATUS 
$GDDAT,STMP1 ;USE GOOD DATA AS A MASK 



$TMP1 
$8DDAT.$TMP0 
$TMP1 ,$TMPO 
$GDDAT,$TMPO 
72$ 
5 



*1,RMCS1(R0) 



COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 
8R IF THEY ARE 



.-VERIFY THAT ATTENTION FOR PORT B CLEARED 



005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104061 
005137 
000240 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
11376C 



001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001226 
001226 
000013 



001254 
000012 
001122 
DM 700 
00^22^ 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001174 
001124 



73$: 



CLR CKERR 

MOV RriDS(RO),$BDDAT 

MOV #RMDS,$ffi>ADR 

ADD RO,$eDADR 

CLR SGDDAT 

MOV $8DDAT.$TMP0 

BIC #*CATA,$TMP0 

CMP SGDDAT. $TMPO 

BEQ 73$ 

MOV •$8DDAT.$TMP4 

BIC #ATA.$TMP4 

BIS $TMP4.$6D0AT 

EMT 61 

COM CKERR 
NOP 



.•CLEAR THE 'CHECK ERROR* INDICATOR 
;GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA* 
CLEAR THE MASKED BITS 
•OR* WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT B 



000010 
001240 
000000 



001122 

001124 
000010 



M0V8 PORT8.RMCS2(R0) ."SELECT PORT B 

MOV PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13,RMCS1(R0> ;ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR ;CLE/<R THE 'RELEASE ERROR ' INDirATQR 

MOV #RMDS,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOU' 

ADD R0,$80ADR .ADD THE I/O BASE ADDRESS 

MOV *MOL ! PGM! DPR : DRY !VV, SGDDAT .'COMPARISON CONSTANT 

M0V8 PORTA. RHCS2(R0) .'SELECT PORT A, 



rzRMRBO 



RM0S/'./2 DU POR 


TST 1 


MACRO VC 


-.00 


4-APR-J 


RESET ATTENTION 


'R' RV 










016037 


\J\JvV I c 


001 170 




MOV 




042737 




001 1 70 

VV 1 1 r V 




BIC 


CK.235C 


013737 


nni 1 70 


001 164 

\J\J 1 1 O"* 




MOV 


(K2356 


042737 


1 noi on 


001 164 

W 1 1 V" 




RIC 


(K3364 


113760 


001 ??A 


000010 

WW 1 V 




MOV8 


042372 


016037 


00001 ? 

UV/vV 1 C 


001 1 72 




MOV 


0A24OO 


042737 


0P4.001 


001 1 7? 

Vv 1 I ' C 




BIC 


04.2406 


013737 


001 1 7? 


001 1 66 

VV ■ 1 w 




MOV 


0A24U 


042737 


100100 


001 166 

VV < 1 \J\J 




BIC 


042422 


023737 


001 1^^ 


001 166 




CMP 


042430 


001006 








BNE 


042432 


005737 


001 1 64 






TST 


042436 


001045 








BNE 


042440 


104046 








EMT 


042442 


000137 








JMP 


042446 


013737 


001 1 70 


001 126 

VV 1 1 C u 


75$: 


MOV 


042454 


013737 


001226 


001240 

VV t t » V/ 




MOV 


042462 


^ 13760 


001 ?26 


00001 0 

WW 1 V 




MOVB 


042470 


005737 


001 164 

VV t I u~ 






'ST 

*/ • 


042474 


001414 








BEG 


042476 


013737 


001 224 

V V 1 c c *• 


001240 

W 1 t ^ V 




MOV 


042504 


013737 


001 1 72 

VV 1 1 » c 


001 126 




MOV 


042512 


113760 


001 224 

VV 1 CC^ 


000010 

WW 1 V 




MOVB 


042520 


005737 


001 1 66 






TST 


042524 


001012 








BNE 


042526 


012737 


y f f t f t 


001254 

VV 1 c 


76$ • 


MOV 


042534 


012760 


00001 1 

WW 1 ' 


ooOooo 

www 




MOV 


042542 


012760 


00001 3 

V V V V 1 -J 


OOOOOO 

www 




MOV 


042550 


104026 






77$: 


FMT 


042552 


013737 


001170 

VV 1 I f V 


001 126 


MOV 


042560 


013737 


001224 


001240 

W 1 t ~ V 




PlOV 


042566 


042737 


1 Ooooo 

I wvvv 


001 126 

VV I I ^v 




BIC 


042574 


023737 


001 1 24 

VV 1 I b~ 


001 1 26 

W 1 1 




CMP 


042602 


001401 








BEO 


042604 


104007 








EMT 


042606 


013737 


001 1 ■'2 

VV 1 1 » c 


001 1 26 


78$- 


MOV 


042614 


013737 


001226 

VV \ CC\J 


001240 

VV 1 t ~ V 




MOV 


042622 


042737 


1 Ooooo 

1 wwv 


001 1 26 




BIC 


042630 


023737 


001 1 24 


001 1 26 

W 1 1 b V 




CMP 


042636 


001401 








BEO 


042640 


104007 








EMT 


042642 


000240 






79$: 


NOP 



18:06:25 
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SfO 0117 



042644 
042652 
042660 
042664 
042672 
042700 
042704 
042712 
042720 
042726 
042734 
042736 



RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0M.$TMP2 .-CLEAR DONT CARES 

$TMP2.$TMP0 .'COPY IT INTO •$TMPO' 

#ATA!VV.$TMPO .-CLEAR PORT DEPfc'NDENT BITS FROM THE COPr 
PORTS. RMCS2(R0) .'SELECT PORT 8. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL.0M.$TMP3 ; CLEAR DONT CARES 



$TMP3.$TMP1 
#ATAIVV.JTMP1 
$L'V0.$TMP1 
75$ 
$TMPO 
77$ 
46 
79$ 

$TMP2.$BDDAT 

PORTS. PTN8R 

P0RT8,RMCS2(R0) 

$TMPO 

76$ 

PORTA, PTNBR 

$TMP3.$8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

77$ 

»-^ .RELERR 

*11,RMCS1(R0) 

#13,RMCS1CR0) 

26 

$TMP2.$8DDAT 

PORTA, PTNBR 

#ATA,$8DDAT 

$GDDAT,$BDDAT 

78$ 

7 

$TMP3,$B0DAT 

PORTS. PTNBR 

*ATA,$eDDAT 

$GDDAT.$BODAT 

79$ 

7 



;COPY IT INTO •$TMP1 
.•CLEAR PORT DEPENDENT BITS FROM THE COPY 
;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
;8R If NOT 

;REGISTERS ARE THE SAME: ARE THEY ZERO ^ 
;8R IF NOT 

;SYPASS THE REST OF THE CHECKS 
;S£T UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.•SELECT PORT B. 

.SEE IF STATUS EQ 0 FROM PORT A. 
;8R IF ZERO 

.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAl 
;'8AD DATA' FOR ERROR TYPE OiJT 
.•SELECT PORT A. 

;SEE IF STATUS EO ZERO FROM PORT B. 
;8R IF NOT 

;SET 'RELEASE ERROR* INDICATOR 
.•CLEAR THE DRIVE 
.•RELEASE THE DRIVE 

.LOOK FOR BIT FAILURES WHEN RMDS READ 

.•CHANGE PORT NUMBER 

.•DON'T CHECK THE ATTN BIT 

;ALL BITS OK ? 

;8R IF OK FROM PORT A. 

.-CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
.•CHANGE PORT NUf«ER 
.DON'T CHECK THE ATTN BIT 
;SEE IF READ OK FROM PORT B. 
;9R IF OK 



113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 



001224 
001224 
001250 
000012 
000012 
001122 
100000 
001126 
Q77777 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 



001126 001174 



;VER:FY THAT ATTENTION FOR PORT A IS STIL SET 

M0V8 PORTA. RMCS2(R0) ; SELECT PORT A 

MOV PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 

MOV *RMDS,$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD R0,$8DADR .ADD RH/RM BASE ADDRESS 

MOV #ATA,$GDDAT ;WHAT REGISTER SHOULD BE 

MOV $8DDAT,$TMP0 ;MOVE REGISTER CONTENTS TO '$TMPO* 

BIC #*CATA,$TMPO ;SAV£ SPECIFIED BITS 

CMP $GDDAT,$TMPO .-COMPARE THE BITS 

BEO 80$ ;8R IF OK 

MOV $8DDAT.$TMP4 .COPY '8AD DATA' 



n u 

CZRMRBO RM05/5/2 DU POR TST 1 HACRO V04.00 4-APR-81 18:06:25 PAGE 10-78 
T?1 RESET ATTENTION '8* BY GO TEST 



SEO 0118 



938 
952 
953 



OA 274 A 
0A2752 
0A2760 
042762 
042766 
042770 



954 
989 



042772 
042772 
042776 
043000 
043002 
043006 
043014 
043022 
043030 
043030 
043036 
043042 



043050 
04 3056 
043062 
043064 
043072 
043076 
043104 
043110 
043112 
043120 
043124 
043132 
043136 



042737 
053737 
104062 
005137 
000240 
000004 



100000 
001 1 74 

001250 



001 1 74 
001124 



80$: 
1$: 



BIC 
BIS 
EMT 
COM 
NOP 
SCOPE 



#ATA.$TMP4 
$TMP4,$GDDAT 

62 

CKERR 



: CLEAR THE MASKED BITS 

.••OR' WITH GOOD DATA FOR TYPECJUT 

;SET THE REGISTER COMPARE ERROR INOICATQft 



TEST 32 



TEST RESET ATTENTION 'A* t 'B' BY MASS8US INIT 



VERIFY THAT MASS8US CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 



VERIFY THAT BOTH ATTENTION BITS HAVE 









'm * 

;• A. 


SET THE 


ATTENTION BITS 








B. 


VERIFY 


THAT THE DRIVE 








C. 


ISSUE A MASSaUS INIT. 










RESET. 










tST32: 






005737 


001 300 






TST 


KY8CTL 


C01406 








BEO 


2$ 


100002 








BPL 


1$ 


000137 


003074 






JMP 


EXEC 


012737 


M7777 


001300 


1$: 


MOV 


#-l.KV8CTL 


012737 


043030 


001106 


2$: 


MOV 


#TEST32.$LPADR 


012737 


043030 


001110 




MOV 


#TfcST32,$LPERR 






TEST32: 






112737 


000032 


001102 




MOVB 


*32.$TSTNM 


012706 


001100 






MOV 


#STACK,SP 


012737 


000012 


001 1 76 




MOV 


#10..$T1MES 



PERFORMING ONLY SINGLE TEST ? 
BR F NOT 

BR IF JUST ENTERED TEST 
RETURN S GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #32 TO TEST Ntf«ER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 



;SET ATTENTION BITS FOR BOTH PORTS 



113760 
005760 
001 775 
012760 
005060 
013760 
005760 
001775 
012760 
005060 
113760 
005760 
001775 



043140 113760 
043146 013737 
043154 005037 



001224 
000012 

y77777 
Of' 014 
Ot 226 
000012 

\77777 
000014 
001224 
000012 



001224 
001224 
001250 



000010 

000014 
000010 

000014 
000010 



000010 
001240 



MOVB P0RTA.RMCS2(R0) 

66$: TST RMDS(RO) 

BEO 66$ 

MOV »-^ ,RMER1 (RO) 

CLR RMER1 (RO) 

MOV PORTS. RMCS2{R0) 

64$: TST RMDSCRO) 

BEO 64$ 

MOV #-1 .RMER1 (RO) 

CLR RMER1 (RO) 

M0V8 PORTA, RMCS2(R0) 

65$: TST RMDSCRO) 

BEO 65$ 



.•SELECT PORT 64$ 
;MAKE SURE DRIVE 



AVAILABLE 



FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT "64$" AGAIN 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 



: CONFIRM THAT BOTH ATTENTION BITS ARE SET 



MOVB 

MOV 

CLR 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPFOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 



CZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 
T32 TEST RESET ATTENTION 'A' & '8' BY MASSBUS INIT 



N 14 
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S£Q 01 ry 



OA 31 60 
045166 
043174 
043200 
043206 
043214 
043222 
043230 
043232 
OA 3240 
043246 
043254 
043256 
043262 
043264 
043270 
043272 
043276 
043304 
04 331 2 
043316 
043324 
043332 
043336 
043344 
043352 
043360 
043366 
043370 
043376 
043404 
043412 
043414 
043420 
043422 
043426 
043430 



043434 
043440 
043446 
043452 
043460 
043466 
043474 
043502 
043510 
043516 
043524 
043532 
043540 
0435'.6 
043554 
043562 
043564 



016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001 006 
005737 



000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001250 

044246 
001226 
001226 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001250 

044246 



001254 
000012 
001122 
111700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



001126 
001122 

001124 
001^64 
001164 
001164 

001 1 74 
001174 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



67$: 



69$: 



MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 

M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 



RMDS(R0).18DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ;F0RM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT RE6JSTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMP0' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.•COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR TYPEOUT 



RO,$BDADR 
/rATA.$GDDAT 
$8DDAT.$TMP0 
/r*CATA.$T«P0 
$GDDAT,$TMP0 
^7$ 

$8DDAT,$TMP4 
#ATA.$TMP4 
$TMP4.$6DDAT 

10 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR ;UAS ATTN BIT FOR PORT A SET ? 

.+6 ;8R IF IT WAS 

1$ .-BYPASS REST OF TEST IF NOT 

PORTS. RMCS2(R0) .-SELECT PORT 6 

P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO •$TMPO' 
.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA* 
; CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
*ATA.$GDDAT 
$8DDAT.$TMP0 
**CATA.$TMPO 
$6DDAT.$TMP0 
69$ 

$8DDAT.$TMP4 
*ATA,$TMP4 
$TMP4,$GDDAT 
10 
CKERR 



CKERR 
1$ 



;SET THE REGISTER COMPARE ERROR INDICATOR 

;WAS ATTN BIT FOR PORT B SET ? 
;BR IF IT WAS 

.•BYPASS REST OF TEST IF NOT 



.VERIFY THAT THE DRIVE IS CTILL IN NEUTRAL 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

M0V8 

MOV 

8JC 

MOV 

BIC 

CMP 

BNE 

TST 



RELERR 

#RMD$,$8DADR 
-R0.$8DADR 
/lf111700,$6DDAT 
PORTA. RMCS2(R0) 
RMDS(R0).$TMP2 . 
#PIPIWRL!0M,$TMP2 
$TMP2.$TMP0 
*ATA!VV,$TMPO 
PORTS, RMCS2(R0) 
RMDS(R0),$TMP3 . 
*PIP!WRL!0M.$TMP3 



INDICATOR 
FOR TYPEOUT 



CLEAR THE "RELEASE ERROR 
FORM THE ADDRESS OF RMDS 
ADD THE I/O BASE ADDRESS 
COMPARSJON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 
CLEAR DONT CARES 



$TMP3.$TMP1 
#ATA!VV.$TMP1 
$TMP0,$TMP1 
71$ 
$TMPO 



COPY IT INTO '$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.•CLEAR DONT CARES 
COPY IT INTO '$TMPT 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 



^ TEST (»eSET ATTENTION 



OA 5570 
043572 
045574 
045600 
043606 
043614 
043622 
043626 
043630 
043636 
045644 
043652 
045656 
043660 
043666 
043674 
043702 
043704 
043712 
C43720 
043726 
0^3730 
043732 
043740 
043746 
043754 
043756 
043760 
043762 
045766 
04 3770 



»WC»C V04.00 4-APP-8' 18;06:i?5 
'A* I '9' B* MASSBUS INF 



B 

PAGE 



15 

10-80 



SfO 0120 



043774 



001045 








BNE 


73$ 


104046 








E«T 


46 


000^37 


045760 






.»«P 


75$ 


013757 


001170 


001126 


71$: 


MOV 


$TMP2.$B0DAT 


013757 


001226 


001240 




nov 


PORTS. PTNBR 


113760 


001226 


000010 




I10V8 


PO«T8.RMCS2(R0) 


005737 


001164 






TST 


$TMPO 


001414 








BEQ 


72$ 


013737 


001224 


00^240 




nov 


PORTA, PTNBR 


013737 


001172 


001126 




nov 


$T,'iP3,$BDDAT 


1 1 3760 


00^224 


000010 




M0V8 


PORTA.RMCS2(R0) 


005737 


001166 






TST 


$TMP1 


001012 








BNE 


73$ 


012737 


Mini 


001254 


72$: 


MOV 


*-1.fiELERR 


012760 


000011 


000000 




MOV 


#11.RMCS1(R0) 


012760 


000015 


000000 




MOV 


»15.RMCS1(R0) 


104026 








EMT 


26 


013737 


001 170 


001126 


75$: 


MOV 


$TMP2,$800AT 


013737 


001224 


001240 




MOV 


PORTA. PTNBR 


023757 


0C1124 


001126 




CMP 


$GODAT,$BDDAT 


001401 








BEQ 


74$ 


104007 








EMT 


7 


015757 


001172 


001126 


74$: 


MOV 


$TMP3.$800AT 


013737 


001226 


001240 




MOV 


P0RT8,PTNBR 


C23737 


001124 


oon26 




CMP 


$GD0AT,$60DAT 


001401 








BEQ 


75$ 










CMT 


7 


000240 






75$: 


NOP 






OU 1 <:?4 






TST 


RELERR 


001402 








BEQ 


.♦6 


000137 


044246 






JMP 


1$ 








.ISSUE 


THE MASS8US INIT 


012760 


000040 


000010 




MOV 


#CLR.RMCS2(R0) 



;8R U NOT 

BrPASS THE REjT Of THfc CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAC6 
SEIZING PORT IF TEST SHOWS DRIVF NOT IN NEuTMl 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN N(UTRAL 
•BAD DATA* FOP ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 



;UAS DRIVE IN NEuTRAl 
;8R IF IT WAS 
.-BYPASS RESET OF TEST 



.•CHECK THE ATTENTION BITS OF BOTH PORTS 



044002 


113760 


001224 


000010 


M0V8 


044010 


013737 


001224 


001240 


MOV 


044016 


005037 


001250 




CLR 


C44022 


016037 


000012 


001126 


MOV 


044030 


012757 


000012 


001122 


MOV 


044036 


060037 


001122 




ADD 


044042 


005037 


001124 




CLR 


044046 


013737 


001126 


001164 


MOV 


044054 


042737 


077777 


001164 


BIC 


044062 


023737 


001124 


001164 


CMP 


044070 


001414 






BEQ 


044072 


013737 


001126 


001 1 74 


MOV 


044100 


042737 


100000 


00M74 


BIC 


044106 


053737 


001174 


001124 


BIS 


044114 


104051 






EMT 


044116 


005137 


001250 




COM 


044122 


000240 




76$: 


NOP 


044124 


113760 


001226 


000010 


M0V8 


044132 


013757 


001226 


001240 


MOV 



PORTA. R«CS2(R0) .'SELECT PORT A 

PORTA, PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOuT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS{R0).$80DAT ;GET CONTENTS OF RMDS 
#RMDS.$BDAOR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TQ •$TMP0' 
.SAVE SPECIFIED BITS 
COMPARE THE BITS 
;8R IF OK 
COHY 'BAD DATA' 
; CLEAR THE MASKED BITS 
•OR* WITH GOOD DATA FOR TYPEOUT 



R0.$6DADR 
$GDDAT 

$8DDAT,$TMP0 
/r*CATA.$THPO 
$GDDAT.$TMPO 
76$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4,$GDDAT 

51 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS. PTN8R ;WVE PORT ADDRESS TO LOCATION FOR typEOUT 



993 
1007 
1008 



RH05/3/2 DU PGR 


TST 1 


HACRO V04.00 4 


-APR-8 1 


TEST RfSET ATTENTION 'A 


' I 'B* Br MASSBUS IMT 


0*>A i40 


005037 


001250 




CLR 


044144 


016037 


000012 


0011 26 


nOv 


04415? 


012737 


000012 


001122 


HOV 


044160 


060037 


001 122 




ADD 


044164 


005037 


001124 






0441 70 


013737 


{X)i 1?6 


AA i i X / 

001164 


MOV 


044176 


042737 


\j77ff f 


AA 11^/ 

001164 


o t r 


044^04 


02373r 


001124 


AAi i 
001 164 


Citt' 


044?1? 


001414 






OCA 

DC a 


044214 


013737 


001 126 


AA1 1 7y 
001 1 74 


HOV 


04422? 


042737 


1 00000 


AAi 1 7/ 

OU 1 1 74 


Di (, 


044230 


053737 


001174 


001124 


BIS 


044256 


104051 






EMT 


044240 


005137 


001250 




COM 


044244 


000240 




78$: 


NOP 










SCOPE 








.••TEST 


33 



1806:25 
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S€0 0121 



1009 
1053 



044250 
044250 
044254 
0^,^256 
044260 
044264 
044272 
044300 
044306 
044306 
044314 
044320 



044326 
044334 
044340 
044342 
044350 
044354 
04436? 
044366 
044370 



CKERR 

R«0S(R0).$8DDAT 
#RnDS,$eDADR ; 
R0.S8DADR 
SGDDAT 

$8DDAT.$TMP0 
#*CATA,$TMP0 ; 
IGDDAT,STHP0 
^8$ 

$8DDAT.fT«P4 
#ATA,$TMP4 
ST/iP4, SGDDAT 

51 

CKERR 



.•CLEAR THE 'CHECK ERROR* INDICATOR 
.-GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO 'fTMPO' 
SAVE SPECIFIED BITS 

.•COMPARE THE BITS 

;8R IF OK 

;COPY 'BAD DATA* 

.•CLEAR THE MASKED BITS 

.••OR' WITH GOOD DATA FOR TVPEOUT 

.SET THE REGISTER COMPARE ERROR INDICATOR 
.•LOOP ? 



RESET ATTENTION 'A' I '8* BY RMAS 

•VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
•APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 

• A. SET THE ATTENTION BITS FOR BOTH PORTS. 

• B. VERIFY THE DRIVE IS IN NEUTRAL. 

• C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 

• THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 
* 



005737 
001406 
100002 
000137 
01 ?737 
01?737 
012737 

11?737 
01?706 
01?737 



001300 



003074 

^77777 001300 

044306 001106 

044306 oomo 

000033 00110? 
001100 

000002 001 1 76 



TST33: 



1$: 
2%: 

TfcST33: 



TST KY8CTL 

BEO 2$ 

BPL 1$ 

JMP EXEC 

MOV #-1.KVBCTL 

MOV #TEST33.$LPA0R 

MOV #TEST33.$LPERR 

H0V8 #33,$TSTNM 

MOV #STACK.SP 

MOV #2..$TIMES 



PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

BR IF JUST ENTERED TEST 
RETURN ft GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #33 TO TEST NlfBER 
LOAD THE STACK POINTER 
;D0 ?. ITERATIONS 



.SET ATTENTION BITS FOR BOTH PORTS 



113760 


001224 


000010 




MOVB 


PORTA,RMCS?('*0) 


.•SELECT PORT 64$ 


005760 


000012 




66S: 


TST 


RMDS(RO) 


.-MAKE SURE DRIVE AVAILABLE 


001775 








BEO 


66$ 




01?760 


177777 


000014 




MOV 


#-1,RMER1(R0) 


.•FORCE ERRORS 


005060 


000014 






CLR 


RMER1 CRO) 


.•CLEAR THE ERRORS 


013760 


001226 


000010 




MOV 


PORTS. RMCS?(RO) 


.•SELECT THE OTHER PORT 


005760 


000012 




64S: 


TST 


RMDS(RO) 


;WAIT FOR DRIVE TO TIMEOUT 


001775 






BEO 


64$ 


;BR IF DRIVE HASN'T TIMED OUT 


01?760 


\77777 


000014 




MOV 


#-1.RMER1(R0) 


.•FORCE ERRORS ON PORT 65$ 



J't'>1RB0 RM05/^/2 DU POR TST 1 MACRO V04,00 
!5 RESET ATTENTION 'A' I '8' BY RHAS 
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SEO 012? 



044402 
044410 
044414 



044416 
044424 
044432 
044436 
044444 
044452 
044456 
044464 
044472 
044500 
044506 
044510 
044516 
04452A 
044532 
044534 
044540 
044542 
044546 
044550 
044554 
044562 
044570 
044574 
044602 
044610 
044614 
044622 
044630 
044636 
044644 
044646 
044654 
044662 
044670 
044672 
044676 
044700 
044704 
044706 



044712 
044716 
044724 
044730 
044736 
044 744 
044752 
044760 



005060 
1 1 3760 
005760 
001 775 



1 1 3760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
0002A0 
005737 
001402 
000137 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
0002A0 
005737 
001402 
000137 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 



000014 
C01224 
000012 



001224 
001224 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001 1 74 

001250 

001250 

045372 
001226 
001 2 ■'6 
001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001250 

045372 



001254 
000012 
001122 
111700 
001224 
000012 
024001 
001170 



000010 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001174 
001 1 74 
001124 



000010 
001240 

001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001174 
001124 



001122 

001124 
000010 
001170 
001 1 70 
001164 



CLR 
MOVE 
65$: TST 
BEQ 

.'CONFIRM THAT 
M0V8 
MOV 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEO 
MOV 
BIC 
BIS 
E^T 
COM 

67$: NOP 
TST 
BEQ 
JMP 
M0V8 
MOV 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CIV 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 

69$: NOP 
TST 
BEQ 
JMP 



RMERl (RO) 

P0RTA,RMCS2(R0) 

RMDS(RO) 

65$ 



CI EAR THE ERRORS 
SELECT PORT "64$* ■ AGAIN 
WAIT FOR ORIVF TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 



BOTH ATTENTION BITS APE SET 

PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(R0),$8DDAT .GET CONTENTS OF RMDS 
»RMDS.$eDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO '$TMPO' 
.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPy 'aAO DATA' 
.•CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TVPEOUT 



RO,$eDADR 
#ATA,$GDDAT 
$8DDAT.$TMP0 
**CATA.$TMP0 
$GDDAT.$TMPO 
67$ 

$8DDAT.$TMP4 
*ATA.$TMP4 
$TMP4.$GDDAT 

10 
CKERR 



.SET THE REGISTER .COMPARF ERROR INDICATOR 



CKERR ;WAS ATA SET FOR A?? 

.+6 ;yES - CONTINUE 

1$ .-BYPASS REST OF TEST 

PORTe.RMCS2(R0) .'SELECT PORT B 

PORTS, PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RM)S 
#RMDS,$8DADR ;FOR« REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 

.'MOVE REGISTER CONTENTS TO '$TMPO' 
;SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;3R IF OK 
;COPY 'SAD DATA' 
.CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TVPEOUT 



R0,$8DADR 
#ATA,$GDDAT 
$8DDAT.$TMP0 
#*CATA,$TMPO 
$GDDAT,$T«PO 
69$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$T«P4.$GDDAT 

10 
CKERR 



CKERR 
1$ 



.-SET THE REGISTER COMPARE ERROR INDICATOR 

;WAS ATA SET FOR B?? 

;VES - CONTINUE 

; BYPASS REST OF TEST 



.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



CLR RELERR 

MOV #RMDS.$BDADR 

ADD R0.$8DADR 

MOV #111700.$GDDAT 

M0V8 PORTA, R«CS2(R0) 

MOV RMDS(R0),$TMP2 . 

8JC #PIP1WRL!0M.$TMP2 

MOV $rMP2,$TMP0 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
COMPARSION CONSTANT 
SELECT PORT A 

GET THE DRIVE'sTATUS REGISTER FROM PORT A. 
.-CLEAR DONT CARES 



.-copy' If INTO '$TMPO' 



«RBC RM05/3/3 DU POR TST 1 MACRO VOA.OO 
RESET ATTENTION 'A* I 'B* BY RMAS 
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*ATA1 VV.STMPO 
P0RTB,RMCS2(R0) 
RMDS(R0),STMP3 , 
#PIP!WRL!0M,STMP3 
$TriP3.$TMP1 
#ATAIVV,STMP1 
$TW0.$TMP1 
71$ 
$1MP0 
73$ 
46 
75$ 

$TriP2.$BDDAT 
P0RT8,PTN8R 
PORTS. RMCS2(R0) 
$TMP0 
72$ 

P0RTA.PTN8R 
$TriP3.$8DDAT 
PORTA.RMCS2(R0) 
$TriP1 
73$ 

#-1.RELERR 
*11.RMCS1(R0) 
*13.RMCS1(R0) 
26 

$TMP2,$8DDAT 
PORTA, PTN8R 
$GDDAT,$BDDAT 
7A$ 

7 

$T^3.$8DDAT 
P0RT8.PTNBR 
$GDOAT,$eDDAT 
75$ 
7 

RELERR 
.♦6 
1$ 

;WRITE THE ATTENTION BIT 
0A5252 013760 001236 000016 MOV ASR1 .RMAS(RO) 



04^766 


042737 


100100 


001164 




BIC 


044774 


113760 


001226 


000010 




MOVB 


04S002 


016037 


000012 


00117? 




MOV 


045010 


042737 


024001 


001 1 72 




BIC 


045016 


013737 


001 1 72 


001166 




MOV 


045024 


042737 


100100 


001166 




BIC 


045032 


023737 


001164 


001166 




CMP 


045040 
045042 


001006 








BNE 


005737 


001164 






TST 


045046 


001045 








BNE 


045050 


104046 








EMT 


045052 


000137 


045236 




71$: 


JMP 


C45056 


013737 


001170 


001126 


MOV. 


045064 


013737 


001226 


001240 




MOV 


045072 


113760 


001226 


000010 




M0V8 


045100 


005737 


001164 






TST 


045104 


001414 








BEQ 


0^5106 


013737 
013737 


001224 


001240 




MOV 


045114 


001 1 72 


001126 




MOV 


045122 


113760 


001224 


000010 




M0V8 


045130 


005737 


001166 






TST 


045134 


001012 








BNE 


045136 


012737 


\77777 


001254 


72$: 


MOV 


045144 


012760 


00001 1 


000000 




MOV 


045152 


012760 


000013 


000000 




MOV 


045160 


104026 






73$: 


EMT 


045162 


013737 


001 1 70 


001126 


MOV 


045170 


013737 


001224 


001240 




MOV 


045176 


023737 


001124 


001126 




CMP 


045204 


001401 








BEQ 


045206 


104007 








£MT 


045210 


013737 


001 1 72 


001126 


74$: 


MOV 


045216 


013737 


001226 


001240 




MOV 


045224 


023737 


001 124 


001126 




CMP 


045232 


001401 








BEQ 


045234 


10400/^ 








EMT 


045236 


000240 






75$: 


NOP 


045240 


005737 


001254 






TST 


043244 


001402 
CC0137 








BEQ 


045246 


045372 






JMP 



045260 
045266 
045274 
045276 
045302 
045310 
045316 
045324 

045326 



016037 
033737 
001414 
010037 
062737 
013737 
043737 
104060 



000016 
001236 

001122 
000016 
001126 
001236 



001126 
001126 



001122 
001124 
001124 



;VER]FY THAT BOTH ATTENTIONS ARE 

MOV RMAS(RO),$60DAT 

BIT ASR1,$8DDAT 

BEQ 2$ 

MOV R0,$80ADR 

ADD *RMAS.$BDADR 

MOV $eDDAT,$GDDAT 

BIC ASR1.$GDDAT 

EMT 60 



CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER fROM POR^ B. 

.•CLEAR DONT CARES 
COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THE^ ZERO "> 
BR IF NOT 

BYPASS TSE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOk ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A, 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A 

SEE IF STATUS'eO ZERO FROM PORT B. 
B« IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
REIEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS OK ? 
8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHA/aGE PORT NUMBER 
SEE IF READ OK FROM PORT B. 
BR IF OK 



WAS DRIVE IN NEUTRAL?? 
YES! ! 

BYPASS REST OF TEST 



RESET BY READING RMAS 

;GET ATTENTION SUMMARY 
;IS THE ATTENTION RESET 
•YES ' ' 

•SETUP REGISTER ADDRESS 



; SETUP 
.RESET 



EXPECTED DATA 
THIS DRIVES BIT 



;WAIT FOR THE DRIVES TO RELEASE BY TIMEOUT 
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f<ESFT AMENHON 'A* & '8' Br RMAS 



1054 
10o7 
^068 



045^26 113760 G01224 000010 

045334 013737 001224 001240 

045342 005760 000012 

045346 001775 

045350 113760 001226 000010 

045356 013737 001226 001240 

045364 005760 000012 

045370 001775 

045372 000004 



-069 
110? 



wove PORTA, RMCS2(R0) ; SELECT PORT A 

MOV PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION fOR TlfPfOUT 

3$: TST RMDS(RO) ;MAKE SURE DEVICE IS AVAILABLE 

BEQ 3S 

M0V8 PORT8,RMCS2(R0) ; SELECT PORT B 

MOV PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 

4$: TST RMDS(RO) .'MAKE SURE DEVICE IS AVAILABLE 

BEQ 4S 
1$: SCOPE 



••*****•••*•»»***•********•**«•******•*«*•••***•*****«••*••*•*•• 

•TEST 34 PORT 'A' ALTERNATE ATTENTION PATH TEST 

•VERIFY THAT THE A| TERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL, 

• A. SET THE ATTENTION BIT FOR PORT 'A', 

• B. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

• C. READ THE ATTENTION REGISTER ft VERIFY THAT THE ATTENTION BIT 

FOR THE DRIVE IS SET. 



045374 








TST34: 








045374 


005737 


001300 






TST 


KY8CTL 


.•PERFORMING ONLY SINGLE TFST -> 


045400 


001406 








BEQ 


2S 


;8R IF NOT 


045402 


100002 








8PL 


IS 


;8R IF JUST ENTERED TEST 


045404 


000137 


003074 






JMP 


EXEC 


.•RETURN ft GET NEXT TEST NUMBER 


045410 


012737 




001 300 


1$: 


MOV 


#-1 AYBCTL 


.-SET SINGLE TEST INDICATOR 


045416 


012737 


045432 


001106 


2$: 


MOV 


*TEST34,$LPADR 


.•SETUP SCWE LOOP ADDRESS 


045424 


012737 


045432 


001110 




MCV 


*TEST34.$LPERR 


.•SETUP ERROR LOOP ADDRESS 


045432 








TEST34 








045432 


112737 


000034 


001102 




M0V8 


*34.$TSTNM 


;MOVE #34 TO TEST NLfBER 


045440 


012706 


001100 






MOV 


#STACK,SP 


.-LOAD THE JTACK POINTER 


045444 


012737 


000012 


001 1 76 




MOV 


#10..$TIMFS 


;;D0 10. ITERATIONS 










; CLEAR 


ATTENTION BITS FOR BOTH 


PORTS 


04 54 52 


1 1 3760 


001224 


000010 




M0V8 


P0RTA,RMCS2(R0) 


.•SELECT PORT *A 


045460 


005060 


000012 






CLR 


RMDS(RO) 


.-SEIZE THE DRIVE 


045464 


012760 


000011 


000000 




MOV 


#11.R«CS1(R0) 


.•ISSUE DRIVE CLEAR 


045472 


012760 


000013 


000000 




MOV 


#13.RMCS1(R0) 


;RELEASE THE DRIVE 


045500 


113760 


001226 


000010 




M0V8 


PORT8,R«CS2(R0) 


.•SELECT PORT *8 


045506 


005060 


000012 






CLR 


RMDS(RO) 


.SEIZE THE DRIVE THROUGH PORT 'B* 


045512 


012760 


00001 1 


000000 




MOV 


#11,RMCS1(R0) 


.•ISSUE DRIVE CLEAR 


045520 


012760 


000013 


000000 




MOV 


/r13,RMCS1(R0) 


.RELEASE THE DRIVE 


045526 


113760 


001224 


000010 




M0V8 


PORTA. RMCS2(R0) 


.•SELECT PORT A 


045534 


012760 


M7777 


000014 




MOV 


*-l ,RHER1 (RO) 


;SET ERRORS TO FORCE ATTN BIT ON PORT A 


045542 


005060 


000014 






CLR 


RMER1 (RO) 


.CLEAR THE ERRORS 


045546 


113760 


001226 


000010 




M0V8 


P0PT8,RMCS2(R0) 


.•SELECT PORT B 


045554 


005760 


000012 




1$: 


TST 


RMDS(RO> 


.-WAIT FOR DRIVE TO RETURN TO NEU^RAu 


045560 


001775 








BEQ 


1$ 


;8R IF STILL SEIZED BY PORT A 


045562 


012737 


000016 


00112? 




MOV 


#RMAS,SBDADR 


.-FORM ADDRESS OF ATTN REG IF ERRCR 


045570 


060037 


001122 






ADD 


RCSaOADR 


.'ADD THE ADDRESS BASE 



ZSMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 4-APR-^ 
PORT 'A' ALTERNATE ATTENMON PATH TEST 



0^5574 


013737 


001236 


0011 2A 


MOV 


0<.5602 


013737 


001236 


001166 


MOV 


OA 5610 


005137 


001 166 




COM 


0A56K 


012737 


OA 5650 


oonio 


MOV 


OA 5622 


1 1 3760 


001226 


000010 


M0V8 


OA 5630 


013737 


001226 


001 2A0 


MOV 


OA 5636 


013737 


001226 


001 2A2 


MOV 


0A56AA 


C05060 


000012 




CLR 


OA 5650 


016037 


000016 


001126 


2$: MOV 


0A56S6 


013737 


001126 


001 16A 


MOV 


0A566A 


0A3737 


001166 


001 16A 


BIC 


OA bbfc 


Od5f5r 


AA1 10/ 

001 I^A 


AA 1 1 y 




OA 5 700 


001A01 






BEQ 


OA 5/^02 


10A053 






EMT 


0A570A 








3$: 










• on TACP TUP 


A/ C7A/ 

OA b /^OA 




AA1 


AAAA 1 A 
UUUUl U 




0A5712 


013737 


001226 


001 2A0 


MOV 


OA 5 720 


012760 


OC001 3 


000000 


MOV 










.■VERIFY THAT 


0A5726 


005037 


001 25A 




CLR 


0A5732 


012737 


000012 


001122 


MOV 


0A57A0 


060037 


001122 




ADD 


0A57AA 


012737 


01 1 700 


001 12A 


MOV 


0A5752 


113760 


001 22A 


000010 


MOVB 


OA 5 760 


016037 


000012 


001 1 70 


MOV 


OA 5 766 


0A2737 


02A001 


001 1 70 


BIC 


0A577A 


013737 


001 1 70 


001 16A 


MOV 


0A6OO2 


0A2737 


100100 


001 16A 


BIC 


0A6010 


113760 


001226 


000010 


MOVB 


0A6016 


016037 


000012 


001172 


MOV 


0A602A 


0A2737 


02A001 


001 1 72 


BIC 


0A6032 


013737 


001 1 72 


001166 


MOV 


OA60AO 


0A2737 


100100 


001166 


311 


0A60A6 


023737 


001 16A 


001166 


CMP 


0A605A 


001006 






BNE 


0A6056 


005737 


001 16A 




TST 


0A6062 


001 OA 5 






BNE 


CA606A 


10A0A6 






EMT 


0A6066 


000137 


0A6266 




JMP 


0A6072 


013737 


001170 


001126 


6A$; MOV 


0A6100 


013737 


001226 


001 2A0 


MOV 


0A61O6 


113760 


001226 


000010 


MOVB 


0A61K 


005737 


001 164 




TST 


0A61 20 


001A1A 






BEO 


0A61 22 


013737 


001 22A 


001 2A0 


MOV 


0A6130 


013737 


001172 


001126 


MOV 


0A6136 


113760 


001 22A 


000010 


MOVB 


0A6KA 


005737 


001166 




TST 


0A6150 


001012 






BNE 


0A6152 


012737 


\7777? 


001 25A 


65S; MOV 


0A6160 


012760 


00001 1 


000000 


MOV 


0A6166 


012760 


000013 


000000 


MOV 


0A617A 


10A026 






EMT 



G 15 

1 18:06:25 PAGE 10-85 



ASRI.SGDDAT 
ASR1.$TMP1 
$TMP1 

#2$.$LPERR 

P0RTB,RMCS2(R0) 



;G00D DATA FOR ERROR MESSAGE 
;MAKE DATA COMPARE MASK 
.•COMPLEMENT IT 
.•LOAD LOOP ON ERROR ADDRESS 
.•SELECT PORT B 



PORfB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR T /F^OUT 
PORTS, SEIZPT .-'SEIZED' PORT ADDRESS 
RMDS(RO) .-SEIZE THE DRIVE THROUGH PORT B 

R«AS(R0),$8DDAT ;GET THE CONTENTS 0^ THE ATTENTION REG 



J8DDAT.$TMP0 
$TMP1,$TMP0 
SGDDAT.STMPO 
3$ 

53 

DRIVE FROM PORT B 



.-PUT CONTENTS INTO WORKING LOCATION 
.-CLEAR OTHER BITS 
;SFE IF ATTN BIT FOR DRIVE SET 
;8R IF SET 



PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS. PTNBR ;MOV£ PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

THE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO,$aDAOR ;ADD THE I/O BASE ADDRESS 

#MOL!PGM!DPRJDRY!VV.$GDDAT .-COMPARISON CONSTANT 
PORTA. RrCS2(R0) .-SELECT PORT A. 

RMDS(R0).$TMP2 .-GET THE DRIVE STATUS REGISTER FROM PORT A. 
#P1P :WRL!0M.$TMP2 ; CLEAR DONT CARES 



$TM?2,$TMP0 
#ATA.'VV.$TMP0 
PORTS. RMCS2(R0) 
RMDS(R0),$TMP3 . 
#PIP.'WRL!0M,$TMP3 
$T/iP3,STMP1 
#ATA!VV.$T«P1 
$TMP0.$TMP1 
6AS 
JTMPO 
66$ 
A6 
68S 

$TMP2,$eD0AT 
P0RTB.PTN8R 
P0RTB,RnCS2(R0) 
$TMPO 
65$ 

PORTA. PTN6R 
$TMP3.$8DDAT 
PORTA, RMCS2(R0) 
$TMP1 
66$ 

*-l, RELERR 
#11.RMCS1(R0) 
*13,RMCS1(R0) 
26 



COPY IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.-CLEAR DONT CARES 
COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME ^ROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ' 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 
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PORT 'A' Alternate attention path test 



1104 
'118 



0461 76 


013737 


001170 


001126 


66S: 


MOV 


$TMP2,SBDDAT 


LOOK FOR en FAILURES WHEN RUDS READ 


046204 


013737 


001224 


001240 




MOV 


PORTA.PTNBR 


CHAfJGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 


046212 


042737 


100000 


001126 




BIC 


#ATA,$8DDAT 


046220 


023737 


001124 


001126 




CMP 


SGDDAT,$8DDAT 


ALL BITS OK ? 


046226 


001401 








BEG 


67$ 


BR IF OK FROM PORT A. 


046230 


104007 








EMT 


7 




046232 


013737 


001 1 72 


001126 


67S: 


MOV 


$TMP3,$8DDAT 


•CHECK RMDS FOR BIT FAILURES - FROM PORT 


Q46240 


013737 


001226 


001240 




MOV 


PORTS, PTNBR 


•CHANGE PORT NUMBER 
•DON'T CHECK THE ATTN BIT 


046246 


042737 


100000 


001126 




BIC 


#ATA,$8DDAT 


046254 


025757 


001 1 24 


001 1 CO 




CMP 


SGDDAT.SBDDAT 


;SEE IF READ OK FROM PORT B, 


046262 


001401 








BEQ 


68S 


•8R IF OK 


046264 


104007 








EMT 


7 




046266 


000240 






68S: 


NOP 






046270 


000004 








SCOPE 


;LOOP ? 



P19 
112C 



046350 
046356 
046362 
046370 
046376 
046404 
046410 
046416 
046424 
046432 
046440 
046444 



TEST 35 PORT 'B* ALTERNATE ATTENTION PATH TEST 

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

A. SET THE ATTENTION BIT FOR PORT '3'. 

B. SEIZE THE DRIVE THROUGH PORT 'A' Bv'wRITING O'S INTO RMDS. 

C. READ THE ATTENTION REGISTER & V^IIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 



046272 








TST35: 








046272 


0057.^ 


001 300 






TST 


KY8CTL 


PERFORMING ONLY SINGLE TEST ? 


046276 


001406 








BEO 


2$ 


8R IF NOT 


046300 


100002 








BPL 


1$ 


•8R IF JUST ENTERED TEST 


0^6302 


000137 


003074 






JM? 


EXEC 


•RETURN fc GET NEXT TEST NUMBER 


046306 


012737 


-{77777 


001 300 


1$: 


MOV 


*-1.KYBCTL 


■SET SINGLE TEST INDICATOR 


046314 


012737 


046330 


001106 


2$: 


MOV 


*TEST35.$LPADR 


•SETUP SCOPE LOOP ADDRESS 


046322 


012737 


046330 


001 no 




MOV 


#TEST35,$LPERR 


•SETUP ERROR LOOP ADDRESS 


046330 








TFST35; 






046330 


112737 


000035 


001102 




Move 


*35.$TSTNM 


•MOVE #35 TO TEST NUMBER 


046336 


012706 


001100 






MOV 


*STACK,SP 


•LOAD THE STACK POINTER 


046342 


012737 


000012 


001 1 76 




MOV 


#10..$TIMES 


•;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 
113760 
012760 
005060 
113760 



001224 
000012 
00001 1 
000013 
001226 
000012 
00001 1 
000013 
001226 
\77777 
000014 
001224 



000010 

000000 
000000 
000010 

000000 
000000 
000010 
000014 

000010 



M0V8 PORTA, RMCS2(R0) 

CLR RMDS(RO) 

MOV *11,RMCS1(R0) 

MOV *13,RMCS1(R0) 

M0V8 P0RT8,RMCS2(R0) 

CLR RMOS(RO) 

MOV #11.RMCS1(R0) 

MOV #13,RMCS1 (RO) 

MO*:J PORTS, RMCS2(R0) 

MOV #-1 ,RMER1 (RO) 

CLR RMERKRO) 

M0V8 PORTA, RMCS2{R0) 



SELECT PORT *A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT *8 

SEIZE THE DRIVE THROUGH PORT "B* 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

.•SELECT PORT 8 
;SET ERRORS TO FORCE ATTN BIT ON PORT B 
.•CLEAR THE ERRORS 

.'SELECT PORT A 



PORT '8' ALTERNATE ATTENTION PATH 



046456 
046460 
046466 
046472 
046500 
346506 
046512 
046520 
046526 
046554 
046542 
046546 
046554 
046562 
046570 
046576 
046600 
046602 



005760 
001775 
012757 
060057 
015757 
CI 5757 
005157 
012757 
1 1 5760 
015757 
015757 
005060 
016057 
015757 
045757 
025757 
001401 
104055 



000012 

000016 
001122 
001256 
001256 
001166 
046546 
001224 
001224 
001224 
000012 
000016 
001126 
001166 
001124 



046624 
046650 
046656 
046642 
046650 
046656 
046664 
046672 
046700 
046706 
046714 
046722 
046750 
046756 
046744 
046752 
046754 
046760 
046762 
046764 
046770 
046776 
047004 
047012 
047016 
047020 
047026 
047054 
047042 
047046 



005057 
012757 
060057 
012757 
115760 
016057 
042757 
015757 
042757 
115760 
016037 
042737 
013757 
042737 
023757 
001006 
005757 
001045 
104046 
000157 
015757 
013737 
113760 
005737 
001414 
015737 
013757 
115760 
COS 757 
001012 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



047164 
001 1 70 
001226 
001226 
001164 

001224 
001172 
001224 
001166 



001122 

001124 
001166 

001110 
000010 
001240 
001242 

001126 
001164 
001164 
001164 



046602 115760 001224 000010 
046610 015757 001224 001240 
046616 012760 000015 000000 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 

001126 
000010 



IS: 



2S: 



, 00 4-APR-8 1 
TEST 

TST 
BEO 
MOV 
ADD 
MOV 
MOV 
COM 
MOV 
M0V8 
MOV 
MOV 
CLR 
MOV 
MOV 
BIC 
CMP 
BFQ 
EMT 



18:06:£f5 



I 
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SEO OV/ 



RMDS(RO) 
1$ 

#RMAS,SeDADR 
R0,S8DADR 
ASRI.SGDDAT 
ASRl.STMPI 
STMPl 

4r2S,SLPERR 
PORTA. RMCS2(R0) 



UAJT FOR DRIVE TO RETURN TO NEUTRAL 

6R IF STILL SEIZED BY PORT 6 

FORM ADDRESS OF ATTN REG IF ERROR 

ADD THE ADDRESS BASE 

GOOD DATA FOR ERROR MESSAGE 

MAKE DATA COMPARE MASK 

COMPLEMENT IT 

LOAD LOOP ON ERROR ADDRESS 
.•SELECT PORT A 



PO.'^TA.PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



3$. 

.•RELEASE THE 

M0V8 

MOV 

MOV 



PORTA.SEIZPT 
RMDS(RO) 
RMAS{R0).S8DDAT 
$8DDAT,$TMP0 
STMPI .$TMPO 
$6DDAT.$TMP0 
5$ 
55 



•SEIZED' PORT ADDRESS 
SEIZE THE DRIVE THROl'GH PORT A 
GET THE CONTENTS OF THE ATTENTION REG 
PUT CONTENTS INTO WORKING LOCATION 
CLEAR OTHER BITS 
SEE IF ATTN BIT FOR DRIVE SET 
8R IF SET 



DRIVE FROM PORT A 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#15,RMCS1 (RO) .'ISSUE RELEASE THROUGH PORT A 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



64$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

MGVB 

MOV 

SIC 

MOV 

BIC 

CMP 

6NE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

MOV 

M0V8 

TST 

BNE 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.$8DADR .-ADD THE I/O BASE ADDRESS 

#MOL!PGM!DPR!DRy!VV,$GDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .-SELECT PORT A. 

Rr«)S(R0),$TMP2 .-GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PI P!WRL!0M.$TMP2 .-CLEAR DONT CARES 



$TMP2.$TMP0 
#ATA!VV.STMP0 
PORTS. RMCS2(R0) 
RMDS(R0),$TMP3 . 
#PIP1URL!0M.$TMP3 
$TMP3.$TMP1 
#ATA.'VV.$TMP1 
fTMPO.STMPl 
64$ 
$TMPO 
66$ 
46 
68$ 

$TMP2.$BDDAT 
PORTS. PTNBR 
PORTS, RMCS2(R0) 
$TMPO 
65$ 

PORTA, PTNBR 
$TMP5.$8DDAT 

PORTA, RMCS2(R0) 
$TMP1 
66$ 



COPY IT INTO '$TMP0' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.•CLEAR DONT CARES 
COPY IT INTO •$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
SR IF NOT 

BYPASS TH: REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
8R IF NOT 



^ZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 
PORT 'B' ALTERMATE ATTENTION PATH TEST 
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bEO 0128 



n?i 

1138 





A1 '57T7 


1 77777 


001 c J** 


o3» : 


nu V 


«-1 QFl PRO 




A1 '5 7Z. A 


AAAAI 1 


UOOOOU 




nUV 




Ay 7A^y 


A1 "5 7^ A 


UUUO 1 5 


uouooo 




nu V 


w 1 J , nnc J 1 I nU / 


A/ 7A7'5 


1 A/ 








PMT 


CD 


A/ "^A?/ 

Oh /'O /h 


A1 '?717 

01 5f 5f 


AA1 1 7n 

001 1 i\J 


Ar 1 1 "it- 
00 1 ICO 


oo> . 


Mnu 
nuv 


> 1 rrc t >OUi/M 1 


A/ 71 Al 


A1 T777 


AA1 0 0/ 

001 cd^ 


AA1 T/.A 

001 <:'»0 




mnw 
nuv 


DnOTA PTMPO 
r Un 1 ^ r 1 ivOn 




Ay "5717 


1 AAAAA 

1 00000 


AA1 1 
UO 1 1 CO 




□ i L 




0A7116 


A'3T7'77 


AiTI 1 "iL 

001 iCH 


nni 1 
UU 1 1 CO 








Ay "71 "5/ 


AA1 / A1 
001 *>U 1 








ocu 


Of • 


Ay 71 "5^ 


1 il/ AA 7 








FMT 

cn 1 


7 

# 


A/ 71 Xi\ 


A1 '?7X7 


nni 1 7P 


UU 1 1 cO 


Or « • 


Mnu 


tTMP3 tRDDAT 


rw. 71 


ni X7X7 


UU 1 ccO 


nni ?in 

UU 1 C'U 




Mnu 


PORTR PTMRR 
r un 1 a # I 1 'wO'^ 


0^7144 
047152 




1 00000 


001 126 




BJC 


ATATA.SBDDAT 


023737 


001124 


001126 




CMP 


$GDDAT,$BDDAT 


047160 


001401 








BEQ 


68S 


047162 


104007 








EMT 


7 


047164 


000240 






68$: 


NOP 




047166 


000004 








SCOPE 





n40 

1169 



047246 
047254 
047260 
047266 



;SET 'RELEASE ERROR* INDICATOR 
.•CLEAR THE DRIVE 
.'RELEASE THE DRIVE 

.•LOOK FOR BIT FAILURES WHEN RMDS READ 

; CHANGE PORT NUMBER 

.•DON'T CHECK THE ATTN BIT 

;ALL BITS OK ? 

;8R IF OK FROM PORT A. 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
.•CHANGE PORT NUMBER 
.'DON'T CHECK THE ATTN BIT 
;SEE IF READ OK FROM PORT B. 
;8R IF OK 



.•LOOP ? 



TEST 36 



SET ATTENTION 'A' BY COMMMAND TEST 



TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BUS AFTER A 
COMMAND. 

A. ISSUE A OFFSET COMMAND THROUGH PORT 'A'. 

B. WAIT FOR THE OFFSET COMMAND TO COMPLETE ('DRY' TO BECOME 
•r>. VERIFY THAT THE ATTENTION BIT FOR PORT 'A' IS SET AND 
THAT THE ATTENTION BIT FOR PORT '8' IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



047170 








047170 


005737 


001300 




047174 


001406 






047176 


100002 






C47200 


000137 


003074 




047204 


012737 


M7777 


001300 


047212 


012737 


Oi*722t 


001106 


047220 


012737 


0^7226 


001110 


047226 








047226 


112737 


000036 


001102 


047234 


012706 


001100 




047240 


012737 


000012 


001 1 76 



TST36: 



1$: 
2%: 

TEST36: 



TST KY8CTL 

BEQ 2$ 

8PL U 

JMP EXEC 

MOV #-l.KY8CTL 

MOV #TEST36,$Lr'ADR 

MOV #TEST36,SLPERR 

M0V8 #36,$TSTNM 

MOV fSTACK.SP 

MOV #10..STIMES 



.•PERFORMING ONLY SINGLE TEST ? 
;8R IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN ft GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.-SETUP ERROR LOOP ADDRESS 

;MOVE *36 TO TEST NUMBER 
;LOAD THE STACK POINTER,; 
;;D0 10. ITERATIONS ♦ 



113760 
005060 
012760 
012760 



001224 
000012 
00001 1 
000013 



000010 

000000 
000000 



;CLEAR ATTENTION BITS FOR BOTH PORTS 

M0V8 PORTA,RMCS2(R0) ; SELECT PORT #A 

CLR RMDS(RO) ; SEIZE THE DRIVE 

MOV #11.RMCS1(R0) ; ISSUE DRIVE CLEAR 

MOV #13.RMCS1(R0) .'RELEASE THE DRIVE 



rZRMRBO RM05/3/? DU POR TST 1 MACRO V0'..00 
T56 StT ATTENTION 'A* BY COMMMAND TEST 
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047302 
047306 
047314 
047322 
047330 
047336 



047344 1 



11376t 
005060 
012760 
012760 
1 1 3760 
013737 
013737 



001226 
000012 
000011 
00001 3 
001224 
001224 
001224 



000010 

000000 
000000 
000010 
001240 
001242 



MO ye 

CLR 

MOV 

MOV 

M0V8 

MOV 

MOV 



PORTB.RMCS2(R0) 
RMDS(RO) 
#11.RMCS1 (RO) 
#13.RMCS1 (RO) 
PORTA,RMCS2(R0) 



SELECT PORT *8 

;SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 
;RELEASE THE DRIVE 
.•SELECT PORT A 
PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION fOK TVPEOUT 
PORTA, SEIZPT .'SEIZED' PORT ADDRESS 



012760 000015 000000 



047352 ' 032760 
047360 001774 



000200 000012 



047472 
047500 
047506 



047514 
047520 
047526 
047532 
047540 
047546 
047554 
047562 
047570 
047576 
047604 
047612 
047620 
047626 



;D0 A OFFSET THROUGH PORT A 

MOV #15.RMCS1(R0) 

.■WAIT FOR DRIVE TO FINISH 

BIT #DRY.RMDS(R0) 
BEQ .-6 



.•ISSUE A OFFSET INSTRUCTION THROUGH PORT A 



.•WAIT FOR DRIVE TO FINISH 
.'BR IF NOT FINISHED 



.•CONFIRM THAT ATTENTION IS SET FOR PORT A 



047362 


005037 


001 250 




CLR 


047366 


016037 


000012 


001126 


MOV 


047374 


012737 


000012 


001122 


MOV 


047402 


060037 


0011:2 




ADD 


047^06 


012737 


100000 


001124 


MOV 


047414 


013737 


001126 


001164 


MOV 


047422 


042737 
023737 


077777 


001164 


BIC 


0^7430 


001124 


001164 


CMP 


047436 


001414 






BEQ 


047440 


013737 


001126 


001 1 74 


MOV 


047446 


042737 


100000 


001 1 74 


BIC 


0474« 


053737 


001 1 74 


001124 


BIS 


0474d^ 


104032 






EMT 


047464 


005137 


001250 




COM 


047470 


000240 




64 S : 


NOP 



INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' 

R«DS(R0),J8DDAT ;GET CONTENTS OF RMOS 
#RMDS.$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO 'STMPO* 
:SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.•COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
.•'OR' WITH GOOD DATA FOR TYPEOUT 



RO,SeDADR 
#ATA.$GDDAT 
JBDDAT, STMPO 
**CATA. STMPO 
SGDDAT. STMPO 
64S 

$8DDAT,STMP4 
#ATA.$TMP4 
$T<>V»4. SGDDAT 

32 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE THE DRIVE FROM PORT A 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 



001224 
001224 
00001 3 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001 1 72 
100100 



000010 
001240 
000000 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 



M0V8 P0RTA,RMCS2(R0) .'SELECT PORT A 

MOV PORTA, PTffiR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13. RMCSKRO) .ISSUE RELEASE THROUGH PORT A 



.■VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



INDICATOR 
FOR TYPEOUT 



CLR RELERR .'CLEAR THE 'RELEASE ERROR 

MOV #W>1DS,S8DADR .FORM THF ADDRESS OF RWS 

ADD R0,S8DADR ,ADD THE I/O BASE ADDRESS 

MOV JWOL ; PGM! DPR : DRY :VV. SGDDAT .-COMPARISON CONSTANT 

M0V8 PORTA. ftMCS2(R0) .SELECT PORT A. 

MOV RMDS(R0).STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A 

BIC #PI P. ' URL !0M,STMP2 ;CLEAR DONT CARES 

MOV $TMP2, STMPO ;COPY IT INTO 'STMPO* 

BIC #ATAIVV.STW>0 ; CLEAR PORT DEPENDENT BITS FROM THE COPY 

M0V8 PORTS, RMCS2(R0) .SELECT PORT B. 

MOV RMDS(R0),STW»3 ;GET THE DRIVE STATUS REGISTER FROM PORT B 

BIC #PIP!WRL !0M.$TMP3 .-CLEAR DONT CARES 

MOV STMP3,STMP1 ;COPY IT INTO 'STMPT 

BIC #ATA.VV,$TMP1 .'CLEAR PORT DEPENDENT BITS FROM THf fQpv 



;~MMBO RM05/3/^ DU POR TST i MACRO VO^.OO 
SET ATTENTION 'A' BY COMMMAND TEST 



04763A 
OA 7642 
047644 
047650 
047652 
047654 
047660 
047666 
047674 
047702 
0<.7706 
047710 
047716 
047724 
047732 
047736 
047740 
047746 
047754 
C47762 
047764 
047772 
050000 
050006 
050010 
050012 
050020 
050026 
050034 
050036 
050040 
050042 
050050 



02373^ 

001006 

00573/ 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

Ol3/'37 

023737 

001401 

104007 

013737 

013737 

023737 

001401 

104007 

000240 

113760 

013737 



001164 
001164 



050040 
001170 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

-[71777 
000011 
000013 

001170 
001224 
001124 



001172 
001226 
001124 



001226 
001226 



001126 
001240 
001126 



001126 
001240 
001126 



000010 
001240 



1170 
1186 
1187 



050056 


005037 


001250 




050062 


016037 


000012 


001126 


050070 


012737 


000012 


001122 


050076 


060037 


001122 




050102 


005037 


001124 




050106 


013737 


001126 


001164 


050114 


042737 


077777 


001164 


050122 


023737 


001124 


001164 


050130 


001414 






050132 


013737 


001126 


001174 


050140 


042737 


100000 


001174 


050146 


053737 


001174 


001124 


050154 


104032 






050^56 


005137 


001250 




050162 


000240 






050164 


000004 







66S: 



001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 67S: 

000000 

OOOOOC 



68S: 



69S: 



70$: 





L 15 




1B-06VS PAliF 10 


fMP 


STMPO &TMP1 






TST 


&TMPO 




68S 


FMT 


46 




70$ 




$TMP? IfiDDAT 


MOV 


PORTS PTNfiR 




PORTB RMCS?(RO) 


TST 


$T,'*IPO 




67$ 


MOV 


PORTA PTNBR 


MOV 


iTMP3 IBDDAT 


MOVR 


PORTA RMrSP(RO) 


TST 


$TMP1 




68$ 


MOV 


H~\ RFt ERR 


MOV 


iri 1 RMCSl (RO) 


MOV 

' Iw T 


3 RMCSl (RO) 


EMI 

Lb* I ■ 


26 


MOV 


$TMP2 $fiDDAT 


MOV 


PORTA PTNBR 


CMP 


$GDDAT $BDDAT 




69$ 

W ' * 


EMT 




MCV 

1 Iw w 


STMP3 $BDDAT 


MOV 


PORTB PTNBR 


CMP 


$GDDAT $fiDDAT 




70$ 


EMT 


7 


NOP 




M0V8 


P0RT8,RMCS2(R0) 


MOV 


PORTB, PTr«R ;M 



StO 01 ?( 



IS THE STATUS REGISTER THE SAME f»OM BOTH pqR^ > 
8R IF tgOT 

REGISTERS ARE THE SAME: ARE THEr ZERO ' 
BR IF NOT 

8VPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NfUTRAL 
'BAD DATA' FOR ERROR TrPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOP BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

SR IF OK 



;SEI ECT PORT B 



.•CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 



71$: 



CLR 
MOV 
MOV 
ADD 
CLR 
MOV 
BIC 
CMP 
F^EO 
MOV 
BIC 
BIS 
EMT 
COM 
NUP 

SCOPE 



CKERR 
RMDS(R0).$8DDAT 
*RMDS,$8DADR 
R0.$8DADR 
$GDDAT 

$8DDAT.$TMP0 
**CATA.$TMPO 
$GDDAT,$TMPO 
71$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4,$GDDAT 
32 

CKERR 



.•CLEAR THE 'CHECK ERROR* INDICATOR 
;GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF €RROR MESSAGE 

.ADD RH/RM BASE ADDRESS 

;UhAT REGISTER SHOULD BE 

;MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
COMPARE THE BITS 

;BR IF OK 

;COPY 'BAD DATA* 

.•CLEAR THE MASKED BITS 

;'0R* WITH GOOD DATA FOR TYPEOUT 

;StT THE REGISTER COMPARE ERROR INDICATOR 



.LOOP 



.••TEST 37 



SET ATTENTION '8' BY COMMMAND TEbT 



CZRMRBO RMOS/3/2 DU P(W TST 1 MACRO VOA.OO 
SET ATTENTION 'B' BY COWMAND TEST 



1188 
1189 



050244 
050252 
050256 
050264 
050272 
050300 
050304 
050312 
050320 
050326 
050334 



050350 
050356 



050360 
050364 
050372 
050400 
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TEST THE OPERATION Of THE PORT A AND PORT 6 ATTfMJON BITS AMfR A 
COMriAND. 

A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B*. 

B. WAir FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY' TO BECOME 
T). VERIFY THAT THE ATTENTION BIT FOR PORT 'B' IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'A* IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'B' . VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



050166 








tST37: 








050166 


005737 


001300 






TST 


KYBCTL 


.•PERFORMING ONLY SINGLE TEST ? 


050172 


001406 








BEQ 


2$ 


;8R IF NOT 


0501 74 


100002 








BPL 


1» 


;8R IF JUST ENTERED TEST 


0501 76 


000137 


003074 






JMP 


EXEC 


; RE TURN S GET NEXT TEST NUMBER 


C50202 


012737 


1 77777 


001300 


1$: 


MOV 


#-1. KYBCTL 


;SET SINGLE TEST INDICATOR 


050210 


012737 


050224 


001106 


2$: 


MOV 


#Tr ^T37,$LPADR 


.-SETUP SCOPE LOOP ADDRESS 


050216 


012737 


050224 


001110 




MOV 


''.;est37,slperr 


.•SETUP ERROR LOOP ADDRESS 


050224 








TEST37: 






;MOVE #37 TO TEST NUMBER 


050224 


112737 


000037 


001102 




M0V8 


#37,$TSTNM 


050232 


012706 


001100 






MOV 


#STACK.SP 


.•LOAD THE STACK POINTER 


050236 


012737 


000012 


001176 




MOV 


#10.,$TIM£S 


;;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 
113760 
013737 
013737 



001224 
000012 
000011 
000013 
001226 
000012 
000011 
000013 
001226 
001226 
001226 



000010 

000000 
000000 
000010 

000000 
000000 
000010 
001240 
001242 



M0V8 

CLR 

MOV 

MOV 

MOVB 

CLR 

MOV 

MOV 

MOVB 

MOV 

MOV 



PORTA. RMCS2(R0> 
RMDSCRO) 
#11,RMCS1(R0) 
#13.R«CS1(R0) 
P0RT8,RMCS2(R0) 
R«nS(R0) 
*11.RMCS1(R0) 
#13.RMCS1<R0) 
PORTS, RMCS2(R0) 



SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



:SELECT PORT «8 

;SEIZE THE DRIVE THROUGH PORT "B* 
ISSUE DRIVE CLEAR 
;RELEASE THE DRIVE 
'SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTS. SEIZPT ; 'SEIZED' PORT ADDRESS 



050342 012760 000015 000000 



032760 
001774 



005037 
016037 
012737 
060037 



000200 000012 



;00 A OFFSET THflUUGH PORT B 

MOV #15,RMCS1(R0) 

;UAIT FOR DRIVE TO FINISH 

BIT *DRY.RMDS(RO) 
BEQ .-6 



.•ISSUE A OFFSET INSTRUCTION THROUGH PORT B 



;WAiT FOR DRIVE TO FINISH 
;8R IF NOT FINISHED 



001250 
000012 
000012 
001122 



001126 
001122 



.•CONFIRM THAT ATTENTION IS SET FOR PORT B 

CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(R0).$8DDAT .-GET CONTENTS OF RMDS 

MOV #RM0S,S8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADO RO.SBDAOR ;ADD RH/RM BASE ADDRESS 
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N 

PAGE 



15 
10- 



92 



SEO 013? 



050A04 
050A12 
05OA20 
050A26 
050A34 
050A36 
050A44 
050A52 
050460 
050462 
050A66 



050470 
050476 
050504 



050512 
050516 
050524 
050530 
050536 
050544 
050552 
050560 
050566 
050574 
050602 
050610 
050616 
050624 
050632 
050640 
050642 
050646 
050650 
050652 
050656 
C50664 
050672 
050700 
050704 
050706 
050714 
050722 
050730 
050734 
050736 
050744 
050752 
050760 
050762 
050770 
0507/6 



012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104032 
005137 
000240 



100000 
001126 
077777 
001124 

001126 
100000 
001 1 74 

001250 



001124 
001 1 64 
001164 
001164 

001 1 74 
001 1 74 
001124 



113760 001226 000010 
013737 001226 001240 
012760 000013 000000 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 
012760 
104026 
013737 
013737 
023737 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



051036 
001170 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

1 77777 
00001 1 
000013 

001170 
001224 
001124 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 
000000 
OOOOCO 

001126 
001240 
001126 



64S: 



MOV (TATA.SGDDAT 

MOV SBDDAT.STMPO 

BK **CATA,$TMPO 

CMP SGDDAT.$TMPO 

BEQ 64$ 

MOV $8DDAT.$TMP4 

BIC #ATA,$TMP4 

BIS $LMP4.$GDDAT 

EMT 32 

COM CKcRR 

NOP 



;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPV 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.-RELEASE THE DRIVE FROM PORT B 



M0V8 PORT8,RMCS2(R0) .'SELECT PORT B 

MOV PORTS. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13.RMCS1(R0) ;ISSUE RELEASE THROUGH PORT B 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



66S: 



67$; 



68$; 



CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

BNE 

."'lOV 

MOV 

MOV 

EMT 

riov 

MOV 

CMP 



• INDICATOR 
FOR TYPEOUT 



RELERR .-CLEAR THE 'RELEASE ERROR 

*RMDS.$8DADR ;FORM THE ADDRESS OF RMDS 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

/irM0L!PGM!DPR!DRY.VV,$6DDAT ; COMPARISON CONSTANT 
PORTA,RMCS2(R0) .-SELECT PORT A. 

RMDS(R0),$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A, 
*PIP!URL!0M.$TMP2 .-CLE.AR DONT CARES 

$TMP2,$TMP0 ;C0PY IT INTO 'SUVO' 

#ATA!VV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$TW>3 :6ET THE DRIVE STATUS REGISTER FROM PORT B. 
*PIP!URL!0M,$TMP3 ; CI EAR DONT CARES 



$TMP3.$TMP1 
*ATAIVV.$TMP1 
$TW»0,$TMP1 
66$ 
$TMPO 
68$ 
46 
70$ 

$TMP2.$8DDAT 

P0RT8.PTNBR 

PORTS, RMCS2(R0) 

$TMPO 

67$ 

PORTA, PTNBR 

$TMP3.$8DDAT 

PORTA.RMCS2(fvO) 

$TMP1 

68$ 

*-1 .RELERR 
#11.RMCS1(R0) 
#13,RMCS1(R0) 
26 

$TMP2.$B0DAT 
PORTA, PTNBR 
$GDDAT.$BDDAT 



COPY IT' INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAl 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
BR IF ZERO 
SEIZING PORT IF TEST 
•BAD DATA' FOR ERROR 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



SHOWS DRIVE 
TYPE OUT 



NOT IN NEUTRAL 



LOOK FOR BIT FAIIURES 
CHANGE PORT NUMBER 
ALL BITS OK ? 



WHEN '<rD' RfcAD 



"ET ATTEMTION 'B' BV COWKAND TEST 
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051004 00K01 



0^)1006 
051010 
051016 
05102-, 
051032 
051054 
051056 
051040 



104007 
015757 
015757 
025757 
001401 
104007 
000240 
1 1 3760 



001172 
001226 
001124 



001126 
001240 
001126 



001224 000010 



051046 015737 001224 001240 



051054 
051060 
051066 
051074 
051100 
051104 
C51112 
051120 
051126 
051150 
051156 
051144 
051152 
051154 
051160 



1195 

1203 
1204 



1205 
1206 
1215 
1216 
1217 



1218 
1219 
1240 
1241 



005057 
016057 
012757 
060057 
005057 
013737 
042737 
025757 
001414 
015757 
042757 
C55757 
104052 
005137 
000240 



051162 000004 



001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001174 
001124 



69$; 



70S: 



BEQ 
E«T 

MOV 
CMP 
BEC 
E«T 

NOP 

M0V8 

MOV 



69$ 

7 

$TMP3.$8DDAT 
POfiTB.PTNBR 
$GDDAT,$6DDAT 
70S 

7 



;BR r or FROM PORT A. 

.-CHECK RMDS f OR BIT FAILURES ' fROM PORT 8. 

. CHANGE PORT NUWER 

.SEE IF READ OK FROM POR" B. 

;8R IF OK 



P0RTA.RMCS2(R0) .-SELECT PORT A 

POr^TA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TyPEDuT 



.•CONFIRM THAT ATTENTION IS NOT SET FOR PORT A 



71$: 



CLR 
MOV 
MOV 
ADD 
CLR 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 

SCOPE 



CKERR 
RMDS(R0).S8DDAT 
*RMDS,$8DADR 
RO.SBDADR 
$GDDAT 

$8DDAT.$TMP0 
#*CATA.$TMPO 
$6DDAT.$TMP0 
71$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4.$GDDAT 
52 

CKERR 



CLEAR THE 'CHECK ERROR' INDICATOR 
.-GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO •$TMPO' 
SAVE SPECIFIED BITS 
.COMPARE tHE BITS 
;8fl IF OK 
;COPV 'BAD DATA' 
; CLEAR THE MASKED BITS 
.-•OR' WITH GOOD DATA FOR TyPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.-LOOP ? 



VERIFY THAT A CHANGE IN UNIT READY SETS THE ATTENTION 
FOR BOTH PORTS. 

THIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 



VERIFY THAT ATTENTION SETS WHEN THE DRIVE SWITCHES AFTER 
BEING RELEASED. 

THIS IS PERFORMED DURING THE "SET PORT REQUEST TEST" 



•TEST 40 PORT 'A* SET VOLLWE VALID TEST 

•VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 

• A. WITH PORT 'A' SELECTED. RESET AND SET "UNIT READY" 



C 16 

RMRBO t<M0S/^/2 DU POR TST 1 MACRO VOA.OO h-APR-81 18:06:25 PAGE 10-94 
0 r^ORT 'A' 3ET VOLUME VALID TEST 



12A2 
1284 



051242 
051250 
051256 
051264 
051272 
C51300 



051306 
051312 
051320 
051326 
051332 
051340 
051346 
051354 
051362 
051364 
051372 
051400 
051406 



STATUS USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT 'VOLlWE VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLIWE VALID 
IS i,ET. 

C. RELEASE THE DRIVE FROM PORT 'A' AND SELECT THE DRIVE FOR 
PORT '0'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALit IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT '8' THEN RELEASE PORT 'B' . 



051164 








TST40: 








051164 


005737 


001300 






TST 


KY8CTL 


PERFORMING ONLY SINGLE TEST ? 


051170 


001406 








BEO 


2$ 


BR IF NOT 


051 172 


100002 








BPL 


1$ 


8R IF JUST ENTERED TEST 


051174 


000137 


003074 






JMP 


EXEC 


RETURN £ GET NEXT TEST NlfBER 


051200 


012737 


-[77777 


001300 


1$: 


MOV 


*-l.KYBCTL 


■SET SINGLE TEST INDICATOR 


051206 


012737 


051222 


001106 


2$: 


MOV 


#TEST40,$LPADR , 


; SETUP SCOPE LOOP ADDRESS 


051214 


012737 


051222 


001110 




MOV 


#TEST40,$LPERR 


; SETUP ERROR LOOP ADDRESS 


051222 








TEST40: 








051222 


112737 


000040 


001102 




Move 


*40,$TSTNM 


;MOVE *40 TO TEST Nl^R 


051230 


012706 


001100 






MOV 


#STACK,SP 


;LOAD THE STACK POINTER 


051234 


012737 


00C012 


001 1 76 




MOV 


#10.,$TIMES 


;;D0 10. ITERATIONS 



SEIZE PORT A BY yRITING THE MAINTENANCE REGISTER.RMMRl . SET 
AND RESET 'MAINTENANCE UNIT READY" TO CAUSE V0Ll#1E VALID TO 
RESET AND ATTENTION TO SET. 

.SEIZE THE DRIVE THROUGH PORT A 



113760 
013737 
012760 
013737 
012760 
012760 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104064 



001224 
001224 
000001 
001226 
001001 
000000 



001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001 1 74 



000010 
001242 
000024 
001244 
000024 
000024 



001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



.-VERIFY 



M0V8 
MOV 

MOV 
MOV 
MOV 
MOV 

THAT 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 



P0RTA.RMCS2(R0) ;SlLECT PORT A 
PORTA,SEIZPT .-STORE SEIZING PORT'S ADDRESS 
#DMD.RMMR1(R0> .-WRITE DMD INTO RMMR1 
PORTS. OPPRT ; 'OPPOSITE' PORT ADDRESS 
*DMD!MUR,RMMR1(R0) .-SET UNIT READY 

*0.ftMMR1<R0) .-RESET DIAGNOSTIC MODE 

ATA = 1.VV = 0 FOR PORT A 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS{R0),$6DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

;M0VE REGISTER CONTENTS TO 'STMPO' 
.SAVE SPECIFIED BITS 
COMPARE THE BITS 
:BR IF OK 
COPY 'BAD DATA* 
CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEDJT 



RO.SBDADR 
fATA.SGDDAT 
$8DDAT. STMPO 
#*CATA. STMPO 
SGDDAT, STMPO 
66S 

$8DDAT,STMP4 
*ATA.$TI«'P4 
STMP4,SGDDAT 
64 



rZRMRBO RM05/5/2 DU P0« TST 1 HACRO V04.00 
"A* PO»*T 'A* SET VOLUME VALID TEST 



0514K 

05K16 
05U22 
051430 
05K56 
05U42 
05U46 
051454 
051462 
051470 
051472 
051500 
051506 
051514 
051516 
051522 



C51524 
051532 



051540 
051544 
051552 
051560 
05 1 564 
051572 
051600 
051606 
051614 
051616 
051624 
051632 
051640 
051642 
051646 
051650 
051654 
051662 
C51670 
051674 
051702 
051710 
051716 
051724 
051726 
051734 
051742 
051750 
051752 
051756 



005157 
000240 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104065 
005137 
000240 



012760 
012760 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104013 
005137 
000240 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 



001250 

001250 
000012 
000012 
001122 
001124 
001126 
177677 
001124 

001126 
000100 
001174 

001250 



00001 1 
000021 



001250 
000012 
000012 
001122 
000100 
001126 
177677 
001124 

001126 
000100 
001174 

001250 

001250 
000012 
000012 
001122 
01 1 700 
001126 
024007 
001124 

001126 
153770 
001174 

001250 



66$: 



001126 ' 
001122 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



000000 
000000 



001126 
001122 

00^124 
001164 
001164 
001164 

001174 
001174 
001124 



001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



68t: 



4-APR-81 



COM 
NOP 
CLR 
MOV 
MOV 
ADD 
CLR 
MOV 
BIC 
CMP 
BEO 
MOV 
BJC 
BIS 
EMI 
COM 
NOP 
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CKERR 



.SET THE REGISTER COMPARE ERROR INDICATOR 



INDICATOR 



CKERR .CLEAR THE 'CHECK ERROR' 

RMDS(R0).$BDDAT ;GET CONTENTS OF RMDS 
♦RMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.•ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO 'STMPO* 
.SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
.•BR IF OK 



RO.SBDADR 
SGDDAT 

SBDDAT.STMPO 
#*CVV,$TMPO 
SGDDAT.STMPO 
68S 

$8DDAT.$TMP4 
#VV.$TMP4 
$TMP4.$GDDAT 

65 

CKERR 



;COPy "BAD 
.CLEAR THE 
.••OR' WITH 



DATA' 
MASKED 



BITS 



GOOD DATA FOR TYPE OUT 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•ISSUE A DRIVE 
MOV 
MOV 



CLEAR AND A READ IN PRESET COMMAND TO PORT A 
*11.RMCS1(R0) .-DRIVE CLEAR 

*21.RMCS1(R0) .-READ IN PRESET 



.•VERIFY ATA = 0 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 

70$: NOP 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEO 
MOV 
BIC 
BJS 
EMT 
COM 

72$: NOP 



AND VV = 1 FOR PORT A 

CKERR .-CLEAR THE 'CHECK ERROR* INDICATuR 

RMDS(R0),$8D0AT ;GET CONTENTS OF RMDS 
*RMDS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .-ADD RH/RM BASE ADDRESS 

*VV,$GDDAT .-WHAT REGISTER SHOULD BE 
$8DDAT.$TMP0 ;MOVE REGISTER CONTENTS TO '$TMPO' 
#-CVV,$TMPO .-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
.BR IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
.-•OR' WITH GOOD DATA FOR TYPEOUT 



$6DDAT,$TMP0 
70$ 

$eDDAT,$TMP4 
m.$TMP4 
$TMP4,$GDDAT 

13 
CKERR 



CKERR 

RMDS(R0),$8DDAT 
#RMDS,$8DADR ;F 
R0,S8DADR 

*molipgm!dpr:dry 

$8DDAT,$TMP0 
#-C153VO,$TMPO 
$60DAT,$TMP0 
72$ 

$8DDAT,$THP4 
4f1 53776. $TMP4 
$TMP4.$GDDAT 

10 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 

.-CLEAR THE 'CHECK ERROR' INDICATOR 

.-GET CONTENTS OF RWS 
ORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.'VV,$6DDAT ;WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO •$TMPO' 

.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
;COPY "BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



.-RELEASE PORT A AND SELECT PORT B 

.-VERIF" THAT ATA = 1 AND VV = 0 FOR PORT B 



CZRMRBO RM05/3/2 DU POR TST 1 MACRO VO^.OO A-APR-SI 
PORT 'A' SET VOLUME VALID TEST 



E 16 
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SEO 01V 



.-RELEASE THE DRIVE FROM PORT A 



051760 


1 1 3760 


A A i ^ ^/ 

001224 


AA AA 1 A 

000010 




nOVo 


051 766 


AIT "TT "7 

01 5737 


001224 


AAl A 

001 ^sO 




MOV 


051 774 


012760 


00001 3 


AAAAAA 

000000 




MOV 










; VcRir Y 


TLJ A T 
IHA 1 


052002 


AAC AT7 

00505/ 


AA1 IC/ 
00 l^!>H 






CLK 


052006 




AAAA1 O 

00001 2 


AAl 1 OO 

001 1 22 




MAW 

nUV 


05201 A 


A^ AAT 7 

06003/^ 


AA1 1 OO 

00 1 122 






APD 


052020 


A1 07*77 


A1 1 iAA 

01 1 600 


AAl 1 O/ 

001 1 2h 




MAV/ 

muv 


AC "lA'l^ 

052026 


1 1 7 7^ A 

1 1 DfOV 


AA1 00/ 

001 22*» 


AAAA1 A 
UUOOl U 






AC ^Aiy 

05203A 


A1 Z.A77 

01605/^ 


AAAA1 O 
00001 2 


AAl 1 7I\ 
001 1 /U 




nOV 


AC OA/ "5 

052U42 


A/ 0777 


AO/ AA1 

02hU01 


AAl 1 7A 

UUl 1 t\J 






AC *5AC A 


A1 7777 

01 or if 


AA1 1 7A 

001 1 7U 


AAl 1 A/ 
UU 1 1 OH 




MAV/ 

nUv 


AC^AC^ 

052U3O 


A/ 0777 


1 AA1 AA 
1001 00 


AAl 1 A/ 
UUl 1 OH 




oi L 


AC "^A^/ 


117 7AA 

1 1 3/^oO 


AA1 OOA 

001 226 


AAAA1 A 
UUUU 1 0 




MAV/O 




A1 AA77 

UlO03/^ 


AAAA1 0 


AAl 1 75 
UU life 




MAU 

nuv 


AC 01 AA 
032100 


A/ 0777 


AO/ AAl 


AAl 1 70 

UUl 1 r 2 




Q t r 
bi L 


AC*51 AiL 

052 lOo 


A1 7777 

01 Df Jf 


AAl 1 70 

UU life 


AAl 1 AA 
UU 1 1 OO 




MAV/ 

nuv 


AC "511/ 


r\l 0777 

yj^df tf 


1 AAl AA 
1 UU 1 UU 


AAl 1 A A 
UU 1 1 OO 






/">C01 05 

U32122 


A07777 

023/ 3/^ 


AAl 1 AZ. 
UU 1 1 OH 


AA 1 1 A A 
UU 1 1 OO 




rMD 


AC01 
U521 jU 


AA1 AAA 










AC01 10 

052 1 j2 


AAC777 


AAl 1 A/ 
UU 1 1 OH 






TCT 


AC01 

UDt: 1 JO 


AA1 A77 








DlMC 


AC01 / A 


1 Ay A/ A 








CMT 

cn 1 


AC01/ 0 
J32 IH^ 


AAA1 77 
UUU 1 3a 


AC070A 






IMO 

■jrr 




A1 7777 
U 1 3f 3/ 


AA1 1 7A 
UU 1 1 f U 


AA1 1 OA 
UU 1 1 cO 


7At • 

/H» . 


MAV/ 

nuv 


ACOl C/ 


A1 7777 
U 1 3/3f 


AAl OOA 
UU 1 CCO 


AAl 0/.A 
UU 1 chU 




MAV/ 

nuv 




1 1 77AA 

1 1 3/^OU 


AAl OOA 

0UI22O 


AAAA1 n 
UUUU 1 U 






A^OI 7A 


#1AC777 


AA1 1 AZ. 
UU 1 lOM 








AC 01 7Z 


AA1 L'\L 








DPA 
C3CU 


AC01 7a 


A1 7777 
U 1 3' 3/ 


AAl 00/. 
UU 1 CCH 


AAl 0/.A 
UU 1 ChU 




MAV/ 

nuv 


ACOOA/ 


A1 7777 

\)\bf bf 


AAl 1 70 

UU life 


AAl 1 OA 
UU 1 1 CO 




MAV/ 
HUV 


AC 001 0 

Uo22 12 


1 1 77AA 


AAl 00/. 
UU 1 CtH 


AAAA1 A 
UUUU 1 U 




KAV/Q 
PlUVO 


ACOOOA 


AAC777 

\j\Jjf Jf 


AAl 1 AA 
UU 1 1 DO 






1 O 1 


ACOOO/ 


AA1 AA/ 
00 1 OOh 








DKIC 
OINC 


ACOOOA 


A1 0777 


1 77777 

\ t f f f f 


UU lt3H 


'fj» • 


MAV/ 
rlUv 


AC007/. 


1 AAAOO 








PMT 

tn 1 


AC007A 


A1 7777 

\}\ Jf Jf 


AAl 1 7A 
UU 1 1 f\J 


AAl 1 OA 

UU 1 1 CO 


7A*- 


MAV/ 
rlUV 


ACOO/ / 


A1 7777 


AAl 00/ 
UU 1 CCH 


AAl 0/.A 
UU 1 chU 




MAI/ 
nUV 


ACOO'IO 


(V 0777 
\jHCf Jf 


1 AAIAA 
1 UU 1 UU 


AAl 1 OA 
UU 1 1 cO 






ACOOAA 

Uj22oU 


A07777 
VCJf Jf 


AAl 1 ?/. 
UU 1 1 C*» 


AAl 1 OA 
UU 1 1 cO 




rMD 


ACOOAA 


AA1 Am 










AC007A 


1 A/ AA7 
1 U*»UU/ 








CMT 


AC057? 


A1 7777 
U 1 3r 3' 


AAl 1 70 
UU I I f C 


AAl 1 OA 
UU 1 1 cO 


t f 9, 


MAV/ 

nuv 


AC 07AA 


A1 7777 
U 1 3^3f 


AAl OOA 
UU I c20 


AAl 0/A 
UU 1 chU 




MAV/ 

nuv 


AC07AA 


AA0777 
\J**cf Jf 


1 AAIAA 
1 UU 1 UU 


AAl 1 OA 
UU 1 1 cO 




□J (. 


\JJCj I H 


\JCJ' Ji 


001 1 P4 


001 1 






05P322 


001401 








BEQ 


052324 


104007 








EMT 


052326 


000240 






78$: 


NOP 


052330 


113760 


001226 


000010 




M0V8 


052336 


013737 


001226 


001240 




MOV 


052344 


005037 


001250 






CLR 


052350 


016037 


000012 


001126 




MOV 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1(R0; .-ISSUE RELEASE THROUGH PORT A 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

miDS.lBDADR .-FORM THE ADDRESS OF FlMDS FOR TYPEOUT 
RO.SBDADR .-ADD THE I/O BASE ADDRESS 

*MOL!PGM.DPR.DRY.$GDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .-SELECT PORT A. 

RMDS(R0).$TMP2 .-GET THE DRIVE STATUS REGISTER FROM PORT A, 
#PI P!UIRL!0M.$TMP2 .CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO 'STMPO' 

#ATA.'VV.$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
*PIPIWRL!0M.$TMP3 .-CLEAR DONT CARES 



$TMP3.STMP1 
#ATA! VV.tTMPI 
$T/V0.$TMP1 
74$ 
$TMPO 
76$ 
46 
78$ 

$TMP2.$BDDAT 
PORTS. PTNBR 
PORTS. RMCS2(R0) 
$TMPO 
75$ 

PORT A. PTNBR 

$TMP3.$8DDAT 

PORTA. RMCS2{R0) 

$TMP1 

76$ 

#-1 , RELERR 

22 

$TMP2.$BDDAT 

PORTA, PTNBR 

*ATAIVV.$BDDAT 

$GD0AT«$8DDAT 

77$ 

7 

$TMP3,$8DDAT 

PORTS, PTNBR 

*ATA.'VV.$BDDAT 

$GDDAT.$8DDAT 

78$ 

7 



COPY IT INTO '$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
SR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TES^ SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 
SR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 
SR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

ALL BITS OK ? 

SR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - PROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 



PORT8.RMCS2(R0) .'SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEGLT 
CKBRR ; CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENDS OF RMDS 



rZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 «-APR-8 
TAO PORT 'A* SET VOLUME VALID TEST 



052356 


012737 


000012 


001122 




MOV 


052364 


060037 


001122 






ADD 


052370 


012737 


30000 


001124 




MOV 


052376 


013737 


001 1 26 


001 164 




MOV 


052AOA 


042737 


077777 


001 164 




BIC 


052412 


023737 


001124 


001 164 




CMP 


052420 


001414 








BEO 


052422 


013737 


001126 


OO"! 1 74 




MOV 


052430 


0^2737 


1 00000 


001 1 74 




BIC 


052456 


053737 


001 1 74 


001124 




BIS 


052444 


104064 








EMT 


052446 


005137 


001250 






COM 


052452 


000240 






79$: 


NOP 


052454 


005037 


001250 






CLR 


052460 


016037 


000012 


001126 




MOV 


052466 


012737 


000012 


001 122 




MOV 


052474 


060037 


001122 






ADD 


052500 


005037 


001124 






CLR 


052504 


013737 


001126 


001 164 




MOV 


052512 


0^2737 


177677 


001 164 




BIC 


052520 


023737 


001 1 24 


001 164 




CMP 


052526 


001414 








BEQ 


052530 


013737 


001126 


001174 




MOV 


052536 


042737 


000100 


001174 




BIC 


052544 


053757 


001174 


001 124 




BIS 


052552 


104065 








EMT 


052554 


005137 


001250 






COM 


052560 


000240 






81$: 


NOP 










.•ISSUE 


A DRI 










;THEN RE LEAS 


052562 


012760 


00001 1 


000000 




MOV 


052570 


012760 


000021 


000000 




MOV 










.•RELEASE THE 


0525^6 


113760 


001226 


000010 




M0V8 


052604 


013737 


001226 


001240 




MOV 


05261 2 


012760 


000013 


000000 




MOV 










.VERIFY 


THAT 


052620 


005037 


001254 






CLR 


052624 


0T2757 


000012 


001 1 22 




MOV 


052632 


060037 


001 122 






ADD 


052636 


0 2757 


01 1600 


f\f\ 4 4 y 

001 124 




MOV 


052644 


1 13760 


001224 


00001 0 




M0V8 


052652 


016037 


000012 


001 1 70 




MOV 


052660 


042737 


024001 


/\/\4 4 A 

001 1 70 




BIC 


052666 


013737 


001 1 70 


001 164 




MOV 


052674 


0^2757 


100100 


0011 64 




BIC 


052702 


113760 


001226 


000010 




M0V8 






UUUU 1 c 






MOV 


052716 


042737 


024001 


001172 




BIC 


052724 


013737 


001 1 72 


001166 




MOV 


052732 


042737 


100100 


001166 




BIC 


052740 


023737 


001164 


001166 




CMP 


0527^6 


001006 








BNE 



F 16 
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#RMDS.$6DADR 

R0,$8DADR 

#ATA SGDDAT 

$8DDAT.$TMP0 

**CATA.$TMPO 

SGDDAT, STMPO 

79$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
ST-^PA. SGDDAT 
64 

CKERR 



.•FORM REGISTER ADDRESS OF ERROR MES-SAGE 

;ADD RH/RM BASE ADDRESS 
.•WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO 'STMPO' 
;SAVE SPECIFIED BITS 

.•COMPARE THE BITS 

;BR IF OK 

.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 

.■•OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO 'STMPO' 
.■SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



RO.SBDADR 
SGDDAT 

SBDDAT. STMPO 
**CVV. STMPO 
SGDDAT. STMPO 
81$ 

$8DDAT,$TMP4 
*VV.$TMP4 
$TMP4.$GDDAT 
65 

CKERR 



.SET THE REGISTER COMPARE ERROR INDICATOR 



: CLEAR AND A READ IN PRESET COMMAND TO PORT B. 
PORT B 

*11.RMCS1(R0) .-DRIVE CLEAR 
#21,RMCS1 (RO) .-READ IN PRESET 
)RIVE FROM PORT B 

P0RT8.RMCS2(R0) .-SELECT PORT B 

PORTS. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
/rl3.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

THE DRIVE IS STILL IN NEUTRAL 



RELERR 
/yRMDS.SBDADR 
R0.$6DADR 
*MOL!PG«!DPR.'DRY 
PORTA, RMCS2(fiO) 
RMDS(R0),$TMP2 
*PIP !WRL!0M.$TMP2 
$TMP2.$TMP0 
*ATA!VV.$TMPO 
PORTS, RMCS2(R0) 
RMDS(R0),$TMP3 . 
#PIP!WRL!0M,$TMP3 
$TMP3.$TMP1 
ffATA!VV.$TMP1 
STMPO, $TMP1 
83$ 



CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$GDDAT .-COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.-CLEAR DONT CARES 
COPY IT INTO 'STMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.-CLEAR DONT CARES 
COPY IT INTO 'STMPT 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 



V.ZRMRBO kM05/5/2 DU POR TST 1 MACRO VC4.00 
T40 PORT 'A' SET VOUJME VALID TEST 



G 16 

4-APR-81 18:06:?5 PAGE 10-98 



SEQ O'^f 



052750 
05275A 
052756 
052760 
05276A 
052772 
053000 
053006 
053012 
0530K 
053022 
053030 
053036 
053042 
0530A4 
053052 
05305A 
053062 
053070 
053076 
05310A 
053106 
053110 
053116 
053124 
053132 
053U0 
0531A2 
053UA 



005737 
001037 
10A0A6 
000137 
013737 
013737 
113760 
005737 
OOKK 
013737 
013737 
113760 
005737 
001004 
012737 
10A022 
013737 
013737 
0A2737 
023737 
00H01 
1 0A 007 
013737 
013737 
0A2737 
023737 
00K01 
10A007 
00024C 



1285 
1306 
1307 



053U6 00000^ 



001 16A 



053U4 
001 1 70 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

\7m7 

001170 
001224 
100100 
001124 



001172 
001226 
100100 
001124 







T C T 


<TMDrt 








fi<iC 








'•O 






IMD 


0' * . 


001 1 cb 


o5*. 


MAI/ 

nUv 




A/Si A 




MAV/ 

nUV 


DAD TP DTMQD • 


000010 




MAV/D 


DAOTQ OMrCPfDO) 
KUK 1 O / NnLSC VnU/ « 




T C T 


CTMDD 






OCA 




AA1 0/ n 




MA\/ 

nUV 


PD'ITA PTMPR 


AA1 1 OiL 

00^ 1 CO 




MAV/ 




OOtU 10 




MAV/D 


rUn 1 ^ , KriL jc VKw / > 




TCT 


CTMP1 






OlMt 


< 


UO ' cj** 


o'«*. 


MAV/ 








CMT 


cc 


AAI 1 O/L 




Mnv/ 
nuv 


9 1 vrC 1 90\fvl^ 1 1 


nn 1 Pin 




nuv 


PnPTA PTIkiRP 


00 1 1 co 




oi L 


»M 1 M . V V , •OUU'^ 1 t 


U0 1 1 CO 












CSC u 










7 
/ 


uu 1 1 CO 


oo« • 


MAW 




001240 




MOV 


?0RT8,PTN8R 


001126 




BIC 


#ata:vv.$8ddat 


Vv 1 1 C w 




fMP 


$GDDA1 S6DDAT 






8EG 


87$ 






EMT 


7 




87$: 


NOP 






50i: 


SCOPE 





REGISTERS ARE THE SAME; 
8R IF NOT 



ARE THEY ZERO ? 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A, 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'8AD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT 8. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A, 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 



053150 

053150 005757 001300 
055154 001406 



•»**************»***»•*****••••»•*•»•*•*•»•**•**»••»»*•**«•»•»** 

'•TEST 41 PORT '8' SET VOLUME VALID TEST 

•VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 

WITH PORT '8' SELECTED. RESET AND SET "UNIT READY" 
STATUS USING DIAGNOSTIC MODE. VEi^IFY THAT THE DRIVE 
IS SEIZED AND THAT 'VOLlflE VALID" IS RESET AND 
ATTENTION IS SET. 



* A. 
* 
* 
* 

♦ B. 
* 

* C. 
* 

* 

• D. 



ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
C0W1AND TO THE DRIVE THAT WAS SEIZED IN STEP A. 
VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

RELEASE THE DRIVE FROM PORT 'B' AND SELECT THE DRIVE FOR 
PORT 'A'. VERIFY THAT ATTENTION IS STIL S^T AND THAT 
VOLUME VALID IS STIL RESET. 



ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT 'A' THEN RELEASE PORT 'A'. 
»«••*•**•«•*•**•**•**•***•*•••**••**••••*•**•••**••••*••••»*♦•» 

TST41: 

TST KY8CTL .-PERFORMING ONLY SINGLE TEST ? 

BEQ 2$ ;8R IF NOT 



rZRMRBO RM05/3/2 DU POR TST 1 MACRO VO^.OO 
'i,' PORT 'B* SET VOLUME VALID TEST 



1308 
1309 



053156 
053160 
05316A 
053172 
053200 
053206 
053206 
0532U 
053220 



053226 
05323A 
C53242 
053250 
053256 
05326A 



053272 
053276 
05330A 
053312 
053316 
053324 
053332 
053340 
0535A6 
053350 
053356 
05336A 
053372 
05337A 
053A00 
053402 
C53406 
053414 
053422 
053426 
053432 
053440 
053446 
J53454 
053456 
053464 
053472 
053500 
053502 
053506 



100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



1 1 3760 
013737 
012760 
013737 
012760 
012760 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104064 
005137 
000240 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104065 
005137 
000240 



003074 

Mini 

053206 
053206 



001 300 
001106 
001110 



000041 001102 
001100 

000012 001176 



001226 
001226 
000001 
001224 
001001 
000000 



001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 

001250 
000012 
000012 
001122 
001124 
001126 
U7677 
001124 

001126- 

000100 

001174 

001250 



000010 
001242 
000024 
001244 
000024 
000024 



001126 
001122 

001124 
001164 
001164 
001164 

4 

001 1 74 
001174 
001124 



001126 
001122 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 





H 16 




APR-8 1 


18:06:25 PAGE 10- 


■99 


BPL 


1$ 


;8R If JUST ENTERED TEST 


JMP 


EXEC 


.•RETURN £ GET NEXT TEST NUMBER 


MOV 


*-1 ,KVaCTl 


;SET SINGLE TEST INDICATOR 


MOV 


#TEST41 .SLPADR 


.•SETUP SCOPE LOOP ADDRESS 


MOV 


*TEST41.$LPERR 


.-SETUP ERROR LOOP ADDRESS 


M0V8 


*41 ,$TSTNM 


;MOVE *41 TO TEST NUMBER 


nUV 


MCIAT^ CD 


*i nAf\ TUC CTAT^ DnmiTCD 

,LUMy 1 nC oImLn rUlNICK 


MOV 


*10. ,$TIMES 


;;D0 10. ITERATIONS 



SEO 0139 



1$: 
2$: 

)£ST41 



.•SEIZE PORT B BY WRITING THE MAINTENANCE REGISTER, RMMRl . SET 
.-AND RESET 'MAINTENANCE UNIT READY" TO CAUSE VOLUME VALID TO 
;RESET AND ATTENTION TO SET. 

.•SEIZE THE DRIVE THROUGH PORT 8 



.•VERIFY 



66$: 



68$: 



M0V8 

MOV 

MOV 

MOV 

MOV 

MOV 

THAT 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

8IC 

CMP 

8EQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 



PORTS. RMCS2(R0) ;SELECT PORT B 

P0ftT8.SE I ZPT .-STORE SEIZING POftT'S ADDRESS 

«DMD. RMMRl (RO) ;WRITE DMD INTO RMMRl 

PORTA. OPPRT .-'OPPOSITE' PORT ADDRESS 

*DMD !MUR. RMMRl (RO) ;SET UNIT READY 

*0. RMMRl (RO) .-RESET DIAGNOSTIC MODE 

ATA = 1.VV = 0 FOR PORT 8 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).$8DDAT ;GET CONTENTS OF RMDS 
*RMDS.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.-UHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO •$TMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
#ATA.$GDDAT 
$8DDAT.$TMP0 
**CATA.$TMPO 
$GDDAT.$TMPO 
66$ 

$eDDAT.$TMP4 
#ATA,$TMP4 , 
$TMP4,$GD0AT 
64 

CKERR 



.-SET THE REGISTER COW>ARE ERROR INDICATOR 



INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR" 

RMDS(R0),$8DDAT .-GET CONTENTS OF RMDS 
*RMDS,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
" .-ADD RH/RM BASE ADDRESS 

.-WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO •$TMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
.-8R IF OK 
;COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
$GDDAT 

$8DDAT.$TMP0 
**CVV.$TMPO 
$GDDAT.$TMPO 
68$ 

$8DDAT.$TMP4 
m,$TMP4 
$TMP4,$GDDAT 
65 

CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B 



■ZRMRBO HM05/3/2 DU POR TST 1 MACRO VOA.OO 
'A^ PORT 'B* SET VOLUME VALID TEST 



I 16 

4-APR-81 18:06:*?!) PAGE 10-100 



SEO OUO 



053510 012760 000011 
053516 012760 000021 



05352A 
053530 
053536 
05354A 
053550 
053556 
05356A 
053572 
053600 
053602 
053610 
053616 
05362A 
053626 
053632 
C53634 
053640 
053646 
053654 
053660 
053666 
053674 
053702 
053710 
053712 
053720 
053726 
053734 
053736 
053742 



053744 
053752 
053760 



053766 
053772 
054000 
054004 
054012 
054020 
054026 
054034 
054042 
054050 
054056 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104013 
005137 
000240 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 



113760 
013737 
012760 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 



001250 
000012 
000012 
001122 
000100 
001126 
1 77677 
001124 

001126 
000100 
001 1 74 

001250 

001 250 
000012 
000012 
001122 
01 1 700 
001126 
024007 
001124 

001126 
15377C 
001 1 74 

001250 



001226 
001226 
000013 



001254 
000012 
001122 
011600 
001224 
000012 
024001 
001170 
100100 
001226 
000012 



000000 
000000 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74 
001174 
001124 



000010 
001240 
000000 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
0000^0 
001 1 72 



.-VERIFY 



70$: 



72$: 



MOV 

MOV 

ATA 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 
CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 



#11.RMCS1(R0) 
*21 ,RMCS1(R0> 



.■DRIVE CLEAR 
.•READ IN PRESET 



= 0 



AND VV = 1 FOR PORT B 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .$BDDAT ;GET CONTENTS OF RMDS 
*RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR .-ADD RH/RM B.a,SE ADDRESS 

#VV,$GDDAT ;WHAT REGISTER SHOULD BE 
$8DDAT,$TMP0 ;MOVE REGISTER CONTENTS TO 'STMPO' 
**CVV,$TMPO .-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



$GDDAT.$rMPO 
70$ 

$8DDAT.$TMP4 
#VV.$TMP4 
$TMP4,$GDDAT 
13 ' 
CKERR 



.•SET THE REGISTER C0l>«PARE ERRO-" INDICATOR 



CKERR 

RMDS(RO) .$8DDAT 
*RMDS,$8DADR ;F 
R0.$8DADR 
#M0L.PGM1DPRIDRY 
$8DDAT.$TMP0 
*-C1 53770. $TMPO 
$GDDAT.$TMPO 
72$ 

$8DDAT,$TMP4 
*1 53770. $TMP4 
$TMP4.$GDDAT 
10 

CKERR 



.•CLEAR THE 'CHECK ERROR* INDICATOR 

.-GET CONTENTS OF RMDS 
ORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
VV.$GDDAT ;UHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO •$TMPO' 
.-SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA' 
CLEAR THt MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 



.•RELEASE PORT B AND SELECT PORT A 

.•VERIFY THAT ATA = 1 AND VV = 0 FOR PORT A 

.■RELEASE THE DRIVE FROM PORT B 

M0V8 P0RT8.RMCS2(R0) ."SELECT PORT B 

MOV PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV *13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 

.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .-CLEAR THE 'RELEASE ERROR * INDICATOR' 

MOV *RMDS,$8DADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD R0.$8DADR ;ADD THE I/O BASE ADDRESS 

MOV #MOL!PGM!DPR!DRY.$GDDAT .-COMPARISON CONSTANT 

M0V8 PORTA. RMCS2(R0) .-SELECT PORT A. 

MOV RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

BIC *PIP.' WRL!0M.$TMP2 .-CLEAR DONT CARES 

MOV $TMP2,$TMP0 ;COPY IT INTO '$TMPO' 

BIC *ATA:vV,$TMPO .-clear port DEPENDENT BITS FROM THE COPY 

M0V8 PORT8.RMCS2(R0) .-SELECT PORT B. 

MOV RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM "ORT B. 



'■ZRMRBO RW05/3/2 DU POfi TST 1 MACRO V04.00 A-APR-81 
PORT 'B' SET VOLUME VALID TEST 



05406A 


042737 


024001 


001172 




SIC 


054072 


01 3737 


001^72 


001166 




MOV 


054100 


042737 


100100 


001166 




BIC 


054106 


023737 


001164 


001166 




CMP 


054114 


001006 








BNE 


054116 


005737 


001164 






TST 


054122 


001037 








BNE 


054124 


104046 








EMT 


054126 


000137 


054312 






JMP 


054132 


013737 


001170 


001126 


74$: 


MOV 


054140 


013737 


001226 
001226 


001240 




MOV 


054146 


113760 


000010 




M0V8 


054154 


005737 


001164 






TST 


054160 


001414 








BEQ 


054162 


013737 


001224 


001240 




MOV 


054170 


013737 


001 1 72 


001126 




MOV 


054176 


113760 


001224 


00001 0 




M0V8 


054204 


005737 


001166 






TST 


054210 


001004 








BNE 


054212 


012737 


M7777 


001254 


75$: 


MOV 


054220 


104022 








EMT 


054222 


013737 
01 3737 


001170 


001126 


76$: 


MOV 


054230 


001224 


001240 




MOV 


054236 


042737 


100100 


001126 




BIC 


054244 


023737 


001124 


001126 




CMP 


054252 


001401 








BEQ 


054254 


104007 








EMT 


054256 


013737 


001172 


001126 


77$: 


MOV 


054264 


013737 


001226 


001240 




MOV 


054272 


042737 


100100 


001126 




BIC 


054300 


023737 


001124 


001126 




CMP 


054306 


001401 








8E0 


054310 


104007 








EMT 


054312 


000240 






78$: 


NOP 


054314 


1 1 3760 


001224 


000010 




M0V8 


054322 


013737 


001224 


001240 




MOV 


054330 


005037 


001250 






CLR 


054334 


016037 


000012 


001126 




MOV 


054342 


012737 


000012 


001122 




MOV 


054350 


060037 


001122 






ADD 


054354 


012737 


100000 


001124 




MOV 


054362 


013737 


001126 


001164 




MOV 


054370 


042737 


077777 


001164 




BIC 


054376 


023737 


001124 


001164 




CMP 


054404 


001414 








BEQ 


054406 


013737 


001126 


001 1 74 




MOV 


054414 


042737 


100000 


001 1 74 




BIC 


054422 


053737 


001 1 74 


001124 




BIS 


054430 


104064 








EMT 


054432 


005137 


001250 






COM 


054436 


000240 






79$; 


NOP 


054440 


005037 


001250 






CLR 


054444 


016037 


000012 


001126 




MOV 


054452 


012737 


000012 


001122 




MOV 


054460 


060037 


001122 






ADD 


054464 


005037 


001124 






CLR 


054470 


013737 


001126 


001164 




MOV 
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*PIP!WRL.0M.$TMP3 
$TMP3.$TMP1 
#ATA!VV,$TMP1 
$TMP0,$TMP1 
74$ 
$TMPO 
76$ 
46 
78$ 

$T.MP2.$BDDAT 
PORTS, PTN8R 
PORTS, RMCS2(R0) 
$TMPO 
75$ 

PORTA, PTNBR 
$TMP3,$8DDAT 
PORTA, RMCS2<R0) 
$TMP1 
76$ 

<f-l,RELERR 

22 

$TMP2,$BDDAT 
PORTA, PTNBR 
*ATA.VV.$BDDAT 
$GDDAT,$8DDAT 
77$ 
7 

$TMP3,$8DDAT 

PORTS, PTNBR 
*ATA!VV,$BDDAT 
$GDDAT,$8DDAT 
78$ 
7 



.•CLEAR DONT CARES 
COPY IT INTO ■$TMP1 • 

CI EAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE TMEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM F-ORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•SAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT 8. 
SR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 
SR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
SEE IF READ OK FROM PORT 8. 
SR IF OK 



PORTA, RMCS2(R0) .'SELECT PORT A 

PORTA, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO '$TMPO' 
;SAVE SPECIFIED BITS 
COMPARE THE BITS 
.•SR IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
/irATA,$GDDAT 
$8DDAT,$TMP0 
**CATA,$TMPO 
$GDDAT,$TMPO 
79$ 

$8DDAT,$TMP4 
*ATA,$TMP4 
$TMP4,$GDDAT 
64 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;GET CONTENTS OF RMDS 
/irRMDS,$8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 



R0,$8DADR 
$GDDAT 
$8DDAT,$TMP0 



ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 



'$TMPO' 



^ZKMRBO RM05/3/2 OU POR TST 1 MACRO V04.00 
PORT 'B' SET VOLUME VALID TEST 



K 16 
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SEQ 0142 



054476 


042737 


177677 


001 1 64 


SIC 


#*CVV,$TMPO 


.•SAVE SPECIFIED BITS 


054504 


023737 


001124 


001164 


CMP 


$GDDAT,$TMPO 


.•COMPARE THE BITS 


054512 


001414 






BEQ 


81$ 


;8R IF OK 

. COPr oAD DATA 


054514 


01 3737 


001 126 


001 1 ('* 


MOV 


SoDPAT ,>TMH'» 


054522 


042737 


000100 


001174 

oor24 


6IC 


*VV,$TMP4 


; CLEAR THE MASKED BITS 

.•'OR' WITH GOOD DATA FOR TYPEOUT 


054530 


053737 


001 1 74 


BIS 


$TMP4,$GDDAT 


054536 


104065 






EMT 


65 




054540 


005137 


001250 




COM 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


054544 


000240 




81$: 


NOP 







054546 012760 000011 000000 
054554 012760 000021 000000 



054562 113760 001224 000010 
054570 013737 001224 001240 
054576 012760 000013 000000 



.ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A, 
;THEN RELEASE PORT A 

MOV *11,RMCS1(R0) 

MOV *21 ,RMCS1 <R0) 
; RELEASE THE DRIVE FROM PORT A 



.•DRIVE CLEAR 
;READ IN PRESET 



M0V8 PORTA. RMCS2(R0) ; SELECT PORT A 

MOV PORTA. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(R0) ;ISSUE RELEASE THROUGH PORT A 

;VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLEAR THE 'RELEASE ERROR ' INDICATOR 
FORM THE ADDRESS OF RMDS FOR TYPEOUT 
ADD THE I/O BASE ADDRESS 
$6DDAT ; COMPARISON CONSTANT 
SELECT PORT A, 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

; CLEAR DONT CARES 
COPY IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT 8. 

.•CLEAR DONT CARES 
COPY IT INTO '$TMP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT E". 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN KMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR v; BIT 







001 
vU 1 c 














00001 P 


UV 1 1 cc 










\JO\J\Jj r 


001 1 ?? 

1 ICC 






Ann 


PO XADADR 




01 ?777 

\J I C( -Jf 


01 1 AOO 


001 1 ?4 

\J\J \ 1 c** 




MOV 


irMDi ipfiM'npR'nRY 


ns4^»V) 


1 1 .J r \j\J 


001 ??c 


00001 0 






PORTA RMC^P^RO) ■ 






0000 IP 


001 1 70 




Mnv 


RMf)^(RO) STMP? 




04P7'?7 

\JHCf Jf 


0PA001 

001 1 70 


001170 








054652 


013737 


001164 




MOV 


$TMP2.$TMP0 


054660 


042737 


100100 


001164 




BIC 


#ATA!VV.$TMPO ; 


054666 


113760 


001226 


000010 




MGV8 


PORT6,RMCS2(R0) ; 




016037 


000012 


001172 




MOV 


RMD3(R0>,$TMP3 ; 


05^702 


042737 


024001 


001172 




BIC 


4rPIPIWRL!0M,$TMP3 


054710 


013737 


001172 


001166 




MOV 


$TMP3.$TMP1 


054716 


042737 


100100 


001166 




BIC 


#ata;vv.$tmpi 


054724 


023737 


001164 


001166 




CMP 


$TMP0.$TMP1 


054732 


001006 








BNE 


83$ 


054734 


005737 


001164 






TST 


$TMPO 


054740 


001037 








BNE 


85$ 


054742 


104046 








EMT 


46 


054744 


000137 


055130 






JMP 


87$ 


054750 


013737 


001170 


001126 
001240 


83$: 


MOV 


$TMP2,$BDDAT 


054756 


013737 


001226 




MOV 


PORTB.PTNBR ; 


054764 


113760 


001226 


000010 




M0V8 


POfiT8,RMCS2(R0) ; 


054772 


005737 


001164 






TS^ 


$TMPO 


054776 


001414 








BEQ 


84$ 


055000 


013737 


001224 


001240 




MOV 


P0RTA.PTN8R 


055006 


013737 


001172 


001126 




MOV 


$TMP3.$BDDAT 


055014 


113760 


001224 


000010 




M0V8 


PORTA. RMCS2(R0) ; 


055022 


005737 


001166 






TST 


$TMP1 


055026 


001004 








BNE 


85$ 


055030 


012737 


mm 


001254 


84$: 


MOV 


#-1.RELERR 


055036 


104022 








EMT 


22 


055040 


013737 


001 1 70 


001126 


85$: 


MOV 


$TMP2,$8DDAT 


055046 


013737 


001224 


001240 




MOV 


PORTA, PTNBR 


055054 


042737 


100100 


001126 




BIC 


*ATA. VV.IBDDAT ; 



ZRMR80 DU POR TST 

PORT 'B' SET VOLUME 



1 MACRO V04.00 
VALID TEST 



055062 
055070 
055072 
055074 
055102 
055110 
055116 
055124 
055126 
055130 



023737 
00K01 
10A007 
013737 
013737 
0A2737 
023737 
OOUOl 
104007 
000240 



1314 
1528 
1529 



055132 000004 



1330 
1581 



055134 
055134 
055140 
055142 
055144 
055150 
055156 
055164 
055172 
055172 
055200 
055204 



00:i24 001126 



001172 
001226 
100100 
001124 



001126 
001240 
001126 
001126 



86t: 



87S: 
50$: 



4-AFR-81 



CMP 
BEO 
EMT 
MOV 
MOV 
BJC 
CMP 
BEO 
EMT 
NOP 

SCOPE 
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SEQ 0143 



SGDOAT.SBDDAT 
86S 

7 

$TMP3.S8DDAT 

ports. ptm8r 
#ata:vv,S8Ddat 

SGDDAT.tBDDAT 
87$ 

7 



.•AL BJTS OK ? 

;BR If OK FROM PORT A. 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

.•CHANGE PORT NUMBER 

;DON'T CHECK ATTN BIT OR V^ BIT 

.-SEE IF READ OK FROM PORT B. 

;8R IF JK 



055212 
055220 
055224 
055232 
055240 
055246 
055252 
055260 



055266 
055274 



• TE'jT 42 TEST PORT 'A' TIMEOUT DOES NOT RESET DRIVE 
•VcRIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

♦ A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INFO RMDS. 



• B. 

* C, 
* 



WRITE I'S INTO RMERl THROUGH PORT 'A' TO FORCE AN ATTENTION. 

WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A* AND NOT SET FOR 
PORT 'B': AND THAT BOTH PORTS SEE I'S IN THE ERROR REGISTER. 



*••♦•••••••*»•»*«•*»*•**♦••**»•••••****•***•**♦*•*•**•*•••»•••• 

'TST42: 

PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

BR If JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *42 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 2. ITERATIONS 

.•CLEAR ATTENTION BITS FOR BOTH PORTS 



005737 


001300 






TST 


KY8CTL 


001406 








BEO 


2$ 


100002 








BPL 


1$ 


000137 


003074 






JMP 


EXEC 


012737 


177777 


001300 


1$: 


MOV 


#-1.KY8CTL 


012737 


055172 


001106 


2$: 


MOV 


#TEST42.$LPADR 


012737 


055172 


001110 




MOV 


#TEST42.$LPERR 






TEST42: 






112737 


000042 


001102 




M0V8 


#42.$TSTNM 


012706 


001100 






MOV 


#STACK.SP 


012737 


000002 


001176 




MOV 


#2.,$TIMES 



113760 001224 

005060 000012 

012760 000011 

012760 000013 

113760 001226 

005060 000012 

012760 000011 

012760 000013 



113760 001224 000010 
013737 001224 001242 



000010 


Move 


P0RTA.RMCS2(R0) ; 




CLR 


R«DS(RO) 


000000 


MOV 


#11.RMCS1 (RO) 


000000 


MOV 


*13,RMCS1(R0) 


000010 


M0V8 


PORT8.RMCS2(R0) ; 




CLR 


RMDS(RO) 


000000 


MOV 


#11.RHCS1(R0) 


.000000 


MOV 


#13.RMCS1(R0) 



SELECT PORT ItA 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



•8' 



.•SEIZE THE DRIVE THROUGH PORT A 



MCV8 PORTA.RMCS2(R0) ;SELECT PORT A 

MOV PORTA. SEIZPT .STORE SEIZING PORT'S ADDRESS 



^/RMRBO OU PQH TST 1 >1ACP0 vOA.OO A-APR-81 

^'.c-' TEST PORT 'A' TIMEOUT DOCS NOT RESET DRIVE 



M 16 
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SEO 



055502 005060 00001? 

055306 015737 001226 001244 



055314 012760 ^77777 000014 



055322 
055326 
055534 
055342 



055550 
055354 
055356 
055362 
055364 
055566 
055366 
055374 



055402 
C55406 
055414 
055422 
055426 
055434 
055442 
055450 
055456 
055460 
055466 
055474 
055502 
055504 
C55510 



005037 
012737 
1 1 3760 
013737 



005760 
001004 
005737 
001 372 
104036 

113760 
013737 



005037 
016037 
012757 
060057 
012757 
015757 
042757 
025757 
001414 
015757 
042737 
053737 
104023 
005157 
000240 



001256 
005720 
001226 
001226 



000012 
001260 



001224 
001224 



001250 
000012 
000012 
001122 
040000 
001126 
157777 
001124 

001126 
040000 
001174 

001250 



001260 
000010 
001240 



000010 
001240 



001126 
001122 

001124 
001164 
001164 
001164 

001 1 74, 
001174 
001124 



CLR 
MOV 



RMDS{RO) 
PORTS. OPPRT 



.•WRITE RMPS 
.'OPPOSITE* PORT 



.•FORCE AN ATTENTION BY SETTING ERRORS. 



MOV 

.-START THE TIMER 

CLR 
MOV 
M0V8 
MOV 



#-1.RMER1(R0) .-SET ERROR BITS 



TIME .-CLEAR THE ELAPSED TIME COUNTFR 

*2000.. WATCH ;SET WATCH TO 2000. MS 
PORTS. RMC 52 (RO) .'SELECT PORT B 

PORTS. PTN8R ;MOVE PORT ADDRESS TO LOCATICW FOR TYPEOUT 



;WAIT FOR DRIVE TO TIMEOUT 



IS: 



2$: 



TST 
BNE 
'ST 
BNE 
EMT 

M0V8 
MOV 



RMDS(RO) 
2$ 

WATCH 
1t 

56 



WAIT FOR THE DRIVE TO BE RELEASED 
8R IF DRIVE RELEASED 
WATCH AT ZERO ? 
8R IF NOT 



P0ftTA,RMCS2(R0> .-SELECT PORT A 

PORTA. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT 



;THE ERROR BIT ('ERR') IN RMOS SHOULD STILL BE SET 



66$: 



CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BJC 
CMP 
BEQ 
MOV 
BIG 
BIS 
EMT 
COM 
NOP 



INDICATOR 



CKERR ; CLEAR THE 'CHECK ERROR' 

RMDS{R0),$8DDAT .-GET CONTENTS OF RMDS 
#RMDS.180ADR ;FOR« REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO 'STMPO' 
.'SAVE SPECIFIED BITS 
COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
•OR' WITH GOOD DATA FOR TYPEOUT 



RO.SBDADR 
#ERR,$GDDAT 
$8DDAT.$TMP0 
#*CERR.$T«P0 
$GDDAT,$TMPO 
66$ 

$8DDAT.$TMP4 
*ERR.$TMP4 
$TMP4,$GDDAT 

23 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.-THE ERROR REGISTER SHOULD CONTAIN 1'S 



055512 


005057 


001250 




CLR 


055516 


016057 


000014 


001126 


MOV 


055524 


012737 


000014 


001122 


MOV 


055532 


060057 


001122 




ADD 


055556 


012757 


177777 


001124 


MOV 


055544 


025757 


001124 


001126 


CMP 


055552 


001405 






BEQ 


055554 


104010 






EMT 


055556 


005157 


001250 




COM 


055562 


0^^0240 




68$: 


NOP 



INDICATOR 



CKERR .-CLEAR THE "CHECK ERROR' 

RMER1(R0).$8DDAT ;GET CONTENTS OF RMERl 
*RM£R1,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
;1S THE REGISTER OK ? 
;8R IF OK 



R0.$8DADR 
*1 77777, $GDDAT 
$GDDAT,$BDDAT 
68$ 
10 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



;THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 



CZRP1RB0 RM05/3/2 OU POR TST 1 MACRO V04.00 4-APR-81 
T42 TEST PORT 'A' TIMEOUT DOES NOT RESET DRIVE 



05556A 005037 001250 

055570 016037 000012 

0S5576 012737 000012 

05560A 060037 001122 

055610 012737 100000 

055616 013737 001126 

055624 042737 ^77777 

055632 023737 001124 

055640 001414 

055642 013737 001126 

055650 042737 100000 

055656 053737 001174 

055664 104041 

055666 005137 001250 

055672 000240 



055674 005037 001254 

055700 01P737 000012 

055706 060037 001122 

055712 012737 051700 

055720 113760 001224 

055726 016037 000012 

055734 042737 024001 

055742 013737 001170 

055750 042737 100100 

055756 113760 001226 

055764 016037 000012 

055772 042737 024001 

056000 013737 001172 

056006 042737 100100 

056014 023737 001164 

056022 001006 

056024 005737 001164 

056030 001045 

056032 104046 

056034 000137 056234 

056040 013737 001170 

056046 013737 001226 

C56054 113760 001226 

056062 005737 001164 

056066 001414 

056070 013737 001224 

05o076 013737 001172 

056104 113760 001224 

056112 005737 001166 

056116 001012 

056120 012737 \77777 

056126 012760 000011 

056134 012760 000013 

056142 104026 

056144 013737 001170 

056152 013737 001224 

056160 042737 100000 

056166 025737 001124 





CLR 


001126 


MOV 


001122 


MOV 




ADD 


001124 


MOV 


001164 


MOV 


001164 


BK 


001164 


CMP 




BEQ 


001174 


MOV 


001174 


SIC 


001124 


BIS 




EMT 




COM 


70$: 


NOP 



.•VERIFY THAT 







CLR 


001122 




MOV 






ADD 


001 1 24 




MOV 


000010 




M0V8 


001170 




MOV 


001 1 70 




SIC 


001 i64 




MOV 


001 164 




BiC 


00001 0 




M0V8 


001 1 Id 




MOV 


0011 72 




BIC 


001 166 




MOV 


UUl 1 OO 






001166 




CMP 






BNE 






TST 






BNE 






EMT 






JMP 


001126 


72$: 


MOV 


001240 




MOV 


000010 




M0V8 






TST 






BEQ 


001240 




MOV 


001126 




MOV 


000010 




M0V8 






TST 






BNE 


001254 


73$: 


MOV 


000000 




MOV 


000000 




MOV 






EMT 


001126 


74$: 


MOV 


001240 




MOV 


001126 




BIC 


001126 




CMP 
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SEO 0145 



CKERR .-CLEAR THE VHECK ERROR* INDICATOR 

RMDS(R0),$8DDAT ;6ET CONTENTS OF RMDS 
*RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
.■WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO •$TMPO' 
.•SAVE SPECIFIED BITS 
.COMPARE THE BITS 
;8R IF 0< 
;C0Py 'BAD DATA* 
.•CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR TVPEOUT 



RO.$BDADR 
#ATA.$GDDAT 
$8DDAT.$TMP0 
**CATA.$TMPO 
$GDDAT.$TMPO 
70$ 

$8DDAT.$TMP4 
#ATA,$TMP4 
$TMP4,$GDDAT 

41 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



HE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS.$BDADR ;/ORM THE ADDRESS OF RMDS FOR TVPEOUT 
R0.$8DADR ;ADD THE I/O BASE ADDRESS 

#51700.$GDDAT ;COMPARSION CONSTANT 
PORTA.RMCS2(R0) .-SELECT PORT A. 

RMDS(R0),$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
*PIP]WRL!0M.$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO '$TMP0' 

#ATA!VV,$TMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORT8,RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
*PIP !WRL!0M,$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 
#ATA!VV,$TMP1 
$TMP0.$TMP1 
72$ 
$TMPO 
74$ 
46 
76$ 

$TMP2.$8DDAT 

P0RT8.PTNBR 

PORT8,RMCS2(R0) 

$TMPO 

73$ 

PORTA.PTNBR 

$TMP3,$BDDAT 

PORTA, RMCS2(R0) 

$TMP1 

74$ 

*-1 .RELERR 
*11,RMCS1(R0) 
*13.RMCS1(R0) 
26 

$TMP2,$BDDAT 
PORTA. PTNBil 
4rATA.$BDDAT 
$6DDAT.$6DDAT 



COPY IT INTO •$TMP1 ' 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EC ZERO FROM PORT 8. 
8R IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS 0< ? 



B 1 

CZ«*1RB0 RM05/3/2 DU POR TST 1 MACRO VOA.OO 4-APR-81 18:06:25 PAGE 10-106 
T«2 TEST PORT 'A' TIMEOUT DOES NOT RESET DRIVE 



SEO 0U6 



0561 7A 


001A01 






056176 


10A007 






056200 


013737 


001 1 72 


001126 


056206 


013737 


001226 


0012^0 


0562U 


0A2737 


100000 


001126 


056222 


023737 


001 12« 


001126 


056230 


00H01 






056232 


10A007 






05623A 


0002A0 







1382 
1396 
1397 



05623<' 
0562A4 
056252 
056256 
05626A 
056272 
056276 
C56302 
056310 
056316 
05632A 
056326 
056334 
056342 
056350 
056352 
056356 



056360 
056366 
056372 
056400 
056406 



056410 
056410 
056414 
056416 



113760 
013737 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104052 
005137 
000240 



113760 
005060 
012760 
012760 
000004 



005737 
001406 
100002 



001226 
001226 
001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001224 
000012 
000011 
000013 



001300 



000010 
001240 

001126 
00112? 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



000010 

000000 
000000 



BEO 


75$ 


;8R IF OX FROM PORT A. 


EMT 


7 


; CHECK RMDS FOR BIT FAILURES - 


75$: MOV 


$TMP3,$BDDAT 


MOV 


PORTB.PTNBR 


; CHANGE PORT NUrBcR 
.•DON'T CHECK THE ATTN BIT 


SIC 


#ATA.$BDOAT 


CMP 


$GDDA. .fBDDAT 


;SEE IF READ OK FROM PORT B. 


BEO 


76$ 


:BR IF OK 


EMT 


7 




76$: NOP 







- FROM PORT B. 



;THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 



77$: 



M0V8 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 



P0RT8,RMCS2(R0) .-SELECT PORT B 

PORTS, PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR T ^PEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
#RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO •$TMPO' 
:SAVE SPECIFIED BITS 
COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
•OR* WITH GOOD DATA FOR TYPEOUT 



R0,$8DADR 
$GDDAT 

$8DDAT.$TMP0 
**CATA,$TMPO 
$GDDAT,$TMPO 
77$ 

$8DDAT,$TMP4 
/lfATA.$TMP4 
$TMP4,$GDDAT 

52 

CKERR 



;SET THE REGISTER COMPARE ERROR I^.'DICATOR 



; CLEAR ATTENTION BIT FOR PORT A 



PORTA, RMCS2{R0) 
RMDS(RO) 
#11.RMCS1(R0) 
#13.RMCS1(R0) 



3$; 



M0V8 

CLR 

MOV 

MOV 

SCOPE 



.-SELECT PORT #A 
.-SEIZE THE DRIVE 
.-ISSUE DRIVE CLEAR 
.-RELEASE THE DRIVE 
.-LOOP ? 



•TEST 43 TEST PORT 'B* TIMEOUT DOES NOT RESET DRIVE 

•VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

B. WRITE I'S INTO RMERl THROUGH PORT '8'. 



C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT 'B' AND IS NOT SET FOR 
PORT 'A'; AND THAT BOTH PORTS SEE I'S IN THE ERROR REGISTER. 



TST KY8CTL .-PERFORMING ONLY SINGLE TEST .' 

BEQ 2$ ;8R IF NOT 

8PL 1$ ;8R IF JUST ENTERED TEST 



C 1 
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T45 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 



SEO 0U7 



1398 
1399 



036A20 

056A32 
056A40 
056AA6 
056A46 
056454 
056460 



056A66 
056A74 
056500 
056506 
0565U 
056522 
056526 
056534 



056542 
056550 
056556 
056562 



000137 
012737 
012737 
012737 

112737 
012706 
012737 



1 1 3760 
005060 
012760 
012760 
1 1 3760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 



003074 
M7777 
056446 
056446 

000043 
001100 
000002 



001224 
000012 
00001 1 
00001 3 
001226 
000012 
000011 
0C001 3 



001226 
001226 
000012 
001224 



001 300 
001106 
001110 

001102 

001176 



000010 
001242 

001244 



056570 012760 \77777 000014 



056576 
056602 
056610 
056616 



056624 
056630 
056632 
056636 
056640 
0566^2 
056642 
056650 



056656 
056662 
056670 
r 56676 
056702 



005037 001256 

012737 003720 001260 

113760 001224 000010 

013737 001224 001240 



005760 
001004 
005737 
001372 
104036 



000012 
001260 



1$: 
2$: 

TEST43: 



113760 001226 000010 
013737 001226 001240 



005037 
016037 
012737 
060037 
012737 



001250 
000012 
000012 
001122 
040000 



001126 
001122 

001124 



JMP EXEC 

MOV *-1 .KYBCTL 

MOV #TEST43.$LPADR 

MOV *TEST43.lLPERR 

MOVB #43,$TSTNM 

MOV *STACK,SP 

MOV #2..$TIMES 



RETURN i GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *43 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 2. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



000010 


MOVB 


PORTA, RMCS2(R0) 




CLR 


RMDS(RO) 


000000 


MOV 


*11.RMCS1(R0) 


000000 


MOV 


*13.RMCS1 (RO) 


000010 


M0V8 


P0RTB,RMCS2(R0) 




CLR 


RMDS(RO) 


000000 


MOV 


*11,RMCS1(R0) 


000000 


fiov 


#13.RMCS1(R0) 



SELECT PORT *A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



'B' 



.SEIZE THE DRIVE THROUGH PORT B 



MOVB PORTS, RMCS2(R0) ;SELECT PORT B 

MOV PORTS, SEIZPT .-STORE SEIZING PORT'S ADDRESS 

CLR RMDS(RO) .'WRITE RMDS 

MOV PORTA,OPPRT ; 'OPPOSITE' PORT ADDRESS 

.-FORCE AN ATTENTION BY SETTING ERRORS. 

MOV *-1.RMERl(R0) ; SET ERROR BITS 

.-START THE TIMER 

CLR TIME .-CLEAR THE ELAPSED TIME COUNTER 

MOV 4r2000., WATCH ;SET WATCH TO 2000. MS 

MOVB PORTA, RMCS2(R0) .-SELECT PORT A 

MOV PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 



;WA!f FOR DRIVE TO TIMEOUT 
1$: 



2$: 



TST 
6NE 
TST 
BNE 
EMT 

MOVB 
MOV 



RMDS(RO) 
2$ 

WATCH 

1$ 

36 



WAIT FOR THE DRIVE TO BE RELEASED 
BR IF DRIVE RELEASED 
WATCH AT ZERO ? 
BR IF NOT 



PORTS, RMCS2(RC) ."SELECT PORT B 

PORTS. PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 



.-THE ERROR BIT ('ERR') IN RMDS SHOULD STILL BE SET 

CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(R0),$8DDAT ;6ET CONTENTS OF RMDS 

MOV *RMDS,$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD R0.$8DADR ;ADD RH/RM BASE ADDRESS 

MOV *ERR,$GDDAT ;WHAT REGISTER SHOULD BE 



CZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-81 
T45 TEST PORT 'B* TIMEOUT DOES NOT RESET DRIVE 



D 1 

18:06:?5 PAGE 10-108 



SEO 0U8 



056710 
056716 
056724 
056732 
056734 
056742 
056750 
056756 
056760 
056764 



057040 
057044 
057052 
057060 
057064 
057072 
057100 
057106 
057114 
057116 
057124 
057132 
OS'^HO 
057142 
057146 



057150 
057154 
057162 
057166 
057174 
057202 
057210 
057216 
057224 
057232 
057240 
057246 
057254 



013737 
042737 
023737 
001414 
013737 
042737 
053737 
104023 
005137 
000240 



001126 
137777 
001124 

001126 
040000 
001174 

001250 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



66$: 



MOV 
BIC 
CMP 
BEQ 
MOV 
BJC 
BIS 
EMT 
COM 
NOP 



$8DDAT.$TMP0 
#"CEftR.$TMPO 
$GDDAT,$TMPO 
66S 

$8DDAT.$TMP4 
*tRR.$TMP4 
$TMP4.$GDDAT 
23 

CKERR 



.-MOVE REGISTER CONTENTS TO 'STMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPY 'BAD DATA' 
.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 



THE ERROR REGISTER SHOULD CONTAIN I'S 



056766 


005037 


001250 




CLR 


056772 


016037 


000014 


001126 


MOV 


057000 


012737 


000014 


001122 


MOV 


057006 


060037 


001122 




ADD 


057012 


012737 


M7777 


001124 


MOV 


057020 


023737 


001124 


001126 


CMP 


057026 


001403 






BEQ 


057030 


104010 






EMT 


057032 


005137 


001250 




COM 


057036 


000240 




68$: 


NOP 



INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR' 

RMER1 (RO) ,$8DDAT ;6ET CONTENTS OF RMER1 
#RMER1 .$8DADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 
;8R IF OK 



RO.SBDADR 
#1 77777. SGDDAT 
SGDDAT.SBDDAT 
68$ 
10 
CKERR 



.-SET THE REGISTER COMPARE ERROR INDICATOR 



;THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 



005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104041 
005137 
000240 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 



001250 
000012 
000012 
001122 
100000 
001126 
077777 
001124 

001126 
100000 
001174 

001250 



001254 
000012 
001122 
051700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 



001126 
001122 

001124 
001164 
001164 
001164 

001174 
001174 
001124 



70$: 



CLR 
MOV 
MOV 
ADD 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BJS 
EMT 
COM 
NOP 



INDICATOR 



CKERR .-CLEAR THE 'CHECK ERROR* 

RMDS(R0).$8DDAT .GET CONTENTS Or RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO •$TMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 
; CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 



R0.$8DADR 
#ATA.$GDDAT 
$8DDAT.$TMP0 
iir*CATA,$TMP0 
$GDDAT.$TMPO 
70$ 

$8DDAT.$TMP4 
*ATA.$TMP4 
$TMP4,$GDDAT 
41 
CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



001122 

001 1 24 
000010 
001170 
001 1 70 
001164 
001164 
000010 
001172 
001 1 72 
001166 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 



RELERR 

/CRMDS.SBDADR 

RO.SSDADR 

*517Q0.$GDDAT 

PORTA,RMCS2(H0) 

RMDS(R0),$TMP2 



.•CLEAR THE 'RELEASE ERROR ' INDICATOR 
.•FORM THE ADDRESS OF RMDS FOR TYPEOUT 
;ADD THE I/O BASE ADDRESS 
COMPARSION CONSTANT 
.•SELECT PORT A. 

^ -GET THE DRIVE STATUS REGISTER FROM PORT A. 

*PIP!WRL!0M.$TMP2 .-CLEAR DONT CARES 

$rMP2.$TMP0 .-COPY IT INTO •$TMPO' 

*ATA!VV.$TMPO .'CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2(R0) .-SELECT PORT B. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
ilfPIP!WRL.0M,$TMP3 ; CLEAR DONT CARES 

$rMP3,$TMPl ;COPY IT INTO •$TMPr 



E 1 

rZRMRBO RM05/3/2 DU POR TST 1 MACRO VGA. 00 A-APR-81 18:06:25 PAGE 10-109 
%5 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 

057262 
057270 
057276 
057300 
05730A 
057306 
057310 
0573U 
057322 
057330 
057336 
0573A2 
0573A4 
057352 
057360 
057366 
057372 
05737A 
057A02 
C57A10 
057416 
057420 
057426 
057434 
057442 
057450 
057452 
057454 
057462 
057470 
057476 
057504 
057506 
057510 



SEO 0149 



042737 


100100 


001166 




BIC 


#ATA1VV.$TMP1 


.•CLEAR PORT DE^^ENDENT BITS FROM THE COPY 


023737 


001164 


001166 




CMP 


$TMD0.$TMP1 


;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


001006 




BNk 


72$ 


;8R IF NOT 


005737 


001164 






TST 


$TMPO 


.•REGISTERS ARE THE SAME: ARE THEV ZERO ? 


001045 






BNE 


74$ 


;8R IF NOT 


104046 








EMT 


46 




000137 


057510 






JMP 


76$ 


;8VPASS THE REST OF THE CHECKS 


013737 


001 1 70 


001 1 26 


72$: 


MOV 


$TMP2.$BDDAT 


.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 


013737 


001226 


001240 




MOV 


P0RT8.PTNBR 


.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


113760 


001226 


000010 




M0V8 


P0'-«TB.RMCS2(RO) 


.•SELECT PORT B. 


005737 


001164 






TST 


$TMPO 


;SEE IF STATUS EO 0 FROM PORT A, 


001414 








BEQ 


73$ 


;BR IF ZERO 


013737 


001224 


001240 




MOV 


PORTA.PTNBR 


.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.••BAD DATA' FOR ERROR TYPE OUT 


013737 


001172 


001126 




MOV 


$TMP3.$8DDAT 


113760 


001224 


000010 




MOVB 


PORTA. RMCS2(R0) 


.•SELECT PORT A. 


005737 


001166 






TST 


$TMP1 


;SEE IF STATUS EO ZERO FROM PORT B. 


001012 








BNE 


74$ 


;8R IF NOT 


012737 


M7777 


001254 


73S: 


MOV 


*-1.R£LERR 


.SET 'RELEASE ERROR' INDICATOR 


012760 


000011 


000000 


» 


MOV 


*11.RMCS1(R0) 


.'CLEAR THE DRIVE 


012760 


000013 


000000 




MOV 


*13.RMCS1(R0) 


.•RELEASE THE DRIVE 


104026 








EMT 


26 




013737 


001 1 70 


001126 


74$: 


MOV 


$TMP2.$BDDAT 


.-LOOK FOR BIT FAILURES WHEN RMDS READ 


013737 


001224 


001240 




MOV 


PORTA.PTNBR 


.•CHANGE PORT NUMBER 
.•DON'T CHECK THE ATTN BIT 


042737 


100000 


001126 




BIC 


#ATA,$BDDAT 


023737 


001124 


001126 




CMP 


$GDDAT.$BDDAT 


;ALL BITS OK ? 


001401 








BEO 


75$ 


;8R IF OK FROM PORT A. 


104007 








EMT 


7 




013737 


001172 


001126 


75$: 


MOV 


$TMP3.$8DDAT 


.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 


013737 


001226 


001240 




MOV 


P0RT8.PTN8R 


.•CHANGE PORT NLMBER 
.•DON'T CHECK THE ATTN BIT 


042737 


100000 


001126 




BIC 


*ATA,$8DDAT 


023737 


00'' 124 


001126 




CMP 


$GDDAT,$BDDAT 


.-SEE IF READ OK FROM PORT B. 


001401 








BEQ 


76$ 


;BR IF OK 


104007 








EMT 


7 




000240 






76$: 


NOP 







;THE ATTENTION BIT FOR PORT A SHOULD NOT BE SET 



057512 
057520 
057526 
057532 
C57540 
057546 
057552 
057556 
057564 
057572 
057600 
057602 
057610 
057616 
057624 
057626 
057632 



113760 
013737 
005037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104052 
005137 
000240 



001224 
001224 
001250 
000012 
000012 
001122 
001124 
001126 
077777 
001124 

001126 
100000 
001 1 74 

001250 



000010 
001240 

001126 
001122 



001164 
001164 
001164 

001 1 74 
001 1 74 
001124 



77$: 



MOVB 
MOV 

CLR 
MOV 
MOV 
ADD 
CLR 
MOV 
BIC 
CMP 
BEO 
MOV 
BIC 
BIS 
EMT 
COM 
NOP 



PORTA,RMCS?(RO) .'SELECT PORT A 

PORTA.PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO).$BDDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO '$TMPO' 
;SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
;COPV 'BAD DATA' 
.•CLEAR THE MASKED BITS 
.••OR' WITH GOOD DATA FOR TYPEOUT 



R0.$8DA0R 
$GDDAT 

$8DDAT.$TMP0 
/y*CATA,$TMPO 
$GDDAT.$TMPO 
77$ 

$8DDAT,$TMP4 
*ATA.$TMP4 
$TMP4.$GDDAT 
52 

CKERR 



;SET THE REGISTER COMPARE ERROR INDICATOR 



.•CLEAR ATTENTION BIT FOR PORT B 



F 1 
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T43 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 



SEQ 0150 



KOO 
K16 
U17 



05763A 
0576A2 
0576A6 
05765A 
057662 



K18 
1A53 



05766A 
05766A 
057670 
057672 
05767A 
057700 
057706 
0577K 
057722 
057722 
057730 
057734 



0577A2 
057750 
05775A 
057762 
057770 
057776 
060002 
060010 



060016 
06002A 
060032 
060036 



1 1 3760 
005060 
012760 
012760 
000004 



005737 
00K06 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 



001226 
000012 
00001 1 
000013 



000010 

000000 
000000 



3$: 



M0V8 

CLR 

MOV 

MOV 

SCOPE 



PORT8.RMCS2(R0) 
RMDS(RO) 
Xrll.RMCSKRO) 
*13.RMCS1(R0) 



.•SELECT PORT ttB 
.•SEIZE THE DRIVE 
.•ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 
.-LOOP ? 



001224 
001224 
000012 
001226 



*************************************************************** 

TEST 44 PORT "A* RETRIGGER BY DEMAND TEST 

VERIFY THAT IHE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 
A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
WAIT 500 MS AND READ RMDS THROUGH PORT V*. 



B. 
C. 



VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦OR - 25X OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP '8".) 

D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 

*************************************************************** 

TST44: 



001300 






TST 


KY8CTL 


.-PERFORMING ONLY SINGLE TEST ? 






BEQ 


2$ 


;8R IF NOT 








BPL 


1$ 


;8R IF JUST ENTERED TEST 


003074 






JMP 


EXEC 


.•RETURN & GET NEXT TEST NUMBER 


1 77777 


001300 


1$: 


MOV 


/ir-1.KYBCTL 


;SET SINGLE TEST INDICATOR 


057722 


001106 


2$: 


MOV 


#TEST44.$LPADR 


.•SETUP SCOPE LOOP ADDRESS 


057722 


001110 




MOV 


*TEST44,$LPERR 


.•SETUP ERROR LOOP ADDRESS 






TEST44: 








000044 


001102 




M0V8 


*44.$TSTNM 


;MOVE #44 TO TEST NUMBER 


001100 






MOV 


*STACK.SP 


;LOAD THE STACK POINTER 


000002 


001176 




MOV 


*2.,$TIMES 


;;D0 2. ITERATIONS 






.•CLEAR 


ATTENTION SITS FOR BOTH 


PORTS 



001224 


000010 


M0V8 


PORTA. RMCS2(R0) ; 


000012 




CLR 


RMDS(RO) 


00001 1 


000000 


MOV 


/ril.RMCSKRO) 


000013 


000000 


MOV 


*13,RMCS1(R0) 


001226 


000010 


M0V8 


PORT8,RMCS2(R0) ; 


000012 




CLR 


RMDS(RO) 


00001 1 


000000 


MOV 


#11.RMCS1(R0) 


000013 


000000 


MOV 


#13.RMCS1 (RO) 



SELECT PORT *A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT *B 

SEIZE THE DRIVE THROUGH PORT 'B' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



.•SEIZE THE DRIVE THROUGH PORT A 



000010 
001242 

001244 



M0V8 PORTA. RMCS2(R0) ; SELECT PORT A 

MOV PORTA. SEIZPT ."STORE SEIZING PORT'S ADDRESS 

CLR RMDS<RO) ; WRITE RMDS 

MOV PORTS. OPPRT ; 'OPPOSITE' PORT ADDRESS 



; START THE TIMER 
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SEO 0151 



0600AA 005037 001256 

060050 012737 00076A 001260 

060056 005737 001260 

060062 001375 



060064 
060070 



060076 
060102 
060110 
060116 
060122 
0601 2A 
060130 
C60132 
060134 



060142 
060146 
060154 
060160 
060166 
060174 
060202 
060210 
060216 
060224 
060232 
060240 
060246 
060254 
060262 
060270 
060272 
060276 
060300 
060302 
060306 
060314 
060322 
060330 
060334 
060336 
060344 
060352 
060360 
060364 
060366 
060374 
060402 



005037 
012737 



005760 
113760 
013737 
005760 
001004 
005737 
001372 
104036 
013737 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
1 1 3760 
005737 
001012 
012737 
012760 
012760 



001256 
003720 



000012 
001226 
001226 
000012 

001260 



001260 



000010 
001240 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



060466 
001 1 70 
001226 
001226 
001164 

001224 
001 1 72 
001224 
001166 

1 77777 
00001 1 
000013 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



001126 
001240 
000010 



001240 
001126 
000010 



001254 
000000 
000000 



1$: 



CLR 
MOV 
TST 
BNE 



TIME 

*500.. WATCH 

WATCH 

1$ 



.•START THE TIMER 

CLR 
MOV 



TIME 

/y2000., WATCH 



CLEAR THE ELAPSED TIME COUNTER 
SET WATCH TO TIM. MS 
WATCH EQUAL TO ZERO 
8R IF NOT 



; CLEAR THE ELAPSED TIME COUNTER 
;SET WAKH TO 2000. MS 



; RE TRIGGER THE TIMEOUT ONE-SHOT 



■SHOT 



001256 001276 3$: 



TST RMDS(RO) ;RETRIG6ER THE ONE- 

M0V8 P0RT8,RMCS2(R0) .-SELECT PORT B 

MOV PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 

2$: TST RMDS(RO) ;WAIT FOR TIMEOUT 

BNE 3$ ;8R IF TIMEOUT OCCURRED 

TST WATCH ;WATCH EQUAL TO ZERO ? 

BNE 2$ ;8R IF NOT 

EMT 36 

MOV TIME. TIMES ;SAVE THE ELAPSED TIME VALUE 



.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



66$: 



67$: 



CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

8IC 

MOV 

81 C 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

MOV 

M0V8 

TST 

BNE 

MOV 

MOV 

MOV 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS,$BDADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0,S8DADR ;ADD THE I/O BASE ADDRESS 

*MOLlPGM!DPR!DRy!VV,$GDDAT .-COMPARISON CONSTANT 
P0RTA.RMCS2{R0) .-SELECT PORT A. 

RMDS(R0),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PJP!WRL!0M,$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO '$TMPO' 

*ATAIVV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2(R0) .-SELECT PORT B. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
#PIPiWRL!0M,$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 
*ATA!VV,$TMP1 
$TMP0.$TMP1 
66$ 
$T«PO 
68$ 
46 
70$ 

$T/1P2,$BDDAT 

PORTS,PTh®R 

P0RT8,RMCS2{R0) 

$TMPO 

67$ 

PORTA, PTNBR 

$TMP3.$BDDAT 

PORTA,RMCS2(R0) 

$TMP1 

68$ 

/r-1. RELERR 

Afll.RMCSKRO) 

/)ri3,RMCS1(R0) 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSISLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'8AD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
8R IF NOT 

SET 'RELEASE ERROR' 'INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 
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SEO 0152 



U54 
U70 
K71 



060A10 
060A12 
060A20 
060426 
06043A 
060436 
060440 
060446 
060454 
060462 
060464 
060466 



060470 
060476 
060500 
060506 
060510 
060510 
060512 



1472 
1473 



104022 
013737 
013737 
023737 
OOUOl 
104007 
013737 
013737 
023737 
001401 
104007 
0002A0 



023737 
003004 
023737 
002001 

104025 
OOOOOA 



001170 
001224 
001124 



001172 
001226 
001124 



001126 
001240 
001126 



001126 
001240 



001276 001264 
001276 001266 



68$: 



69$: 



70$: 



EMI 22 

MOV $TMP2,$BDDAT 

MOV P0RTA.PTN8R 

CMP $GDDAT,$BDDAT 

BEO 69$ 

EMT 7 

MOV $TMP3,$BDDAT 

MOV P0RT8,PTNBR 

CMP $GDDAT.$BDDAT 

BEO 703 

EMT 7 
NOP 



;L00K FOR BIT FAILURES WHEN RMDS READ 

.•CHANGE PORT NUMBER 

;ALL BITS OK ? 

;8R IF OK FROM PORT A. 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

.-CHANGE PORT NUMBER 

;SEE IF READ OK FROM PORT B. 

;8R IF OK 



.•CHECK THE TIME FROM RETRIGGER TO TIMEOUT 



4$: 



CMP 
BGT 
CMP 
BGE 

EMT 
SCOPE 



TIMES. TIMEAP 
4$ 

TIMES. TIMEAM 
.♦4 

25 



.•MEASURED TIME GREATER THAN ♦25Z TOLERANCE 
;8R IF GREATER 

.•MEASURED TIME LESS THAN -25Z TOLERANCE 
;8R IF NOT 



;LOOP ? 



'•TEST 45 PORT "B' RETRIGGER BY DEMAND TEST 

•VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RE TRIGGERED BY MASS8US DEMAND. 
A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS- 



B. WAIT 500 MS AND WRITE 0*8 INTO RMDS THROUGH PORT 'A'. 

C. VERIFY THAT THE TIMEOUT OCCURS WITHIN + OR - 25% OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP '8'.) 



060514 








TST45: 




060514 


005737 


001300 




TST 


KY8CTL 


060520 


001406 






BEO 


2$ 


060522 


100002 






BPL 


1$ 


060524 


000137 


003074 




JMP 


EXEC 


060530 


012737 


^77777 


001300 


1$: MOV 


*-1.KYBCTL 


060536 


012737 


060552 


001106 


2$: MOV 


/|fTEST45,$LPA0R 


060544 


012737 


060552 


001110 


MOV 


»nEST45,$LPERR 


060552 








TEST45: 




060552 


112737 


000045 


001102 


MOVB 


*45,$TSTNM 


060560 


012706 


0011 00 




MOV 


*STACK,SP 


060564 


012737 


000002 


001 1 76 


MOV 


*2.,$TIMES 










.•CLEAR ATTENTION BITS FOR BOTH 


060572 


113760 


001224 


000010 


M0V8 


P0RTA,RMCS2(R0) 



D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 

.'PERFORMING ONLY SINGLE TEST ? 
;8R IF NOT 

;8R IF JUST ENTERED TEST 
.•RETURN & GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
; SETUP ERROR LOOP ADDRESS 

.-MOVE #45 TO TEST NUMBER 
;LOAO THE STACK POINTER 
;;D0 2. ITERATIONS 
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SEO 015^ 



060600 
060604 
060612 
060620 
060626 
060632 
060640 



060646 
060654 
060662 
060666 



060674 
060700 
060706 
060712 



060714 
060720 



060726 
060732 
060740 
060746 
060752 
060754 
060760 
060762 
060764 



060772 
060776 
061004 
061010 
061016 
061024 
061032 
061040 
061046 
061054 
061062 
061070 
061076 
061104 
061112 
061120 



005060 
012760 
012760 
1 1 3760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 



005037 
012737 
005737 
001375 



005037 
012737 



005760 
113760 
013737 
005760 
001004 
005737 
001372 
104036 
013737 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 



000012 
00001 1 
000013 
001 226 
000012 
00001 1 
000013 



001 226 
001226 
000012 
001224 



001256 
000764 
001260 



001256 
003720 



000012 
001224 
001224 
000012 

001260 



000000 
000000 
000010 

000000 
000000 



0000' 0 
001242 

001244 



001260 



001260 



000010 
001240 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 



001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 72 
001172 
001166 
001166 
001166 



CLR 


RMDS(RO) 


SEIZE THE DRIVE 


MOV 


wi 1 ,RMCS1 (HO; , 


Tcciic f^DT(/c n cad 
iS5Uc DRJVc CLbAR 


MOV 


*13.RMCS1 (RO) 


RELEASE THE DRIVE 


Move 


PORTS, RMCS2(R0) . 


SEIECT PORT 0B 


CLR 


RMDS(RO) 


■SEIZE THE DRIVE THROUGH PORT 'B' 


MOV 


*11,RMCS1(R0) 


•ISSUE DRIVE CLEAR 


MOV 


*13.RMCS1(R0) 


■RELEASE THE DRIVE 



.•SEIZE THE DRIVE THROUGH PORT B 



M0V8 
MOV 
CLR 
MOV 

.•START THE TIMER 



PORTS, RMCS2(R0) ."SELECT PORT 
PORTS. SEIZPT .-STORE SEIZING 
RMDS(RO) .-WRITE RMDS 

PORTA. OPPRT ; 'OPPOSITE* PORT ADDRESS 



B 

PORT ' S 



ADDRESS 



1S: 



CLR 
MOV 
TST 
BNE 



TIME 

*500., WATCH 

WATCH 

1$ 



.-START THE TIMER 

CLR 
MOV 



TIME 

#2000. .WATCH 



CLEAR THE ELAPSED TIME COUNTER 
SET WATCH TO TIM. MS 
WATCH EQUAL TO ZERO 
SR IF NOT 



.•CLEAR THE ELAPSED TIME COUNTER 
.-SET WATCH TO 2000. M3 



001256 001276 3$: 



.•RETRIGGER THE TIMEOUT ONE-SHOT 

TST RMDS(RO) .-RETRIGGER THE ONE-SHOT 

M0V8 PORTA. RMCS2(R0) ; SELECT PORT A 

MOV PORTA.PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

2$: TST RMDS(RO) ;WAIT FOR TIMEOUT 

BNE 3$ ;8R IF TIMEOUT OCCURRED 

TST WATCH .-WATCH EQUAL TO ZERO ? 

BNE 2$ ;8R IF NOT 

EMT 36 

MOV TIME, TIMES ;SAVE THE ELAPSED TIME VALUE 



; VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



CLR RELERR 

MOV /VRMDS.SSDADR 

ADD R0,$8DADR 

MOV *M0L!PGM!DPR:DRY 

M0V8 PORTA,RMCS2(R0) 

MOV RMDS(R0),$TMP2 

SIC *PIP!WRL!0M,$TMP2 

MOV $TMP2,tTMP0 

BIC *ATA!VV,$TMPO 

MOVS PORTS, RMCS2(R0) 

MOV RMDS(R0),$TMP3 . 

BIC #PIP!WRL!0M,$TMP3 

MOV $TMP3,$TMP1 

BIC #ATA!VV.$TMP1 

CMP $TMP0,$TMP1 

BNE 66$ 



INDICATOR 
FOR TYPEOUT 



CLEAR THE 'RELEASE ERROR 
FORM THE ADDRESS OF RMDS 
ADD THE I/O BASE ADDRESS 
VV.SGDDAT ; COMPARISON CONSTANT 
SELECT PORT A. 

GET THE DRIVE STATUS REGISTER FROM PORT A. 

.-CLEAR DONT CARES 
COPY IT INTO 'STMPO' 
CLEAR PORT DEPENDENT BITS FROM THE 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

; CLEAR DONT CARES 
COPY IT INTO 'STMPT 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
SR IF NOT 



COPY 
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SEO 01 W 



061122 


005737 


001164 






TST . 


$TMPO 


061126 


001045 








BNE 


68$ 


061130 


104C 6 








EMT 


46 


061132 


0001 37 


061316 






JMP 


70$ 


061156 


013737 


001 1 70 


001126 


66$: 


MOV 


$TMP2,$BDDAT 


061 KA 


013737 


001226 


001 240 




MOV 


PORTB.PTNBR 


061 1 52 


1 1 3760 


001226 


000010 




M0V8 


PORT8,RMCS2(R0) 


061160 


005737 


001 1 64 






TST 


$TMPO 


061 16A 


001414 








BEQ 


b7$ 


061166 


01 3737 


001224 


001240 




MOV 


POr}TA,PTNBR 


061174 


013737 


001 1 72 


001126 




MOV 


$TMP3.$BDDAT 


061202 


113760 


001224 


^^^^^^^^^ 

00001 0 




M0V8 


PORTA, RMCS2(R0) 


061210 


005737 


001166 






TST 


$TMP1 


061 2K 


001012 








BNE 


68$ 


061216 


012737 


1 77777 


001254 


67$: 


MOV 


*-l ,RELERR 


061 22 A 


012760 


00001 1 


000000 




MOV 


#1 1 ,RMCS1 (RO) 


061232 


012760 


000013 


000000 




MOV 


#13,RMCS 1 'RO) 


061240 


1 04022 








EMT 


22 


061242 


013737 


001 1 70 


001 1 26 


68$: 


MOV 


$TMP2,$BDDAT 


061250 


013737 


001224 


001240 


• 


MOV 


PORTA, PTNBR 


061256 


023737 


001124 


001 1 26 




CMP 


$GDDAT,$BDDAT 


061 264 


001401 








BEQ 


69$ 


061 266 


1 04007 








EMT 




061270 


013737 


001 1 72 


001 1 26 


69$: 


MOV 


$TMP3,$8DDAT 


061276 


013737 


001226 


001240 




MOV 


P0RT8,PTN8R 


061 3U*» 


\JC5f5f 


AA1 1 0/ 
001 1 CH 


UUl 1 CO 




Lrr 


«uUUAl ,M3UUAl 


061312 


001401 








BEQ 


70$ 


061314 


104007 








EMT 


7 


061316 


000240 






70$: 


NOP 












;CHFCK 


THE TIME 


FROM RE TRIGGER 



1474 
1495 
1496 



061320 
061326 
061330 
061336 
061 340 
061 340 
061342 



023737 
003004 
023737 
002001 

104025 
000004 



001276 001272 
001276 001274 



4$: 



CMP 
BGT 
CMP 
BGE 

EMT 
SCOPE 



TIMES, TIMEBP 
4$ 

TIMES. TIMEBM 
.+4 

25 



.•REGISTERS ARE THE SAME: ARE THEY ZERO ? 
;8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EG 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•8AD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 
8R IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 



LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

ALL BITS OK ? 

8R IF OK FROM PORT A, 

CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

8R IF OK 



MEASURED TIME GREATER THAN ♦252 TOLERANCE 
BR IF GREATER 

MEASURED TIME LESS THAN -252 TOLERANCE 
BR IF NOT 



;LOOP ? 



*•*******************•*•****•**************************><•***•** 

TEST 46 PORT 'A* TIMEOUT/RELEASE TEST 

VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

A. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S INTO RMDS. 

8. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'A'. 

C»- ISSUE A RELEASE COMMAND FROM PORT '8'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 
SET FOR PORT '8'. REGISTERS WILL NOT BE CHECKED THROUGH PORT 'A' 



WAIT THE TIMEOUT INTERVAL ♦ 252. 
BEEN RELEASED. 



VERIFY THAT THE DRIVE HAS 
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U97 
15^1 



061 3^^ 
061 

061 350 
061352 
061 35A 
061360 
061366 
061 37A 
06K02 
06U02 
06K10 
0614U 



06K22 
06U30 
06K3A 
06UA2 
06K50 
06K56 
061462 
06U70 



061476 
061504 
061512 
061516 
061524 
061532 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 
113760 
013737 



001300 



003074 

Mim 001300 

061402 001106 

061402 001110 



000046 
■001100 
000002 



001224 
000012 
00001 1 
000013 
001226 
000012 
00001 1 
000013 



001226 
001 226 
000012 
001224 
001224 
001224 



001102 
001176 



000010 

000000 
000000 
000010 

000000 
000000 



000010 
001242 

001244 
000010 
001240 



061 540 005060 000012 

061544 113760 001226 000010 

061552 013737 001226 001240 



061560 012760 000013 000000 



061566 013737 001264 001260 



061574 005037 001250 

061600 016037 000012 001126 



E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



TST46: 



IS: 
2$: 

TEST46: 



TST KY8CTL 

BEQ 2$ 

BPL 1$ 

JMP EXEC 

MOV *-1.KYBCTL 

MOV *TEST46.$LPADR 

MOV *TEST46.$LPERR 

M0V8 *46.$TSTNM 

MOV *STACK.SP 

MOV *2..$TIMES 



.-PERFORMING ONLY SINGLE TEST ? 
;8R IF NOT 

;8R IF JUST ENTERED TEST 
.■RETURN e GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

.•MOVE #46 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



MOVB 


PORTA, RMCS2(R0) , 


CLR 


RMDS(RO) 


MOV 


#11,RMCS1(R0) 


MOV 


xn3.RMCS'i (RO) 


MOVB 


PORT8,RMCS2(R0) 


CLR 


RMDS(RO) 


MOV 


#11.RMCS1(R0) 


MOV 


#13.RMCS1(R0) 



SELECT PORT n^ 
SEJZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PCWT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



.•SEIZE THE DRIVE THROUGH PORT B 



MOVB PORTS. RMCS2(R0> .-SELECT PORT B 

MOV PORTS, SEIZPT .-STORE SEIZING PORT'S ADDRESS 

CLR RMDS(RO) .-WRITE RMDS 

MOV PORTA, OPPRT ; 'OPPOSITE* PORT ADDRESS 

M0V8 PORTA, RMCS2(RP) .'SELECT PORT A 

MOV PORTA,PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
,-SET REQUEST THROUGH PORT A 

CLR RMDS(RO) .SET REQUEST FOR PORT A 

M0V8 PORTS, RMCS2(R0) .-SELECT PORT B ^ ^ 

MOV P0RT8.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

; RELEASE THE DRIVE THROUGH PORT B 

MOV #13,RMCS1(R0) ;RELEASE DRIVE THROUGH PORT B 
;WAIT THE MEASURED TIMEOUT FOR THE PORT (♦ 25X) 

MOV TIMEAP, WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE ♦ 25X 
.•VERIFY THAT THE DRIVE IS SEIZED BY PORT A 

CLR CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS(RO),tBDDAT ;GET CONTENTS OF RMDS 



0 



L 1 
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46 PORT 'A' TIMEOUT/RELEASE TEST 

061606 012737 000012 001122 

061 6K 060037 001122 

061620 005037 001124 

061624 023737 001124 001126 

061632 001403 

061634 104031 

061636 005137 001250 

061642 000240 66$: 

061644 005737 001250 

061650 001402 

061652 000137 062226 



SEQ 0156 



MOV 


#RMDS.$80ADR 


.•FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD 


R0.$8DADR 


.-ADD PH/RM BASE ADDRESS 


CLR 


IGDDAT 


;WHAT REGISTER SHOULD BE 


CMP 


$GDDAT,$BDDAT 


;JS THE REGISTER OK ? 


BEQ 


66$ 


;8R IF OK 


EMT 


31 




COM 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


NOP 






TST 


CKERR 


.REGISTER OK ? 


BEQ 


.♦6 




JMP 


1$ 


)8yPASS REST OF TEST IF NOT 



061656 005737 001260 
061662 001375 



;WAIT FOR THE TIMER TO RELEASE THE DRIVE 



TST 
BNE 



WATCH 
.-4 



.•WATCH EQUAL ZERO ? 
;SR IF NOT 



.•CONFIRM THAT THE DRIVE HAS TIMED OUT 
.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



061664 


005037 


001254 






CLR 


061670 


012737 


000012 


001122 




MOV 


061676 


060037 


001122 






ADD 


061 702 


012737 


01 1 700 


001124 




MOV 


061710 


1 1 3760 


001 22A 


000010 




MOVE 


061716 


016037 


000012 


001 1 70 




MOV 


061 724 


042737 


024001 


001 1 70 




BIC 


061 732 


013737 


001 1 70 


001 164 




MOV 


061 740 


042737 


100100 


001 1 64 




BIC 


061 f*to 


1 13^60 


0U1<:<:6 


UUUUl U 




Mn\/o 
PWVo 


061754 


016037 


000012 


001172 




MOV 


061762 


042737 


024001 


001172 




BJC 


061770 


013737 


001172 


001166 




MOV 


061776 


042737 


100100 


001166 




BIC 


062004 


023737 


001164 


001166 




CMP 


062012 


001006 








BNE 


062014 


005737 


001164 






TST 


062020 


001045 








BNE 


062022 


104046 








EMT 


062024 


000137 


062224 






JMP 


062030 


013737 


001170 


001126 


68$: 


MOV 


062036 


013737 


001226 


001240 




MOV 


062044 


113760 


001226 


000010 




M0V8 


062052 


005737 


001164 






TST 


062056 


001414 








BEQ 


062060 


013737 


001224 


001240 




MOV 


062066 


013737 


001172 


001126 




MOV 


062074 


113760 


001224 


000010 




M0V8 


062102 


005737 


001166 






TST 


062106 


001012 








BNE 


062110 


012737 


\nm 


001254 


69$: 


MOV 


062116 


012760 


00001 1 


000000 




MOV 


0621 2A 


012760 


000013 


000000 




MOV 


062132 


104035 








EMT 


062134 


013737 


001 1 70 


001126 


70$: 


MOV 


062142 


013737 


001224 


001240 




MOV 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$BDADR ;FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO,$aDADR ;ADI) THE I/O BASE ADDRESS 

#M0L!PGM!DPR!DRY1VV<$6DDAT ; COMPARISON CONSTANT 
PORTA,RMCS2(R0) ;S€LECT PORT A. 

RMDS(R0).$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
*PJP!WRL!0M,$TMP2 ; CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO '$TMPO' 

*ATA!VV.$TMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORT8,RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
*PJP!WRL!0M,$TMP3 .-CLEAR DONT CARES 



$TMP3,$TMP1 
#ATA!VV.$TMP1 
$TMP0,$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$BDDAT 

P0RT8.PTNBR 

PORTS, RMCS2CR0) 

$TMPO 

69$ 

PORTA, PTNBR 

$TMP3.$BDDAT 

PORTA. RMCS2(R0) 

$TMP1 

70$ 

#-1 ,RELERR 

/Ifll.RMCSKRO) 

*13,RMCS1(R0) 

35 

$TMP2.$BDDAT 
PORTA. PTNBR 



COPY IT INTO •$TMPr 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EG ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 



CZRMRBO 
TA6 



RM05/3/2 DU POR TST 1 MACRO VOA.OO 
PORT 'A' TIMEOUT/RELEASE TEST 



M 1 
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15A2 
1560 
1561 



SEO 01 S7 



062150 
062156 
06216A 
062166 
062170 
0621 76 
062204 
062212 
062220 
062222 
062224 
062226 



1562 
1563 



062230 
062230 
06223A 
062236 
062240 
062244 
062252 
062260 
062266 
062266 
062274 
062300 



062306 
062314 
062320 
062326 
062334 
062342 
062346 
062354 



042737 
023737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 
000004 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



100000 
001124 



001172 
001226 
100000 
001124 



001300 



003074 

1 mil 

062266 
062266 

000047 
001100 
000002 



001224 
000012 
00001 1 
000013 
U01226 
000012 
000011 
000013 



001126 
001126 



001126 
001240 
001126 
001126 



001300 
001106 
001110 

001102 

001 1 76 



000010 

000000 
000000 
000010 

000000 
000000 



71$: 



72$: 
1$: 



BIC 
CMP 
BEO 
EMT 
MOV 
MOV 
BIC 
CMP 
BEO 
EMT 
NOP 
SCOPE 



<rATA.$BDDAT 

$GDDAT,$BDDAT 

71$ 

7 

$TMP3,$BDDAT 

P0RT8,PTNBP 

«ATA,$BDDAT 

$GDDAT,$6DDAT 

72$ 

7 



DON'T CHECK THE ATTN BIT 

ALL BITS OK ' 

8R IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FkGM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
8R IF OK 



;LOOP 



►****•********♦•»*****♦*******•*******• •***•••*******•• ******** 



.-•TEST 47 



PORT 'B' TIMEOUT/RELEASE TEST 



;-*VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 



# 

• ♦ 
• » 

• * 
# 

• * 

• * 

• * 

• * 

• * 

• * 

m 

• * 

• * 



A. 
B. 
C. 

D. 



SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT '8'. 

ISSUE A RELEASE COMMAND FROM PORT 'A'. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND TH,*T THE 'ATA' BIT DID NOT 
SET FOR PORT 'A*. REGISTERS WILL NOT BE CHECKED THROUGH PORT '8', 



WAIT THE TIMEOUT INTERVAL ♦ 25X. 
BEEN RELEASED. 



VERIFY THAT THE DRIVE HAS 



- .*»**»****»*********♦******•************************************ 

tST47: 



1$: 
2$: 

TEST47: 



TST KY8CTL 

BEO 2$ 

BPL 1$ 

JMP EXEC 

MOV *-1.KYBCTL 

MOV *TEST47.$LPADR 

MOV *TEST47,$LPERR 

MOVB #47.$TSTNM 

MOV <fSTACK.SP 

MOV *2..$TIMES 



PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN I GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDREbS 

MOVE *47 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 2. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



MOVB 


PORTA, RMCS2(R0) 


CLR 


RMDS(RO) 


MOV 


#11,RMCS1(R0) 


MOV 


#13.RMCS1(R0) 


M0V8 


PORTS. RNCS2(R0) 


CLR 


RMOS(RO) 


MOV 


Xfll.RMCSKRO) 


MOV 


*13.RMCS1(R0) 



SELECT PORT ttA 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT ttQ 

SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
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SEQ 0158 



062562 
062370 
062376 
062402 
062410 
062416 



062424 
062430 
062436 



062460 
062464 
062472 
062500 
062504 
062510 
062516 
062520 
062522 
062526 
062530 
062534 
062536 



113760 
013737 
005060 
013737 
113760 
013737 



005060 
113760 
013737 



062444 012760 



062452 013737 



005037 
016037 
012737 
060037 
r35037 
023737 
001403 
104031 
005137 
000240 
005737 
001402 
000137 



062546 001375 



062550 
062554 
062562 
062566 
062574 
062602 
062610 
062616 
062624 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 



.•SEIZE THE DRIVE THROUGH PORT A 

001224 000010 MOVB PORTA, RMCS2(R0) .-SELECT PORT A 

001224 001242 MOV PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 

000012 CLR RMDS(RO) .-WRITE RMDS 

001226 001244 MOV PORTS. OFPRT .-'OPPOSITE' PORT ADDRESS 

001226 000010 MOVB PORT8,RHCS2(R0) .-SELECT PORT B 

001226 001240 MOV PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

.-SET REQUEST THROUGH PORT B 

000012 CLR RMDS(RO) ;SET REQUEST FOR PORT B 

001224 000010 MOVB PORTA, RMCS2(R0> .-SELECT PORT A 

001224 001240 MOV PORTA, PTNBR ;M0VE PORT ADDRESS tq LOCATION FOR TYPEOUT 

.-RELEASE THE DRIVE THROUGH PORT A 



000013 


000000 




MOV 


#13,RMCS1(R0) 


.■RELEASE DRIVE THROUGH PORT A 






.-WAIT 


THE MEASURED TIMEOUT FOR 


THE PORT (+ 25%) 


001272 


001260 




MOV 


TIMEBP, WATCH 


.-SET WATCH TO MEASURED TIMEOUT VALUE 






.-VERIFY THAT 


THE DRIVE IS SEIZED BY PORT B 


001250 






CLR 


CKERR 


.•CLEAR THE 'CHECK ERROR' INDICATOR 


000012 


001 •'26 




MOV 


RMDSC?0),$8DDAT 


;6ET CONTENTS OF RMDS 


000012 


001122 




MOV 


*RMDS,$8DADR ; 


FORM REGISTER ADDRESS OF ERROR MESSAGE 


001122 






ADD 


RO,$eDADR 


.-ADD RH/RM BASE ADDRESS 


001124 






CLR 


SGDDAT 


.-WHAT REGISTER SHOULD BE 


001124 


001126 




CMP 


$GDDAT,$BDDAT 


;IS THE REGISTER OK ? 








BEQ 


66$ 


;8R IF OK 








EMT 


31 




001250 






COM 


CKERR 


;SET THE REGISTER COMPARE ERROR INDIC 




66$: 


NOP 






001250 






TST 


CKERR 


.-REGISTER OK ? 








BEQ 


• •^6 


* BR IF OK 


063112 






JMP 


1$ 


•BYPASS REST OF TEST IF NOT 






.-WAIT 


FOR THE 


TIMER TO RELEASE 


THE DRIVE 


001260 






TST 


WATCH 


;WATCH EQUAL ZERO ? 






BNC 


.-4 


.-8R IF NOT 



252 



.-CONFIRM THAT THE DRIVE HAS TIMED OUT 
.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



001254 
000012 
001122 
01 1 700 
001224 
000012 
024001 
001 1 70 
100100 



001122 

001124 
000010 
001170 
001 1 70 
001164 
001164 



CLR RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

MOV #RMDS,$8DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD R0,$8DADR ;ADD THE I/O BASE ADDRESS 

MOV #M0L!PGM!DPR!DRY!VV.$6DDAT ;COMPARISON CONSTANT 

M0V8 PORTA, RMCS2(R0) ,-SELECT PORT A. 

MOV RMDS(R0).$TMP2 .-GE^ THE DRIVE STATUS REGISTER FROM PORT 

SIC #PIP!WRL !0M,$TMP2 .-CLEAR DONT CARES 

MOV $TMP2,$TMP0 ;COPY IT INTO •$TMPO' 

BIC #ATA!VV.$TMPO ;CLEAR PORT DEPENDENT BITS FROM THE COPY 



ZR«1RB0 

47 



RM05/5/2 DU POR TST 1 rwCRO V04.00 
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B 

PAGE 



2 
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1564 
1589 
1590 



062652 


1 1 3760 


001226 


000010 




M0V8 


062640 


016037 


000012 


0011 72 




MOV 


062646 


042737 


024001 


001 172 




SIC 


062654 
062662 


013737 
042/ 37 
023737 


001 1 72 


001 166 




MOV 


« 4 AA 

100100 


A A ^ ^ £ d 

001 166 




BIG 


062670 


coil 64 


001 166 




CMP 


062676 


001006 








BNE 


062700 


005737 


001164 






TST 


062704 


001045 








BNE 


062706 


104046 








EMT 


062710 


000137 


063110 






JMP 


062714 


013737 


A A t t ^ A 

001170 


AA4 4 

001 1 26 


68>: 


MAi i 

MOV 


062722 


013737 


AA 4 

001226 


A A 4 ^y A 

001240 




MOV 


062730 


1 1 3760 


001226 


AAAA i A 

000010 




MOVo 


062736 


005737 


AA4 1 X y 

001 1 64 






T C T 

TST 


062742 


AA^ / ^ i 

001414 








BP A 

BEO 


062744 


013737 


001 224 


A A 1 T y A 

001240 




MOV 


062752 


013737 


001 1 72 


AA1 1 IX 

0011<?6 




MOV 


062760 


1 1 3760 


AA1 T^/ 

001224 


AAAA 1 A 

000010 




MOVo 


062766 


005737 


A A ^ ^ d. £. 

001 166 






T C T 

TST 


062772 


AA^ A 4 ^ 

001012 








BNE 




012737 


1 77/'/' /^ 


AAl 'iC / 

001 ^!)A 


Z.Atf . 




063002 




0000 1 1 


AAAAAA 
OOOUOU 




nOV 


063010 


A1 T7^A 


00001 3 


AAAAAA 
000000 




MAI/ 

MOV 


063016 


1 Ay t'stc 








CMT 


063020 


013737 


AA4 4 ^A 

001 1 70 


AA1 1 

001 126 


■7A# . 

r05: 


MOV 


063026 


013737 


001224 


AA 1 ^/ A 

001240 




MOV 


063034 




AAAAA 

100000 


00 1 l<:6 




BIC 


063042 


023737 


AA'l "1 Ty 

001 1 24 


AA-t -1 "^Z. 

001 126 




CMP 


063050 


AA'1 / A'1 

001 AO 1 








BEO 


063052 


■« A/ AA'7 

104007 








cMT 


063054 


013737 


AA-I -171 
001 1 /'2 


AA-l 1 '^L. 

001126 


^ i»: 


MOV 




042737 


UU 1 ecu 


AA-I A 




Mnu 


063070 


100000 


001126 




BIC 


063076 


023737 


001124 


001126 




CMP 


063104 


001401 








BEO 


063106 


104007 








EMT 


063110 


000240 






72$: 


NOP 


063112 


000004 






IS: 


SCOPE 



PORTS. RMCS2(R0) .-SELECT PORT 6. 

RMDS(RO) .$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
#PIPiWRL.0M.$TMP3 .-CLEAR DONT CARES 



$TMP3.$TMP1 
#A^A1VV,$TMP1 
STMPO.STHPl 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2.$B00AT 

PORTB.PTNBR 

PORTB.RHCS2(R0) 

$TMPO 

69$ 

PORTA.PTNBR 

$TMP3.$BDDAT 

PORTA. RMCS2(R0) 

$TMP1 

70$ 

#-1 ,RELERR 
#ll.RnCS1(R0) 
/ri3,R«CSl(R0) 
35 

$TMP2,$8DDAT 

PORTA.PTNBR 

MTA.SBDDAT 

SGDOAT.SBDDAT 

71$ 

7 

$TMP3.$BDDAT 

P0RT8.PTNBR 

#ATA.SBDDAT 

SGDDAT.SBDDAT 

72$ 

7 



copy IT INTO •$TMP1 
CLEAR PORT DEPENDENT BITS FROM THE COP'' 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
BR IF NOT 



OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAL 



BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PO^T , TEST SHOWS DRIVE NOT IN NEUTRAL 
•8AD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT 8. 
8R IF NOT 

SET 'RELEASE ERROR' INDKATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVc 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NLTOER 

DON'T CHECK THE ATTN BIT 

ALL BITS OK ? 

8R IF OK FROM PORT A. 

CHECK RMOS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NLTOER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 8. 
BR IF OK 



;LOOP ? 



TEST 50 



PORT 'A' SEIZE ACCESS TEST 



VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 
WRITE I'S INTO RHERl. RMER2 THROUGH PORT 'A*. 



8. 
C. 

D. 
E. 



READ RMERl, RMER2 THROUGH PORT '8'. VERIFY THAT PORT 
•8' SEES O'S FROM EACH OF THESE REGISTERS. 

CLEAR RMERl. RMER2 THROUGH PORT 'A'. 

WRITE I'S INTO RMERl, RMER2 THROUGH PORT '8'. VERIFY THAT 
PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 
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SEO 016C 



1591 
1630 



0631U 
0631 U 
063120 
063122 
063124 
063130 
063136 
063144 
063152 
063152 
063160 
063164 



063172 
063200 
063204 
063212 
063220 
063226 
063232 
063240 



063246 
063254 
063262 
063266 
063274 
C63302 
063310 
063316 
063324 
063330 
063336 
063344 
063350 
063354 
063362 
063370 
063376 
063404 
063412 
063420 
063426 



005737 
001406 
100002 
000137 
012737 
012737 
012737 

112737 
012706 
012737 



113760 
005060 
012760 
012760 
113760 
005060 
012760 
012760 



113760 
013737 
005060 
013737 
012760 
012760 
113760 
013737 
004737 
113760 
01^737 
005060 
005060 
013760 
113760 
013737 
012760 
012760 
113760 
013737 
004737 



001 300 



003074 
M7777 
063152 
063152 

000050 
001100 
000012 



001224 
001224 
000012 
001226 

001226 
001226 
064164 
001224 
001224 
000042 
000014 
001236 
001226 
001226 
\77777 
y77777 
001224 
001224 
064164 



F. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'B* AND THAT THE ATTENTION BIT FOR PORT '8' IS 
SET AND THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

G. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT TWE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET, 



TST50: 







TST 


KY8CTL 


;PERFORMING ONLY SINGLE TEST ? 






BEQ 




;8R IF NOT 






BPL 


It 


;8R IF JUST ENTERED TEST 






JMP 


EXEC 


.•RETURN t GET NEXT TEST NUMBER 


001 300 


1$: 


MOV 


*-1,KVBCTL 


;SET SINGLE TEST INDICATOR 


001106 


2$: 


MOV 


#TEST50,$LPADR 


; SETUP SCOPE LOOP ADDRESS 


001110 


MOV 


#TEST50,$LPERR 


.•SETUP ERROR LOOP ADDRESS 




TEST50: 








001102 




MOVE 


/r50,$TSTNM 


.-MOVE #50 TO TEST NUMBER 




MOV 


#STACK,SP 


;LOAD THE STACK POINTER 


001176 




MOV 


#10..$TIMES 


;;D0 10. ITERATIONS 



.•CLEAR ATTENTION BITS FOR BOTH PORTS 



001224 


000010 


M0V8 


PORTA.RMCS2(R0) ; 


000012 




CLR 


RMDS(RO) 


000011 


000000 


MOV 


#11,RMCS1(R0) 


000013 


000000 


MOV 


#13,RHCS1(R0) 


001226 


000010 


M0V8 


PORTS, RMCS2(R0) ; 


000012 




CLR 


RWS(RO) 


00001 1 


000000 


MOV 


#11.RMCS1(R0) 


000013 


000000 


MOV 


#13.RMCS1(R0) 



SELECT PORT *A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
FiELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 



.•SEIZE THE DRIVE THROUGH PORT A 



000010 
001242 

001244 
000014 
000042 
000010 
001240 

000010 
001240 



000016 
000010 
001240 
000014 
000042 
000010 
001240 



MOVB 

MOV 

CLR 

MOV 

MOV 

MOV 

M0V8 

MOV 

JSR 

MOVB 

MOV 

CLR 

CLR 

MOV 

MOVB 

MOV 

MOV 

MOV 

MOVB 

MOV 

JSR 



PORTA.RMCS2(R0) ; SELECT PORT 



PORTA.SEIZPT 
RMDSCRO) 
PORTS, OPPRT 
/r-1,RMER1(R0) 
#-1,RMER2(R0) 
PORTS, RMCS2(R0) 
PORTS, PTNBR 
PCTSTSOB 



STORE SEIZING PORT'S ADDRESS 
;WRITE RMDS 

.••OPPOSITE' PORT ADDRESS 
.-LOAD rS INTO RMER1 THROUGH PORT A 
.•LOAD rS INTO RMER2 THROUGH PORT A 
.SELECT PORT 8 
.MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
.CHECK THE REGISTERS THROUGH PORT B 



PORTA, RMCS2(R0) .•SELECT PORT A 
PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TvpEOUT 
RMER2(R0) ; CLEAR RMER2 ON PORT A 

RMERKRO) .-CLEAR RMER1 ON PORT A 

ASRI.RMASCRO) .-CLEAR THE ATTENTION BIT FOR PORT A 
PORTS, RMCS2(R0) .-SELECT PORT 8 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPFOUT 
#-1,RMER1(R0) .-LOAD I'S INTO RMER1 THROUGH PORT B 
/lf-l,RMER2(R0) ;LOAD "I'S INTO RMER2 THROUGH PORT B 
PORTA, RMCS2(R0) ; SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC.TSTSOB ; CHECK THP REGISTERS THROUGH PORT A 
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063432 


1 1 3760 


001224 


000010 




M0V8 


0634A0 


013737 


001224 


001240 




MOV 


0634A6 


012760 


00001 3 


AAA AAA 

000000 




MOV 










; vcRIF Y 


THAT 


063A5A 


005037 


001254 






CLR 


063A60 


012737 


^ 4 7AA 

ill 700 


A A 111/ 

001 124 




UAl / 

MOV 


063A66 


T77'7 

012737 


/\AAA^ T 

00001 2 


A A 1 i "5 T 

00 1I 22 




MOV 


063A7A 


060037 


AA^ ^ ^ ^ 

001 122 






ADD 


063500 


1 1 3760 


AA1 TTIZ. 

001 226 


AAAAi A 

000010 




MAI iO 

M0V8 


063506 


A1 7'77'7 

013737 


AA ^ TIZ 

001 226 


AA1 1/ A 

001240 




UAt i 

MOV 


06351 A 


A^ ^ A7'7 

016037 


AAAA1 1 

00001 2 


AA1 1 Z./ 

001 164 




MOV 


f\A. Tc n 

063522 


1 1 3760 


AA1 TO/ 

001 224 


AAAAI A 
00001 0 




MAt/O 

MOVo 


f\£. 7C 7A 

063530 


A1 7777 


AA1 

001224 


AA1 *3y A 

001 «:40 




MOV 


t\£. 7C 7^ 

063536 


A1 A77 

01603/^ 


AAAA1 0 

00001 2 


AA1 1 OZ. 

001 126 




MOV 


G635AA 


001404 








BEO 


0635A6 


005737 


001164 






TST 


063552 


001401 








BEO 


063554 


104031 








EMT 


7C 

065!) !)6 


01 5f5f 


AA1 i /./ 

001 io4 


AA1 1 ^iL 
UUl 1 CO 


66$: 


MOV 


0635oA 


A1 ■7777 


AA1 


A A 1 "5/ A 

UUl c4U 




MOV 


UO J J ' c 


\Jcjf Jf 


nni 1 

UU 1 1 CH 


Uw 1 1 CO 




CMP 


063600 


001401 








BEO 


063602 


104027 








EMT 


063604 


000240 






67$: 


NOP 










.•RELEASE THE 


063606 


113760 


001226 


000010 




M0V8 


063614 


013737 


001226 


001240 




MOV 


063622 


012760 


000013 


000000 




MOV 



063630 
063634 
063642 
063646 
063654 
063662 
063670 
063676 
063704 
063712 
063720 
063726 
063734 
063742 
063750 
063756 
063760 
063764 
063766 



.•RELEASE THE DRIVE FROM PORT A 

PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TvPEOuT 
#13.RMCS1 (RO) .'ISSUE RELEASE THROUGH PORT A 

.•vcRIFY THAT DRIVE IS SEIZED BV PORT B WHEN RELEASED BY PORT A 

RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

*ATA!M0L!PGMIDPR!DRYIVV.$GDDAT .-COMPARISON CONST/VJ 
*RMDS.$8DADR .-REGISTER ADDRESS INCREMENT 
R0.$8DADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

PORTS. RMCS2(R0) .-SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO).$TMP0 .-READ STATUS REGISTER FROM PORT B 
PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$8DDAT .-DRIVE STATUS FROM PORT A 

;8R IF STATUS FROM PORT A ZERO 
.-IS STATUS FROM PORT B ZERO ? 
;8R IF ZERO 



66$ 
$TMPO 
66$ 

31 

$TMPO,$BDDAT 
PORTS. PTN8R 
$GDDAT.$6DDAT 
67$ 

27 



.-CHECK STATUS FROM PORT B 
.-CHANGE PORT ADDRESS FOR TYPEOUT 
.-COMPARE WITH CONSTANT 
;8R IF OK 



PORTe,RMCS2CR0) .-SELECT PORT B 

PORTS, PTNBR ;WVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
*13,RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 



.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 



005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 



001254 
000012 
001122 
011700 
001224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 



001122 

001124 
000010 
001 1 70 
001170 
001164 
001164 
000010 
001172 
001172 
001166 
001166 
001166 



CLR 

MOV 

ADD 

MOV 

MQV8 

MOV 

BIC 

MOV 

BIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNF 

TST 

BNE 

EMT 



RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR ;FOR« THE ADDRESS OF m>S rOR TYPEOUT 
R0,$8DADR ;AOD THE I/O BASE ADDRESS 

#«OL!PGM!DPR!DRV!VV,$GDDAT .-COMPARISON CONSTANT 
PORTA,R«CS2(R0) .'SELECT PORT A. 

R«DS(R0),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP !WRL!0M,$TMP2 .-CLEAR DONT CARES 

$TMP2.$TMP0 .'COPY IT INTO •$TMPO' 

#ATA!VV,$TnPO .'CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RHCS2(R0) .'SELECT PORT B. 

RMDS(R0),$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP! WRL!0M,$TMP3 .'CLEAR DONT CARES 



$TMP3.$THP1 
#ATA!VV.$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 



COPY IT INTO •$TMP1' 
CLEAR PORT DEPENDENT BITS FRO*! THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO "> 
BR IF NOT 
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PORT 'A' SEIZE 


ACCESS 


FEST 






nAX77n 


nnni X7 


064154 






JMP 


UO J' ' *♦ 


ni ^7^7 

U 1 J' J' 


001170 


001126 


68$: 


MOV 




01 ^7^7 

U 1 J' J' 


001226 


001240 




MOV 




1 1 X7A0 


001226 


000010 




M0V8 




00*! 7X7 


001164 






TST 












8EQ 




01 \7\7 


001224 


001240 




MOV 




01 X7X7 


001 1 72 


00 126 




MOV 




1 1 X760 


001224 


000010 




Move 




V w J f Jf 


001166 






TST 












BNE 




01 P7?7 


1 77777 


001254 


69$: 


MOV 




01?760 


000011 


000000 




MOV 


0^070 


01?760 


000013 


000000 




MOV 


\J\jH\Jf o 


1040P^ 








EMT 




01 X7X7 


001 1 70 


001126 


70$: 


MOV 




01 X7X7 


001224 


001240 




MOV 




0?3737 


001 1 24 


001126 




CMP 




001401 








BEG 




104007 








EMT 


064 1?6 


013737 


001 1 72 


001 1 26 


71$: 


MOV 


0641 3A 


01 3737 


001226 


001240 




MOV 


064 K2 


023737 


001124 


001126 




CMP 


064150 


00U01 








BEO 


064152 


104007 








EMT 


064154 


0002A0 






72$: 


NOP 


064156 


000004 








SCOPE 


1631 06A160 


000137 


064406 






JMP 



064164 
064164 
064170 
064176 
064204 
064210 
064214 
064222 
064224 
064226 
C64232 
064240 
064246 
064252 
064260 
064262 
064264 
064272 
064274 
064300 
064306 
064314 
064320 
064324 
064332 
064334 



005037 
016037 
012737 
060037 
005037 
023737 
001403 
104006 
005137 
016037 
012737 
060037 
032737 
001404 
104011 
012760 
000240 
005037 
016037 
012737 
060037 
005037 
023737 
001403 
104006 



001250 
000014 
000014 
001122 
001124 
001124 



001250 
000000 
000000 
001122 
020000 



040000 

001250 
000042 
000042 
001122 
001124 
001124 



TST50e: 



001126 
001122 



001126 

001126 
001122 

001126 
000000 



001126 
001122 



001126 



64$: 



65$: 



72$ 

$TMP2.$BDDAT 
PORTS. PTNB.'^ 
PORTS. RMCS2(R0) 
$TMPO 
69$ 

PORTA. PTN8R 

$TMP3,$BDDAT 

PORTA. RMCS2(R0) 

$T,'V1 

70$ 

#-l,RELERR 
*11.RMCS1(R0) 
#13,RMCS1(R0) 
26 

$TMP2,$BDDAT 
PORTA, PTN8R 
$GDDAT,$BDDAT 
71$ 

7 

$TMP3.$8DDAT 
PORTS, PTNBR 
$6DDAT.$8DDAT 
72$ 

7 



TST51 



BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NfUTRA. 
SELECT PORT 8. 

SEE IF STATUS EG 0 FROM POPT A. 
BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EG ZERO FROM PORT 8. 
8R IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 

CHANGE PORT NUMBER 

ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT 8. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT 8. 

BR IF OK 



;LOOP ? 

;G0 TO THE NEXT TEST 



.•CHECK THE REGISTERS ON THE SELECTED PORT 



CLR 
MOV 
MOV 
ADD 
CLR 
CMP 
BEQ 
EMT 
COM 
MOV 
MOV 
ADD 
BIT 
BEQ 
EMT 
MOV 
NOP 
CLR 
MOV 
MOV 
ADD 
CLR 
CMP 
BEQ 
EMT 



CKERR 

RMER1(R0),$8DDAT 
#RMER1 .$6DADR 
R0,$eDADR 
$GDDAT 

$GDDAT,$6DDAT 
64$ 
6 

CKERR 

RMCS1(R0),$SDDAT 

#RMCS1,$BDADR 

R0,$eDADR 

4WCPE,$BDDAT 

65$ 

11 

#TRE,RMCS1(R0) 



.•CLEAR THE 'CHECK ERROR* IWICATOR 

;GET CONTENTS OF RMER1 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;JS THE REGISTER OK ? 
;8R IF CK 

;SET THE REGISTER COMPARE ERROR INDICATOR 

;GET THE CONTENTS OF RHCS1 
FORM ADDRESS OF REGISTER 
ADDRESS BASE 
IS 'MCPE' SET ? 
BR IF NOT 



.•CLEAR 'MCPE' 



CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 
RMER2(R0).$BDDAT ;GET CONTENTS OF RMER2 

*RMER2.$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR ;ADD RH/RM BASE ADDRESS 

$GDDAT .-WHAT REGISTER SHOULD BE 

$GDDAT.$BDDAT ;IS THE REGISTER OK ? 
66$ ;8R IF OK 

6 
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SEO 016' 



^632 
!637 
1658 



064556 


005 1 57 


001250 






LUn 


CKERR 


;SET THE REGISTER COMPARE ERROR 


06*. 542 


016057 


oooouu 


AA1 1 

OUl 1 CO 


6o*: 


nuv 


RMCS1(R0),$BDDAT ;GET THE CONTENTS OF RHCSl 


06*>550 


012757 


AAAAAA 


AA1 100 




nuv 


*RMCS1,$BDADR 


;FORM ADDRESS OF REGISTER 


064556 


060037 


001122 






ADD 


RO,$BDADR 


.•ADDRESS BASE 
;IS 'MCPE' SET ? 


064 362 


032737 


020000 


001126 




BJT 


*MCPE,$BDDAT 


064370 


001404 








BEO 


67$ 


;8R IF NOT 


064372 


104011 








EMT 


11 


.•CLEAR 'MCPE* 


064374 


012760 


040000 


000000 




MOV 


*TRE.RMCS1 (RO) 


064402 


000240 






67$: 


NOP 






064404 


000207 








RTS 


PC 


.•RETURN 










.••TEST 


51 


PORT 'B' SEIZE 


ACCESS TEST 



1659 
1660 



VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 
WRITE rs INTO RMERl. RMER2 THROUGH PORT '8'. 



B. 
C. 

D. 
E. 



G. 



READ RMER:. RMER2 THROUGH PORT 'A'. VERIFY THAT PORT 
•A' SEES O'S FROM EACH OF THESE REGISTERS. 

CLEAR RMERl, RMER2 THROUGH PORT 'B*. 

WRITE I'S INTO RMERl. RMER2 THROUGH PORT 'A*. VERIFY THAT 
PORT '8* SEES O'S FROM EACH OF THESE REGISTERS. 

RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE HAS 
SWITCHED TO PORT 'A' AND THAT THE ATTENTION BIT FOR PORT 'A' IS 
SET AND THE ATTENTION BIT FOR PORT 'B* IS NOT SET. 

ISSUE A RELEASE COMWAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 



A************************************************************** 



064406 








TST51 : 








064406 


005737 


001300 






TST 


KV8CTL 


.-PERFORMING ONLY SINGLE TEST ? 


064412 


001406 








BEO 


2$ 


;8R IF NOT 


064414 


100002 








8PL 


1$ 


;BR IF JUST ENTERED TEST 


064416 


000137 


003074 






JMP 


EXEC 


.•RETURN ft GET NEXT TEST NUMBER 


064422 


012737 


^77777 


001 300 


1$: 


MOV 


#-l.KYBCTL 


;SET SINGLE TEST INDICATOR 


064430 


012737 


064444 


001106 


2$: 


MOV 


#TEST51.$LPADR 


.-SETUP SCOPE LOOP ADDRESS 


064436 


012737 


064444 


001110 




MOV 


#TEST51.SLPERR 


.•SETUP ERROR LOOP ADDRESS 


064444 








TEST51 








064444 


112737 


000051 


001102 




Move 


*51.$TSTN« 


.•MOVE #51 TO TEST NUMBER 


064452 


012706 


001100 






MOV 


*STACK,SP 


.•LOAD THE STACK POINTER 


0644 S6 


012737 


000012 


001 1 76 




MOV 


*10.,$TIMES 


;.D0 10. ITERATIONS 










.•CLEAR 


ATTENTION BITS FOR BOTH 


PORTS 


064464 


113760 


001224 


000010 




M0V8 


PORTA, RMCS2(R0) 


.•SELECT PORT #A 


064472 


005060 


000012 






CLR 


RMDS(RO) 


.SEIZE THE DRIVE 


064476 


012760 


00001 1 


000000 




MOV 


*11 ,RMCS1 (RO) 


; ISSUE DRIVE CLEAR 


064504 


012760 


00001 3 


000000 




MOV 


*13,RMCS1(R0) 


.■RELEASE THE DRIVE 



CZRMPBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APft-81 
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06A512 


113760 


001226 


000010 




Move 




005060 


00001 ? 










01 P760 


000011 


000000 




MOV 




01P760 


00001 ^ 


000000 














•SFIZF 


THE Dl 




1 1 3760 


001 ??6 

vv 1 ecu 


0C0010 




MOVB 




013737 


001 ??6 
vv 1 ecu 


00124? 




MOV 




005060 


00001? 






CLR 




01 3737 


001 ?24 


001 ?44 




MOV 




01 ?760 


1 77777 


00001 4 

WW 1 ~ 




MOV 

1 IV/ V 




01 2760 


1 77777 


00004? 




MOV 


06460? 


1 1 3760 


001 ??4 


00001 0 




MOVB 


064610 


013737 


001 ??4 


001 ?40 




MOV 


064616 


004737 


065456 






JSR 


06462? 


1 1 3760 


001 ??6 


00001 0 

WW 1 w 




MOVB 


0646^0 


013737 


001 226 


001 240 




MOV 


064636 


005060 


000042 






CLR 


C64642 


005060 


000014 






CLR 


064646 


01 3760 


001236 


000016 

WW t VJ 




MOV 


06A654 


1 1 3760 


001224 


000010 




MOVB 


06A662 


013737 


001224 


001 240 




MOV 


064670 


012760 


1 77777 


000014 




MOV 


06A676 


012760 


"[77777 


000042 




MOV 


064704 


1 1 3760 


001226 


000010 

www 1 w 




MOVB 


06471? 


013737 


001226 


001 240 




MOV 


064720 


004737 


065456 






JSR 










.-RELEASE THE 


064724 


1 1 3760 


001226 


000010 

www ■ w 




M0V8 


064732 


013737 


001 226 


001240 




MOV 


064740 


01 2760 


000013 


000000 

W W V w 




MOV 










;VER]^y 


THAT 


064746 


005037 


001254 






CLR 


064752 


012737 


1 1 1 700 


001 1?4 




MOV 


064760 


012737 


000012 


001122 




MOV 


064766 


060037 


001 122 






ADD 


C64 772 


113760 


001224 


000010 




MOVB 


065000 


013737 


001224 


001240 




MOV 


065006 


016037 


00001 2 


001 164 




MOV 


065014 


1 1 3760 


001226 


000010 

\' WW I w 




M0V8 


065022 


013737 


001226 


001 240 




MOV 


065030 


016037 


000012 


0C1 1 26 




MOV 


065036 


00U04 








BEO 


065040 


005737 


001164 






TST 


065044 


001401 








BEO 


065046 


104031 








EMT 


065050 


013737 


001164 


001126 


66$: 


MOV 


065056 


013737 


001224 


001240 




MOV 


065064 


023737 


001124 


001126 




CMP 


06S072 


001401 








BEQ 


065074 


104027 








EMT 


065076 


000240 






67$: 


NOP 



G 2 

18:06:25 PAGE 10-124 



P0RTB.RMCS2{R0) 
RMDS(RO) 
#11.RMCS1(R0) 
*13,RMCS1(R0) 

VE THROUGH PORT B 



SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 



•8' 



PORTB,RMCS2{R0) .-SELECT PORT B 



P0RTB,SEI2PT 
RMDS(RO) 
PORTA,OPPRT 
#-1.RMERl(R0) 
#-l.RMER2{R0) 
PORTA,RMCS2{R0) 
PORTA.PTNBR 
PC,TST51B 



STORE SEIZING PORT'S ADDRESS 
; WRITE a'^DS 

.'•OPPOSITE' PORT ADDRESS 
.-LOAD rS INTO RMER1 THROUGH 
.-LOAD 1'S INTO RMER2 THROUGH 
.•SELECT PORT A 
.•MOVE PORT ADDRESS TO LOCATION F 
; CHECK THE REGISTERS THROUGH 



PORT B 
PORT B 

OR TYPEOUT 
PORT A 



PORT8.RMCS2(R0) .-SELECT PORT 8 
PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMER2(R0) .-CLEAR RMER2 ON PORT 8 

RMERKRO) .-CLEAR RMERI ON PORT 8 

ASRl.RMASCRO; .-CLEAR THE ATTENTION BIT FOR PORT B 
PORTA, RMCS2(R0) .-SELECT PORT A 

PORTA.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#-1 .RMERI (RO) .-LOAD 1'S INTO RMERI THROUGH PORT A 
#-l.RMER2(R0) .-LOAD 1'S INTO R/1ER2 THROUGH PORT A 
P0RT8.RMCS2(R0) .-SELECT PORT B 

PORTB.PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR rypfouT 
PC.TST51B .-CHECK THE REGISTERS THROUGH PORT B 

>RIVE FROM PORT B 

PORT8.RMCS2(R0) .'SELECT PORT 8 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION fQH TYPEOUT 
#13.RMCS1(R0) ; ISSUE RELEASE THROUGH PORT B 

>RIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 

RELERR .-CLEAR 'RELEASE ERROR" INDICATOR 

#ATA!«0L!PGM!DPRJDRV1VV,$6DDAT .-COMPARISON CONSTANT 
#RWS.$8DADR .-REGISTER ADDRESS INCREMENT 
RO.IBDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RHDS(RO).$TMPO .-READ STATUS REGISTER FROM PORT A 
P0RTB.RMCS2(R0> .-SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEObT 
Rra>S(RO).SBDDAT ;DRJVE STATUS FROM PORT 8 



66$ 

$TMPO 
66$ 

31 

$TMPO.$BDDAT 
PORTA.PTNBR 
$GDDAT.$BDDAT 
67$ 

27 



.-8R 'F STATUS FROM PORT B ZERO 
.-IS STATUS FROM PORT A ZERO ? 
;8R IF ZERO 

.•CHECK STATUS FROM PORT A 
.-CHANGE PORT ADDRESS FOR TYPEOUT 
.-COMPARE WITH CONSTANT 
;BR IF OK 



H I 
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.•RELEASE THE DRJVF FROM PORT A 



065100 


1 1 5'60 


AA1 '5*5/ 
001 


AAAA1 A 
00001 0 




MAV/D 


065106 


01 5'5^ 


AA 1 "5 / 

001 i'i^ 


AA1 O/ A 
001 £»«0 




nuv 


0651 Is 


A1 A 

01^760 


AAAA1 7 
00001 5 


AAAAAA 
000000 




nuv 










. V/CD T C V 
, VC n I r T 


TUA T 

1 rw 1 


065 1 i:^: 


AACA7 7 


AA1 OCA 

UUl t: JH 








065 liTo 


A1 'D'7T7 


AAAA1 0 


nni 1 00 
UU 1 ICC 




Mnw 

nUV 


065 1 3*» 


A^ AA77 
06005/^ 


AA1 1 OO 

001 1 dd 








065 IsU 


A1 '5777 


All 7AA 

Ul 1 f\}\J 


AA1 1 OA 
UUl 1 




Mnvy 
nUV 


0651 h6 


1 1 jrOO 


AA1 OOA 
001 C£H 


AAAAI A 
UOUUl U 




nUVO 


A^CI C/ 

0651 5t» 


A1 i^A77 

U160jr 


AAnni 0 
UOOUl c 


nni 1 7n 
UU 1 1 f U 




Mnu 

nuv 


A*. CI iL ? 

0651 6*: 


Ay ^777 


AOZ.A'M 

UchOvJI 


nni 1 7n 

UU 1 1 f U 




Q F r 

Di I 


AiLC1 ■7A 


A1 7777 


nni 1 7n 
UU 1 1 f\J 


nni 1 AA 

UU 1 1 Oh 




Mnu 

nuv 


Ail. C 1 7^ 

U651 


A/ 0777 


1 nn 1 nn 
1 UU 1 UU 


nni 1 AA 

UU 1 1 Oh 




o I r 


AX.CO/V 


1 1 77An 


AA1 OOA 

UU 1 cca 


nnnni n 
JUUU 1 u 




MAWQ 

nuvtj 


PACOI 0 

0o5<:l c 


A1 i;.n77 


AAAAI 0 

UUUU 1 c 


nni 1 70 

UU life 




MOV/ 

nuv 


A/LCOOA 


A/ 0777 


AO/AAI 

UchUU I 


nni 1 70 

UU life 




Di L 


AAC55A 


ni 7777 


nni 1 70 

UU life 


nni 1 AA 
UU 1 1 oo 




Mnu 
nuv 


nAC57z. 
UOjc 




1 nni nn 

1 UU 1 UU 


nni 1 AA 
UU 1 1 oo 




R T r 


AiL C O/ O 


n07777 


nni 1 

UU 1 1 Oh 


nni 1 AA 
UU 1 1 oo 




CHD 

\.rr 


nAC5cn 


AA1 AAA 

UU 1 uuo 










AAC5C5 

UOjc 


nnc777 


nni 1 AA 

UU 1 1 Oh 






T^T 

1 o 1 


AAC9CA 
UOJC jO 


AAI A/C 

UU 1 U'» J 










UO JcoU 










PMT 


AXCOA5 


AA/ll 77 


nA*;AAA 

UOjhhO 






IMP 

Jrr 


AiLCOAA 


ni 7777 


nni 1 7n 

UU 1 1 f u 


nni 1 0A 

UU 1 1 cO 


ARl • 

oo« • 


Mnu 
nuv 


UoJCf *♦ 


ni 77 <7 


nni OOA 

UU 1 ccO 


nni OAn 

UU 1 chU 




Mnu 
nuv 




1 1 77An 
1 1 J f OU 


nni OOA 

UU 1 CCO 


UUUU 1 u 




MO UP 

nuvo 


UOj J 1 <J 


nn*; 77 7 

UU J f Ji 


nni 1 AA 

UU 1 1 Oh 






T^T 


nAC71 L 


UU 1 H 1 H 








QPO 
□cW 


nAC71 A 


ni 7777 


nni OOA 

UU 1 CCH 


nni OAn 

UU 1 chU 




MOU 

nuv 


nAC75A 


ni 7777 


nni 1 70 

UU life 


nni 1 0A 

UU 1 1 cO 




rnJV 




1 1 77An 
1 1 Jf OU 


nni OOA 

UU 1 t t H 


nnnn i n 

UUUU 1 u 




MnuR 




UUj f Jf 


nni 1 AA 

UU 1 1 oo 






1 o 1 




nmm o 

UU 1 U 1 t 








□fit 




ni 0777 


1 77777 

\ I I I 1 1 


nni ?'>A 

UU 1 c JH 


OT* • 


Mnu 
nuv 




ni 07An 

\j\Cf OU 


UUUU 1 1 


nnnnnn 
uuuuuu 




MPU 

nuv 




ni ?7/>n 

\J \ cf OU 


nnnni x 

UUUU 1 J 






Mnu 
nuv 




in^noA 

1 UhUcO 








PMT 

cn 1 




ni 7777 

U 1 Jf Jf 


nni 1 7n 

UU 1 1 r U 


nni 1 ?A 

UU 1 1 CO 


7nt • 

f u* . 


Mnu 
nuv 




ni '?7'?7 

U 1 Jf Jf 


nni OOL 

UU 1 CCH 


nni OLC\ 

UU 1 chV/ 




Mnu 

nw 


A/1 C/A/L 


n?7777 

Uc Jf Jf 


nni 1 0A 

UU 1 1 CH 


nni 1 ?A 

UU 1 1 cO 




TMP 




00K01 

\J\J 1 "v/ 1 










065A16 


10A007 








EMT 


065A20 


013737 


001172 


001126 


71$: 


MOV 


065A26 


013737 


001226 


001240 




MOV 


065A34 


023737 


001 12A 


001126 




CMP 


065AA2 


OOKOl 








BEO 


065AAA 


10A007 








EMT 


065AA6 


0002A0 






72$: 


NOP 


065A50 


OOOOOA 








SCOPE 


'661 065452 


OOOT37 


065700 






JMP 



PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) ; ISSUE RELEASE THROUGH PORT A 



REl-ERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

*RMDS.$6DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDRESS 

*MOLlPGMlDPR!DRY:VV,$GDDAr .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(R0),$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP !WRL!0M,$TMP2 ; CLEAR DONT CARES 



$TMP2.$TMP0 

#ata:vv,$tmpo 
ports, rmcs2(r0) 

RM0S(R0),$TMP3 . 
#PIP :WRL!0M,$TMP3 
$TMP3,$TMP1 
#ATA!VV,$TMP1 
$TMP0.$TMP1 
68$ 
$TMPO 
70$ 
46 
72$ 

$TMP2,$8DDAT 
P0RTB,PTMBR 
PORTS, RMCS2(R0) 
$TMPO 
69$ 

PORTA. PTNBR 
$TMP3.$8DDAT 
PORTA, RMCS2(R0) 
$TMP1 
70$ 

#-1,RELERR 
*11,RMCS1(R0) 
#13,RMCi'(R0) 
26 

$TMP2,$8DDAT 
PORTA, PTNBR 
$GDDAT,$BDDAT 
71$ 

7 

$TMP3,$BDDAT 
PORTS. PTNBR 
$GDDAT,$BDDAT 
72$ 
7 



COPY IT INTO •$TMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT 8. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

; CLEAR DONT CARES 
COPY IT INTO '$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 
,9R IF NOT 

BYPASS THF REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 
8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEt IF STATUS EQ ZERO FROM PORT B. 
BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS OK ? 
SR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
SEE IF READ OK FROM PORT B. 
SR IF OK 



TSr52 



.-LOOP ? 

;G0 TO THE NEXT TEST 



I 2 
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SEO 0166 



.•CHECK THE REGISTERS ON THE SELECTED PORT 



166? 
1663 
1664 
1665 



065^56 
065AS6 
065462 
065470 
065476 
065502 
065506 
065514 
065516 
065520 
065524 
065532 
065540 
065544 
065552 
065554 
065556 
C65564 
065566 
065572 
065600 
065606 
065612 
065616 
065624 
065626 
065630 
065634 
065642 
065650 
065654 
065662 
065664 
065666 
065674 
065676 



00S037 
01 6037 
012737 
060037 
005037 
023737 
001403 
104006 
005137 
016037 
012737 
060037 
032737 
001404 
104011 
012760 
000240 
005037 
016037 
012737 
060037 
005037 
023737 
001403 
104006 
005137 
016037 
012737 
060037 
032737 
001404 
104011 
012760 
000240 
000207 



001250 
000014 
000014 
001122 
001124 
001124 



001250 
000000 
000000 
001122 
020000 



040000 

001250 
000042 
000042 
001122 
001124 
001124 



001250 
000000 
000000 
001122 
020000 



040000 



001126 

oor22 



001126 

001126 
001122 

001126 
000000 



001126 
001122 



001126 

001126 
001122 

001126 
000000 



TST518: 



64$: 



65$: 



66$: 



67$: 



CLR 
MOV 
MOV 
ADD 
CLR 
CMP 
BEO 
EMT 
COM 
MOV 
MOV 
ADD 
BIT 
BEO 
EMT 
MOV 
NOP 
CLR 
MOV 
MOV 
ADD 
CLR 
CMP 
BEQ 
EMT 
COM 
MOV 
MOV 
ADD 
BIT 
BEQ 
EMT 
MOV 
NOP 
RTS 



CKERR 

RMER1 (RO) .$BDDAT 
#RMER1 ,$BDADR ; 
R0.$8DADR 
$GDDAT 

$GDDAT,$BDDAT 

64$ 

6 

CKERR 

RMCS1 (R0),$8DDAT 

*RMCS1 .$BDADR 

R0,$8DADR 

/WCPE,$BDDAT 

65$ 

11 

#TRE,RMCS1(R0) 



.•CLEAR THE 'CHECK ERROR' INDICATOR 

;GET CONTENTS OF RMER1 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
.•ADD RH/RM BASE ADDRESS 
.'WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 
;8R IF OK 

.•SET THE REGISTER COMPARE ERROR INDICATOR 

.GET THE CONTENTS OF RHCS1 
.FORM ADDRESS OP REGISTER 
.ADDRESS BASE 
;IS 'MCPE' SET ? 
;8R IP NOT 

.•CLEAR 'MCPE* 



CKERR 

RMER2(R0),$8DDA 
#RMER2,$8DADR 
RO,$eDADR 
$GDDAT 

$GDDAT,$6DDAT 
66$ 

6 

CKERR 

RMCS1(R0}.$8DDA 

#RMCS1.$BDADR 

RCSBDADR 

#MCPE,$BDDAT 

67$ 

11 

#TRE.RMCS1(R0) 
PC 



.•CLEAR THE 'CHECK ERROR' INDICATOR 
T .-GET CONTENTS OF RMER2 
;FORM REGISTER ADDRESS OF ERROR MESSAGE 

.-ADD RH/RM BASE ADDRESS 

.•WHAT REGISTER SHOULD BE 

.•IS THE REGISTER OK ? 

;8R IP OK 

.'SET THE REGISTER COMPARE ERROR INDICATOR 
T ;GET THE CONTENTS OF RHCS1 
.•FORM ADDRESS OP REGISTER 
.•ADDRESS BASE 
;IS 'MCPE' SET ? 
:BR IF NOT 



.•CLEAR "MCPE" 
.•RETURN 



065700 000004 



PUT NEWTEST HERE 
TST 52: SCOPE 



J 2 
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FND Of PASS ROUTINE 

^ .S8TTL END OF PASS ROUTINE 



SEO D167 



06570? 






065702 


005737 


001300 


065706 


0OU02 




065710 


000137 


003074 


0657U 


005037 


001102 


065720 


005037 


001 1 76 


065 72A 


005237 


001 1 00 


065730 


042737 


100000 


065736 


005327 




065 7A0 


000001 




C65 7A2 


003066 




0657AA 


012737 




0657A6 


000001 




065750 


065740 




065752 


104401 


065760 


065756 


000407 




065776 






065776 


01 3746 


0011 00 


066002 


104405 




06600A 


005737 


001 112 


066010 


001431 




066012 


104401 


066020 


066016 


000421 




066062 






066062 


01 3''>6 


111 

001 


066066 


104405 




066070 


005037 


001112 


0660 /'A 


104401 


001207 


C66100 


013700 


000042 


066104 


001405 




066106 


000005 




066110 


004710 




066112 


000240 




0661U 


000240 




066116 


000240 




066120 






066120 


000137 




066122 


003356 




066124 


377 


377 



001100 



.••INCREMENT THE PASS NUMBER (SPASS) 

.■•TrPE "END PASS #XXXXX TOTAL NJ>«ER OF ERRORS SINCE LAST REPORT rVYrr" 
.-•WHERE XXXXX AND YYYYV ARE DECIMAL NUMBERS 
.••IF THERES A MONITOR GO TO IT 
.••IF THERE ISN'T JUMP TO TST1AA 



SEOP: 



;;65$: 
64S: 



;;67$: 
66$: 



SDQAGN: 



TST 


KV8CTL 


BEQ 


.♦6 


JMP 


EXEC 


CLR 


STSTNM 


CLR 


JT jMES 


INC 


SPASS 


BIC 


/rlOUOUU.lPASS 


DEC 


(PC; ♦ 


.WORD 


1 


BGT 


SDOAGN 


MOV 


{PC)*,afPC)* 


.WORD 


1 


lEOPCT 




T woe 




BR 




A C r f 7 


^ 1 1 /Clur\ DA 


MOV 








TCT 


CCDTTi 


BEO 


$GT42P 


TYPE 


.67$ 


on 


DO* 


A C ^ t 7 

.ASCiZ 


/ TnTAI CDDrtDC 

/ rUIAL cHKUHb 


Mnu 

nuv 


CCOTTI .^Cp) 
9cn 1 1 L . \ Or / 


TYPDS 




CLR 


SERTTL 


TYPE 


.SCRLF 


MOV 


a«42,R0 


BEO 


SOOAGN 


RESET 




JSR 


PC.(RO) 


NOP 




NOP 




NOP 




JMP 


a(PC)' 


.WORD 


TSTIAA 


.BYTE 


-U-1.0 


.EVEN 





.•ENTERED TEST VIA KEYBOARD COMMAND ? 
;8R IF NOT 

.•RETURN TO KEYBOARD CONTROL 
;;ZtRO THE TEST NUMBER 
;;ZERO THE NUMBER OF ITERATIONS 
.'.•INCREMENT THE PASS NUMBER 
;; DON'T ALLOW A NEG. NUMBER 
.-.LOOP? 

;;YES 

; .-RESTORE COUNTER 



.-.-TYPE ASCI2 STRING 
.-.-GET OVER THE ASCIZ 



SAVE SPASS FOP TYPEOUT 
TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
NCE LAST REPORT / 

SAVE SERTTL FOR TYPEOUT 

TOTAL NUMBER OF ERRC«S 

GO TYPE— DECIMAL ASCII WITH SIGN 

CLEAR ERROR TOTAL 

TYPE CARRIAGE RETURN, LINE FEED 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



;; RE TURN 

.-.-NULL CHARACTER STRING 



CZRMRBO RM05/5/2 DU 
TLOCK SUBROUTINES 



POR TST 1 inACRO VO^.OO 



K 2 

4-APR-81 18.06:25 PAGE 12 



SEO 0168 



2 
3 
4 

5 

6 066130 012737 066200 

7 066136 005037 000006 

8 066K2 005777 113044 

9 066K6 013701 001216 

10 066152 012721 066262 

11 066156 012711 000300 

12 066162 012777 Mini 

13 066170 012777 000135 

14 066176 000425 

15 066200 062706 000004 

16 066204 012737 066242 

17 066212 005777 113002 

18 066216 013701 001222 

19 066222 012721 066262 

20 066226 012711 0C0300 

21 066232 012777 000100 

22 066240 000404 

23 066242 062706 000004 

24 066246 062716 000002 

25 066252 012737 000006 

26 066260 000207 
27 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 

42 0663P4 162706 000004 

43 066330 016616 000004 

44 066334 013546 

45 066336 011666 000004 

46 066342 011666 000006 

47 066346 006216 

48 066350 006216 

49 066352 061666 000004 

50 066356 162666 000004 

51 066362 000205 



.S8TTL CLOCK SUBROUTINES 

; ROUTINE TO CHECK FOR KWll-L OR KWll-P CLOCKS 
;IF CLOCK IS PRESENT. THE CLOCK WILL BE STARTED 



000004 



113024 
113014 



00C004 

112760 
000004 



CKCLK: MOV 
CLR 
TST 
MOV 
MOV 
MOV 
MOV 

nov 

BR 

CKCLKl: ADD 
MOV 
TST 
MOV 
MOV 
MOV 
MOV 
BR 

CKCLK2: ADD 
ADD 

CKCLK3: MOV 
RTS 



*CKCLKl.a#ERRVEC 

a^ERRVEC*2 

aSLKCSR 

SLPVECRl 

*CcOCK.(Rl)* 

#300. (R1) 

*-l .a$LKCSB 

/in3s.asLKCSR 

CKCLK3 
*4.SP 

#CKCLK2.a#ERRVEC 

aSLKS 

SLLVEC.RI 

#CL0CK.(R1)* 

#300. (Rl) 

flOO.aSLKS 

CKCLK3 

#4.SP 

#2.(SP) 

«6.a«ERRVEC 

PC 



;SET UP VECTOR FOR CLOCK CHECK 

;NEW PSW 
CHECK FOR KWll-P 
KW11-P VECTOR ADDRESS 
SET UP KWll-P VECTOR 
PSW - PRI 6 

LOAD COUNTER BUFFER WITH I'S 

SET CLOCK - CNT UP, 16MS, CONT INT 

RESTORE THE STACK POINTER 

.•CHANGE ERROR VECTOR TO CHECK FOR KWll-L 
LOOK FOR KWll-L 
KWll-L VECTOR ADDRESS 
SET UP KWll-L VECTOR 
PSW - PRI 6 
SET KWll-L INTERRUPT 

RESTORE THE STACK POINTER 
INCREMENT RETURN. NO CLOCK 
RESTORE THE ERROR VECTOR 



.•ROUTINE TO COUNT CLOCK TICKS 



066262 


062737 


000021 


001256 


CLOCK: 


ADD 


#17.. TIME 


ADD 17 MS TO ELAPSED TIME COUNTER 


066270 


103003 








BCC 


IS 


■BRANCH IF NO OVERFLOW 


066272 


012737 


177777 


001256 




MOV 


#-1.TIHE 


•OVERFLOW - RESTORE MAXIMUM COUNT 


066300 


005737 


001260 




1$: 


TST 


WATCH 


■IS WATCH ALREADY ZERO ? 


066304 


001406 








BEQ 


2$ 


■BR IF IT IS 


066306 


162737 


000021 


001260 




SUB 


#17. .WATCH 


•SUBTRACT 17 MS FROM WATCH DOG COUNTER 


066314 


100002 








BPL 


2$ 


;8R IF NOT MINUS 


066316 


005037 


001260 






CLR 


WATCH 


•CLEAR WATCH DOG COUNTER 


066322 


000002 






2S: 


RTI 




■RETURN 



.•ROUTINE TO CALCULATE ♦AND - 25* TIME TOLERANCE VALUES 



TOLER: SUB #4.SP 

MOV 4(SP).(SP) 

MOV a(R5)*.-(SP) 

MOV (SP),4{SP) 

MOV (SP).6(SP) 

ASR (SP) 

ASR (SP) 

ADD (SP).4(SP) 

SUB (SP)+.4(SP) 

RTS R5 



SETUP STACK 
SAVE STACK 
GET TIME VALUE 
MOVE TIME VALUE 
MOVE VALUE AGAIN 
DIVIDE BY 2 

DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
CALCULATE UPPER LIMIT FOR TIMEOUT 
CALCULATE LOWER LIMIT FOR TIMEOUT 
RETURN WITH TOLERANCES ON THE STACK 
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SCOPE HANDLER ROUTINE 



1 



SEQ 016^> 



,S8TTL SCOPE HANDLER ROUTINE 



066364 
066 36A 
066566 
066372 
066A00 
066402 
066406 



066410 
066414 
066422 
066426 
066432 
066434 
066436 
066442 
066444 
066444 
066450 
066452 
066460 
066462 
066466 
066474 
066502 
066504 
066512 
066516 
066520 

066524 
066532 
066534 
066542 
066544 
066552 
066556 
066562 
066570 
066574 
066602 
066604 
066610 



104407 
004737 
032777 
001402 
000137 



066406 000416 



013746 
012737 
005737 
012637 
000517 
022626 
012637 
000517 

105737 
001465 
022737 
001455 
013746 
012737 
013737 
000406 
012737 
012716 
000002 
012637 

022737 
001430 
032737 
001424 
042737 
013746 
017646 
012737 
011677 
042777 
104177 
012676 
012637 



066720 
040000 

066702 



000004 
066434 
1 77060 
000004 



000004 

001103 

y77777 

000004 
066504 
^77766 

U7777 
066520 

000004 

■\77777 

000001 

000001 
001140 
000000 
000176 
112344 
001000 

000000 
001140 



000004 



067270 



000004 
067270 



067270 
067270 
y777tb 

001140 
112336. 



•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0> ) 

•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<1 5:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SW14=1 LOOP ON TEST 

•SW11=1 INHIBIT ITERATIONS 

•CALL 

• SCOPE ;;SCOPE=IOT 



112540 IS 



067270 2000$: 



SSCOPE : 

CKSWR 
JSR 
BIT 
BEQ 
JMP 

9$: 

;#*#*/»START OF 
SXTSTR: BR 

MOV 
MOV 
TST 
MOV 
BR 

5f: CMP 
MOV 

BR 

6%:;MM0MMENf> OF 
2$: TST6 
BEO 
CMP 
BEO 
MOV 
MOV 
MOV 
BR 
MOV 
MOV 
RTI 
MOV 

CMP 
BEO 
BIT 
BEQ 
BIC 
MOV 
MOV 
MOV 
MOV 
BIC 
EMT 
MOV 
MOV 



PC. STOP 

#8IT14,aSWR 

9$ 

SOVER 



;;TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 

;;N0 IF SW14=0 

;;JUriP OVER SCOPE ROUTINE 



CODE FOR THE XOR TESTER***** 



2001$: 
2002$: 



6$ 

a*ERRVEC.-(SP) 

*5$,a*ERRVEC 

a*1 77060 

(SP)+.a*ERRVEC 

$SVLAD 

(SP)+,(SP)+ 

(SP)+.a*ERRVEC 

SOVER 

CODE FOR THE XOR 

SERFLG 

3$ 

*-l,CPSAVE 
200S$ 

ERRVEC.-(SP) 

*2000$,ERRVEC 

1 77766. CPSAVE 

2001$ 

*-1, CPSAVE 

*2001$,(SP) 

(SP)+.ERRVEC 

#-1 -CPSAVE 
?00S$ 

*8J TOO, CPSAVE 
2003$ 

*8I TOO, 177766 

SWR,-(SP) 

a(SP).-(SP) 

*1 76.SWR 

(SPKaSUR 

*8IT09,aSUR 

177 

(SP)*,a(SP) 

(SP)+,SWR 



JF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A '>OP" (NOP-240) 
SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER***** 

HAS AN ERROR OCCURRED? 
BR IF NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

KICK AROUND ROUTINE IF SO 

SAVE CONTENTS OF ERROR VECTOR 

SETUP 'TRAP* RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 

RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 

BRANCH TO CONTINUE ROUTINE IF CLEAR 

CLEAR THE BIT FOUND TO BE SET 

SAVE SWR ADDRESS 

SAVE SWR VALUE 

GET SOFTWARE SWR ADDRESS 

GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
CALL SPECIAL POWER FAIL BIT ERROR CALL 
RESTORE SWR TO ORIGINAL VALUE 
RESTORE SWR ADDRESS 



CZRMRBO RM05/3/2 DU POR TST 1 
SCOPE HANDLER ROUTINE 



0666K 
0666K 
066620 
066624 
066632 
066654 
066640 
066642 
066646 
066654 
066656 
066664 
066672 
066676 
066702 
066710 
066714 
066716 

2 
3 
4 

5 0667?0 
066720 
066724 
066730 
066732 

6 
7 
8 

9 066732 
066736 
066742 
066744 
10 066744 



I1ACR0 V04.00 4-APR-81 18:06:25 PAGE 



SEO 0170 









20031: 






105037 


001103 




4S: 


CLR8 


SERFLG 


005037 


001 1 76 






CLR 


STIMES 


032777 


004000 


112306 


3$: 


BIT 


/rSITII ,SSWR 


001011 








BNE 


1$ 


005737 


001100 






TST 


SPASS 


001406 








BEQ 


1$ 


005237 


001104 






INC 


SICNT 


023737 


001176 


001104 




CMP 


STJMES.SICNT 


002012 








BGE 


SOVER 


012737 


000001 


001104 


1$: 


WV 


#1,$ICNT 


013737 


066716 


001176 




MOV 


$«XCNT,$T1MES 


105237 


001102 




SSVLAD: 


INC8 


STSTNM 


011637 


001106 






MOV 


(SP).$LPADR 


013777 


001102 


112232 


(OVER: 


MOV 


STSTNM, aOI SPLAY 


013716 


001106 






MOV 


$LPADR.(SP) 


000002 








RTI 




000005 






SMXCNT: 


5. 





;;ZERO THE ERROR FLAG 

;; CLEAR THE NUMBER OF ITERATIONS TO MAKf 
;; INHIBIT ITERATIONS? 
' 'BR IF YES 

;;1F FIRST PASS OF PROGRAM 

;; INHIBIT ITERATIONS 

;; INCREMENT ITERATION COUNT 

;; CHECK THE NUMBER OF ITERATIONS MADE 

;;8R IF MORE ITERATION REQUIRED 

; .-REINITIALIZE THE ITERATION COUNTER 

;;SET Nl/BER OF ITERATIONS TO DO 

;; COUNT TEST NlfEERS 

;;SAVE SCOPE LOOP ADDRESS 

; .-DISPLAY TEST NUMBER 

; .-FUDGE RETURN ADDRESS 

; .-FIXES PS 

.-.-MAX. NUMBER OF ITERATIONS 



.-DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 



012746 000140 
012746 066732 
000002 



012746 000240 
012746 066744 
000002 



STOP: 



64S: 



MOV XfPR3,-(SP) ;;PUT NEW PS ON STACK 

MOV *64$,-(SP) ;;PUT NEW PC ON STACK 

RTI ;;POP NEW PC AND PS 



.-RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 



000207 



65$: 



MOV 
MOV 
RTJ 

RTS 



*PR5.-(SP) 
Xf65$.-(SP) 



PC 



.-.-PUT NEW PS ON STACK 
;;PUT NEW PC ON STACK 
;;P0P NEW PC AND PS 

; RE TURN 



CZRMRBO RH05/3/2 Db POR TST 1 
ERROR HANDLER ROUTINE 



1 



N 2 
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.S6TTL ERROR HANDLER ROUTINE 



SEQ 0171 



•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROK COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



•SW15=1 
•SW13=1 
•SW10=1 
•CALL 



HALT ON ERROR 
INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 



066746 


105037 


067272 




SERROR: 


CLR8 


IBSAVE 


066752 


104407 








CKSWR 




06675A 


113737 


001102 


00124b 




MOVB 


$TSTNM.TSTNUM 


066762 


105237 


001103 




7$: 


INCB 


$ERFLG 


066766 


001 775 








BEQ 


7$ 


066770 


013777 


001102 


112144 




MOV 


$TbTfjn,aDI SPLAY 


066776 


052777 


002000 


112134 




BIT 


«8IT10,aSWR 


06700A 


001402 








BEQ 


1$ 


067006 


104401 


001202 






TYPE 


,$BELL 


06701 2 


005237 


001 1 1 2 




I>: 


INC 


JcHTTL 


067016 


011637 


001116 






MOV 


(SP),$ERRPC 


067022 


162737 


000002 


001116 




SUB 


*2,$ERRPC 


067030 


117737 


112062 


001114 




MOVB 


a$ERRPC,$ITEP« 


%7036 


0Z2777 


001000 


112074 




BIT 


*8IT09.aSWR 


06704A 


001 %0 








BNE 


1004$ 


067046 


122737 


000177 


001114 




CMP8 


#177,$ITEnB 


067054 


001454 








BEQ 


1004$ 


067056 


105737 


067272 






TST8 


IBSAVE 


067062 


/Art ^ r\/ ^ 

001047 








BNc 


1 Anic 
1UU3S 


067064 


0227Z7 


y77777 


067270 




CMP 


#-1.CPSAVE 


067072 


001445 








BEQ 


1004$ 


067074 


013746 


000004 






MOV 


ERRV£C,-(SP) 


067100 


012737 


067116 


000004 




MOV 


#1000$,ERRVEC 


067106 


013737 


177766 


067270 




MOV 


1 77766, CPSAVE 


067114 


000406 








BR 


1001$ 


067116 


012737 


y77777 


067270 


1000$: 


MOV 


#-1 .CPSAVE 


067124 


012716 


067132 






MOV 


*1001$,(SP) 


067130 


000002 








RTI 




067132 


012637 


000004 




1001$: 


MOV 


(SP)*,ERRVEC 


067136 


022757 


■\77777 


067270 


1002$: 


CMP 


#-1.CPSAVE 


0^7144 


001420 








BEQ 


1004$ 


■J67146 


032737 


000001 


067270 




BIT 


*8IT00,CPSAVE 


067154 


001414 








BEQ 


1004$ 


067156 


042737 


000001 


177'66 




BIC 


*8I TOO, 177766 


067164 


113737 


001114 


067272 




MOVB 


$ITEMB, IBSAVE 


067172 


112737 


000177 


001114 




MOVB 


#177,$ITEMB 


067200 


000402 








BR 


1004$ 


067202 


105037 


067272 




1003$: 


CLf<8 


IBSAVE 


067206 








1004$: 




*8jn3,aswR 


067206 


052777 


020000 


^^^72^ 




BIT 


067214 


001004 








BNE 


20$ 


067216 


004737 


067274 






JSR 


PC,$ERRTYP 



ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

;; CLEAR THE ITEM BYTE SAVE LOCATION 
;;TEST FOR CHANGE IN SOFT-SWR 

;SET THE ERROR FLAG 
; DON'T LET THE FLAG GO TO ZERO 
.DISPLAY TEST NUMBER AND ERROR FLAG 
.BELL ON ERROR? 
;N0 - SKIP 
.•RING BELL 

.•COUNT THE NUMBER OF ERRORS 
;6ET ADDRESS OF ERROR INSTRUCTION 

.•STRIP AND SAVE THE ERROR ITEM CODE 
;SEE IF LOOP ON ERROR IS SET 
.•BRANCH AROUND ROUTINE IF SO 
;SEE IF THIS IS THE POWER FAIL CALL 
.•BRANCH AROUND ROUTINE IF IT IS 

.-SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUHNE 
.•BRANCH IF SO 

;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-BRANCH IF SO 

.•SAVE CONTENTS OF ERROR VECTOR 
.•SETUP 'TRAP* RETURN ADDRESS 
;MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 

.•.•RESTORE CONTENTS OF ERROR VECTOR 

;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.-BRANCH IF SO 

;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
.BRANCH IF OK 
.•CLEAR THE BIT FOUND SET 
;MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
;SET $ITEMB TO SPECIAL POWER FAIL POINTER 
.•BRANCH OVER IBSAVE CLEARING 

.-.-CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

;SKIP TYPEOUT IF SET 
.-SKIP TYPEOUTS 
.-GO TO USER ERROR ROUTINE 



CZRMRBO RM05/3/? DU POR TST 1 
ERROR HANDLER ROUTINE 



067222 
067226 
067226 
067212 
067254 
0672A0 
067242 
067244 
067246 
067246 
067254 
067256 
067260 
067260 
067264 
067266 
067270 
067272 



104401 001207 



105737 
001005 
005777 
100002 
000000 
104407 

022737 
001001 
000000 

105737 
001236 
000002 
000000 
000000 



067272 
1 1 1 700 



MACRO V04.00 



20$: 
2$: 



B 3 

4-APR-81 18:06:25 PAGE U-1 



066110 000042 



067272 



3$: 



6$: 



SFQ 01 7^ 



CPSAVE ; 
I8SAVE : 



T woe 

T Yrc 


,»CHLF 


TST8 


I8SAVE 


BNc 


3* 


T C T 




BPL 


3$ 


HALT 




CKSWR 




LnP 




QKlC 
ONC 




UAI T 




TST8 


leSAVfc 


BNE 


7$ 


RTI 




.WORD 


0 


.WORD 


0 



;SEE IF I8SAVE IS LOADED 

.-BRANCH IF NOT - NO HALT ON PWR MON BIT ERROR 

;HALT ON ERROR 

.'SKIP IF CONTINUE 

.-HALT ON error: 

;TEST FOR CHANGE IN SOFT-SWR 

;ACT-11 AUTO-ACCEPT? 
.-BRANCH IF NO 
;YES 

.-SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

.-BRANCH BACK TO CALL ORIGINAL ERROR 

.-RETURN 

;LOCATION TO SAVE CPU ERROR REG CONTENTS 
.-LOCATION TO SAVE ITEM BYTE 



CZRMRBO RM05/5/2 DU POR TST 1 
FRROR liESSAGE TvPEOUT ROUTINE 



C 3 
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.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 



SEO 0173 



•THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
•ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'tRROR TABLE" (SERRTft), 
•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 















C\t.7'i7L 


1 U*»*»U 1 


nni 5n7 




T VPF 


UOf J\JM 


V' 1 UvhO 






MOV 


00 -(SP) 

n w # * wf / 




vw jUvA/ 








RO 


\JOr jV* 




001 114 






a#SITEMB RO 


<v.7'^in 


\J\J ' VV/H 






BNE 


1$ 


/V>771 P 
UO' J 1 c 


U 1 Jf MO 


001 ^^f\ 

MID 




"Iw V 


SERRPC -(SP) 




10440? 

1 \JHH\JC 






TYPOC 


10S 


UO' Jew 


0004 S*'* 






BR 


UOr Dec 


1PP700 

ICC' v v 


0001 77 

www 1 ' ' 


IS: 


CMP6 


#1 77, RO 




001 OOA 






BNE 


1000S 




1 1 3737 


00110? 067632 




MOVB 


STSTNM.PFTSTN 


\JSJ r .IJ\J 


01? 700 


06747? 




MOV 


*PFECH,RO 










BR 


1001$ 








1 OOOJ • 

1 wvw* • 


DEC 

WL V 


RO 




00^300 






ASL 


RO 




00A300 






ASL 


RO 




V/VAJ JV/V 






ASL 


RO 


n^7^S4 


0f»?700 


001310 

W 1 ^ ' V 




ADD 


t$ERRTB.RO 




01P037 


067370 


1001$- 

1 WW 1 w « 


liOV 


(R0)*,2$ 




001404 






BEO 


3$ 




104401 






TYPE 




(V>7^70 


000000 

www 




2$: 


.yORD 


0 


fV>7^7? 


104401 


001 ?07 

W 1 C V ' 




TYPE 


,$CRLF 


Of»7^76 


01?037 


067406 


3$: 


MOV 


(R0)-^,4$ 


UO f vc 


001404 






BEQ 


5$ 




104401 






TYPE 






000000 

www 




4$: 


.WORD 


0 




104401 


001 ?0 7 

W 1 C W r 




TYPE 


.$CRLF 




010146 




5$- 


MOV 


R1 ,-(SP) 




01?001' 






MOV 


(R0)*,R1 


067420 


001415 






BEO 


9$ 


067422 


012000 






MOV 


(R0)*,R0 




10S7P0 




6S- 

w* • 


TSTB 


(R0)> 


067426 


001003 






BNE 


7$ 


067430 


013146 






MOV 


a(R1J*,-(SP) 


067432 


104402 






TYPOC 




067434 


000402 






BR 


8$ 


067436 






/$: 




a(Ri)*.-(SP) 


067436 


013146 






MOV 


067440 


104405 






TYPDS 




067442 


005711 




8S: 


TST 


(R1) 


067444 


001403 






BEQ 


9$ 


067446 


104401 


067466 




TYPE 


.11$ 


067452 


000764 






BR 


6$ 


067454 


012601 




9$: 


MOV 


(SP)*.R"' 


067456 


012600 




10$: 


MOV 


(SP)*,RO 



.•"CARRIAGE RETURN" I 'IINE FEED" 
* SAVE RO 

•PICKUP THE ITEM INDEX 

;IF ITEM NUMBER IS ZERO. JUST 
:;TYPE THE PC OF THE ERROR 
:;SAVE $ERRPC FOR TYPEOUT 
;; ERROR ADDRCSS 

;;G0 TYPE— OCTAL ASCII (ALL DIGITS) 
;;GET OUT 

;;SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
; .-BRANCH IF NOT 
;;GET TEST NIWER 

;;MOVE POWER FAIL ERROR CALL TABLE TO RO 

; .-BRANCH TO CALL ERROR 

; .'ADJUST THE INDEX SO THAT IT WILL 

:; WORK FOR THE ERROR TABLE 



;;FORM TABLE POINTER 

; .-PICKUP 'tRROR MESSAGE" POINTER 

;;SKIP TYPEOUT IF NO POINTER 

;;TYPE THE 'tRROR MESSAGE" 

;;' tRROR MESSAGE" POINTER GOES HERE 

;;"CARRIA6£ RETURN" ft 'IINE FEED" 

; .-PICKUP 'DATA HEADER" POINTER 

:;SKIP TYPEOUT IF 0 

:;TYPE THE 'DATA HEADER" 

;;'DATA HEADER" POINTER GOES HERE 

:;' 'CARRIAGE RETURN" ft 'IINE FEED" 

• 'SAVE R1 

! -PICKUP 'DATA TABLE" POINTER 

;;BR IF NO DATA TO BE TYPED 

; .'PICKUP 'DATA FORMAT" POINTER 

r.-'DCTAL" OR 'DECIMAL" 

;;aR IF DECIMAL 

;;SAVE a(R1)* FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



;;SAVE a(R1)+ FOR TYPEOUT 

;;G0 TYPE— DECIMAL ASCII WITH SIGN 

;;:S THERE ANOTHER NUMBER? 

;;6R IF NO 

;;TYPE TU0(2) SPACES 
;;LOOP 

.-.•RESTORE R1 
;; RE STORE RO 



rZRMRBO RM05/3/2 DU POR TST 1 
ERROR MESSAGE TvPEOUT RCXJTINF 



067^60 
067464 
067466 

067502 
067564 

067616 
067626 
067632 



104401 
000207 
040 

067502 
120 
124 

067632 
000 
000000 



001207 
040 

067564 
117 
105 

001116 
000 
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067616 
127 
123 

067270 
000 



SEO 0174 



000 IIS: 



PFECH: 
PFECHI : 
PFECH2: 

PFECH3 
PF ECHA 
PF TSTN 



TYPE .tCRLF 
RTS PC 
•ASCIZ / / 
.EVEN 

PFECHI .PFECH2.PFECH3.PFErH4 



■'CARRIAGE RETURM" I 'IINE FEED' 
RETURN 

TW0(2) SPACES 



.ASCJZ 

.ASCJZ 

• EVEN 

.WORD 

.8>TE 

.WORD 



.•WORDS DEFINING TABLES BFLOk 



?P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET' 
7TESTN0 ERR PC CPUERREG? 



PFTSTN,$ERRPC,CPSAVE.0 
0,0.0.0 

0 ;; CONTAINS 



TEST NUMBER FOR PF BIT ERROR 



CZRHRBO RH05/V2 OU POR TST 1 
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,S8TTL TYPE ROUTINE 



SEO 0175 



•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE, 
•THE ROUTINE WILL INSERT A NU(««£R OF NULL CHARACTERS AFTER A LINE FEED, 



•N0TE1 
•N0TE2 
•NOTE 3 



•CALL; 
•1) USING A 
TYPE 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
SFILLS CONTAINS THE NU««ER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



•OR 



TRAP INSTRUCTION 
.MESADR 



::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



TYPE 









• • 


MESADR 






06763A 


105737 


001157 


$TYPE : 


TST8 


STPFLG 


;;IS THERE A TERMINAL? 


067640 


100002 






BPL 


IS 


;;8R IF YES 


C67642 


000000 






HALT 




;;HALT HERE IF NO TERMINAL 


067644 


000407 






BR 


3$ 


; .-LEAVE 


067646 


010046 




1$: 


MOV 


RO.-{SP) 


;;SAVE RO 


067650 


01 7600 


000002 




MOV 


a2(SP>,R0 


;;6ET ADDRESS OF ASCIZ STRING 


067654 


112046 




2i: 


M0V8 


(R0)*.-(SP) 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 


067656 


001005 






BNE 


4$ 


;;8R IF IT ISN'T THE TERMINATOR 


067660 


005726 






TST 


(SP)* 


;;IF TERMINATOR POP IT OFF THE STACK 


067662 


012600 




60$: 


MOV 


(SPM.RO 


;; RESTORE RO 


067664 


062716 


000002 


3$: 


ADD 


02 ASP) 


; .-ADJUST RETURN PC 


/Ti 7^ 7f\ 


uQOOUd 










> - DC Tl IDIU 

; , He 1 \jnn 


067672 


122716 


000011 


4$: 


CMPB 


#HT.(SP) 


; .-BRANCH IF <HT> 


"yz. "yz. 


001450 






BEO 


8S 




067700 


T 2271 6 


000200 




CMP8 


#CRLF.(SP) 


;. -BRANCH IF NOT <CRLF> 


067704 


001006 






BNE 


5S 




067706 


005726 






TST 


(SP) + 


;;F>OP <CR><LF> EQUIV 


067710 


104401 






TYPE 




.-.-TYPE A CR AND LF 


067712 


001207 






SCRLF 






0677^^, 


105037 


070^22 




CLR8 


SCHARCNT 


;; CLEAR CHARACTER COUNT 


067720 


000755 






BR 


2S 


.-.-GET NEXT CHARACTER 


067722 


004737 


070004 


5$: 


JSR 


PC.STYPEC 


;.-G0 TYPE THIS CHARACTER 


067726 


123726 


001156 


6S: 


CMP8 


$FILLC.(SP)* 


;;IS IT TIME FOR FILLER CHARS.? 


067732 


001350 






BNE 


2S 


;;IF NO GO GET NEXT CHAR. 


067754 


013746 


001154 




MOV 


SNULL. -(SP) 


;;GET # OF FILLER CHARS. NEEDED 












;;AND THE NULL CHAR. 


067740 


105366 


000001 


7$: 


DECS 


MSP) 


.-.-DOES A NULL NEED TO BE TYPED? 


067744 


002770 






BLT 


6S 


;;8R IF N0~G0 POP THE NULL OFF OF STACK 


067746 


004737 


070004 




JSR 


PC.STYPEC 


;;60 TYPE A NULL 


067752 


105337 


070122 




DECB 


SCHARCNT 


;;D0 NOT COUNT AS A COUNT 


067756 


000770 






BR 


7$ 


.-.-LOOP 








.•HORIZONTAL TA8 


PROCESSOR 




067760 


112716 


000040 


8S: 


M0V8 


*• ,(SP) 


; .-REPLACE TAB WITH SPACE 


067764 


004737 


070004 


9$: 


JSR 


PC.STYPEC 


;;TyPE A SPACE 


067770 


132737 


000007 


070122 


BIT8 


*7. SCHARCNT 


.-.-BRANCH IF NOT AT 


067776 


001 372 






BNE 


9$ 


.-.-TAB STOP 


070000 


005726 






TST 


(SP)* 


;;POP SPACE OFF STACK 


070002 


000724 






BR 


2$ 


;;6ET NEXT CHARACTER 



CZRMR80 «Vl05/3/? 
TYPE ROUTINE 



DU POR TST 1 MACRO VOA.OQ 4-APR-81 









07000A 


1 AC 77*7 

lO^r r r 


11 1 54 


0700T0 


1 AAAT5 

100022 




ft7r\Af T 


Ai 77/ L. 
\J \ f f'^O 


1111 tf\ 

1 1 11 3U 




A/ '571 L. 

042/^16 


1 77^AA 
1 f ft\)\} 




122/^16 


000023 




AA1 All 

001012 




Qf\jQ5\J 






0/^0050 


1 AC 777 

\\JOf f f 


1 1 1 1 1 n 
1 1 1 1 1 U 








0/^00 lO 


1 1 771 A. 
11 1 O 


1111 riL 




A/ 071 iL 

04*: /'To 


1 77AAA 




1 0071 A. 

1 ccf\o 


AAAAOI 

00002 1 


A7AAC T 

07005^ 


AA1 

001 50D 




0/^00 






r\ 7AAC / 


AAC 

005 ret 




0 '^0056 






0r005o 


1 AC 777 


111 AiLiL 

111 uoo 


U/^OOoc 


1 AAT7C 




0' 006*1 


1 1 <.it77 


AAAAAO 




1 CCfOO 


UUUU 1 J 


A7A1 AA 


AA1 AAI 










070106 


000406 




070110 


122766 


000012 


070116 


001402 




070120 


105227 




070122 


000000 




070124 


000207 





$TyPEC: 



101$: 



102$: 
10$: 



111060 
000002 



000002 1$ 



TST8 

BPL 

MOV 

BIC 

CMP8 

BNE 

TST8 

BPL 

M0V8 

BIC 

CMP8 

BNE 

TST 



TST8 
BPL 
M0V8 
CMP8 
BNE 
CLR6 
8R 
CMPB 
BEG 
INCB 
$CHARCNT:.U0RD 
$TYPEX: RTS 
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SEO 0176 



a$TKS 
10$ 

a$TKe.-(SP) 

#177600, (SP) 
#$XOFf .(SP) 
102$ 

a$TKS 
101$ 

a$TK8.(SP) 
#1 77600. (SP) 
#$XON.(SP) 
101$ 

(SP)* 

a$TPs 

10$ 

2(SP).a$TPB 
#CR.2(SP) 

1$ 

$CHARCNT 

$TYPEX 

#LF.2(SP) 

$TYPEX 

(PC)* 

0 

PC 



;;CHAR IN KV8D BUFFER? 
;;8R IF NOT 
;;GET CHAR 

;; STRIP EXTRANEOUS BITS 
;;WAS CHAR XOFF 
;;8R IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
; .-STRIP IT 
;;WAS IT XON? 
;;8R IF NOT 

;;FIX STACK 

;;UAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 

;;IS CHARACTER A CARRIAGE RETURN? 

; .-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 

;;EXIT 

;.IS CHARACTER A LINE FEED? 

,.-8RANCH IF YES 

.-.COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 
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BINARY '0 OCTAL (ASCII) AND TVDE 

.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 



SEO 0177 



•THIS ROUTINE IS USED TO CHANGE A T6-8IT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NUMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL; 
• 

* 



MOV 
TYPOS 
.BYTE 
.BYTE 



NUM.-(SP) 

N 
M 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=l TO 6 FOR NUMBER OF DIGITS TO TYPE 

M=1 OR 0 

;;1--TYPE LEADING ZEROS 
;;0=SUPPRE£S LEADING ZEROS 



070126 


01 7646 


000000 




STVPOS: 


MOV 


a(SP),-(SP) 

1(SP),$0FILL 


070132 


116637 


000001 


070351 




M0V8 


070K0 


112637 


070353 






MOVB 


(SP)+,$0M0DE*1 


070KA 


062716 


000002 






ADD 


#2, (SP) 


070150 


000406 








BR 


$TYPON 


070152 


112737 


000001 


070351 


STYPOC : 


MOVB 


#1,$0FILL 


070160 


112737 


000006 


070353 




MOVB 


#6,$0H0DE*1 


070166 


112737 


000005 


070350 


STYPON; 


MOVB 


#5.$0CNT 


070174 


010346 








MOV 


R3.-(SP) 


070176 


010446 








MOV 


R4.-(SP) 


070200 


010546 








MOV 


R5.-(SP) 


070202 


113704 


070353 






MOVB 


$0MODE*1,R4 


070206 


005404 








NEG 


R4 


070210 


062704 


000006 






ADD 


#6.R4 


0702K 


110437 


070352 






MOVB 


R4.$0M0DE 


070220 


1 1 3704 


070351 






MOVB 


$0FiLL.R4 


C70224 


016605 


000012 






MOV 


12(SP),R5 


070230 


005003 








CLR 


R3 


070232 


006105 






1$: 


ROl 


R5 


07023A 


000404 








BR 


3S 


070236 


006105 






2$; 


ROL 


R5 


070240 


006105 








ROL 


R5 


070242 


006105 








ROL 


R5 


070244 


010503 








MOV 


R5,R3 


070246 


006103 






3$: 


ROL 


R3 


070250 


105337 


070552 






DEC8 


SOMODE 


070254 


100016 








BPL 


7$ 


070256 


042703 


1 7777^ 






BIC 


*1 77770. R3 


070262 


001002 








8NE 


4$ 


070264 


005704 








TST 


R4 


070266 


001403 








BEO 


5$ 


070270 


005204 






4$: 


INC 


R4 



•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL : 

• MOV NUM.-(SP) ; .-NUMBER TO BE TYPED 

• TYPON ;;CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

• MOV NUM.-(SP) ;;NlfBER TO BE TYPED 

• TYPOC ;;CALL FOR TYPEOUT 

PICKUP THE MODE 
LOAD ZERO FILL SWITCH 
NJifiER OF DIGITS TO TYPE 
ADJUST RETURN ADDRESS 



SET THE 
SET FOR 
SET THE 
SAVE R3 
SAVE R4 
SAVE R5 
GET THE 



ZERO FILL SWITCH 
SIX(6) DIGITS 
ITERATION COUNT 



NUMBER OF DIGITS TO TYPE 



SUBTRACT IT FOR MAX. ALLOWED 

SAVE IT FOR USE 

GET THE ZERO FILL SWITCH 

PICKUP THE INPUT NUMBER 

CLEAR THE OUTPUT WORD 

ROTATE MSB INTO "C" 

GO DO MSB 

FORM THIS DIGIT 



GET LS8 OF THIS DIGIT 
TYPE THIS DIGIT? 
BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 
BR IF YES 

DON'T SUPPRESS ANYMORE O'S 



'•ZRMR80 RM05/3/3 DU POR TST 1 l>WCRO V04.00 4-APR-81 
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070272 


052705 


AAAA^ A 

00006 J 


070276 


052705 


r AAA/ A 

GOOO'tO 


0'0302 


11053/^ 


0'05ho 


070306 


104401 


A ■> A "Z/ L. 

Or 05Ao 


070312 


10533^ 


0 '05->U 


070316 


00354/' 




070320 


A"l 




070322 


A AC T A / 

005204 




070 32A 


000 ' 




070526 


A1 T^AC 




070330 


A"! "5^ A/ 

01 2604 




070332 


A 1 "5^ A"? 

012603 




07033*» 


016000 


AAAA/T^ 

UUUOUc 




U 1 cO 1 0 




070344 


000002 




070546 


000 




0703A7 


000 




070350 


000 




070351 


000 




070352 


000000 





BIS 
BIS 
M0V8 
TYPE 
DECS 
BGT 
BLT 
INC 
BR 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 
•BYTE 
.BYTE 
.BYTE 
lOFJLL: .BYTE 
SOMODE: .WORD 



5$: 



7$: 



6S: 



8S: 
SOCNT: 



.-MAKE THIS DIGIT ASCII 

.-MAKE ASCII IF NOT ALREADY 

.•SAVE FOR TYPING 

;60 TYPE THIS DIGIT 

.•COUNT BY 1 

;8R IF MORE TO DO 

;8R IF DONE 

.•INSURE LAST DIGIT ISN'J A BlAW 
;G0 DO THE LAST DIGIT 
.•RESTORE R5 
.•RESTORE R4 
.•RESTORE R3 

;SET THE STACK FOR RETUONING 
.•RETURN 

.•STORAGE FOR ASCII DIGIT 
.•TERMINATOR FOR TYPE ROUTINE 
;OCTAL DIGIT COUNTER 
.'ZERO FILL SWITCH 
;Nlf«ER OF DIGITS TO TYPE 
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S£0 017<y 



,S8"TL CONVERT BINARV TO DECIMAL AND TYPE ROUTINE 



070354 
070354 
070556 
070360 
070362 
070364 
070366 
C70372 
070376 
070400 
070402 
070410 
070412 
070416 
070422 
070424 
070430 
070432 
070434 
070436 
070440 
070442 
070444 
070446 
070450 
070452 
070454 
070456 
070464 
C70470 
070474 
070476 
070500 
070504 
070506 
070510 
070512 
070514 
070516 
070520 
070526 
070530 
070532 
070534 
070536 



010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 
003002 
010502 
000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 



020200 
000020 



000055 000001 



070570 
000040 

070560 



•THIS ROUTINE IS USED TO CHANGE A 16-8IT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FJRST DIGIT OF THE NUMBER. LEADING 7ER0S WILL ALWAYS BE 
•REPLACED WITH SPACES. 



•CALL: 



ITYPDS: 



000001 
000060 
000040 



000010 



U: 



2$: 
3$: 



4S: 



5$: 



6S: 
7$: 



Mim 177776 



8$: 



9S: 



MOV NUM,-(SP) 
TYPDS 



MOV RO,-(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3.-(SP) 

MOV R5,-(SP) 

MOV #20200. -(SP) 

MOV 20<SP).R5 

BPL IS 

NEG R5 

M0V8 #'-J(SP) 
CLR . RO 

MOV #$D8LK,R3 

MOVB *' ,(R3)*- 

CLR R2 

MOV $DTBL(R0).R1 

SUB R1,R5 

BLT 4$ 

INC R2 

BR 3S 

ADD R1,R5 

TST R2 

BNE 5S 

TST8 (SP) 

BMI 7$ 

ASL8 (SP) 

BCC 6S 

MOVB 1(SP),-1(R3) 

BIS #*0.R2 

BIS #' .R2 

M0V8 R2,(R3)+ 

TST (R0)+ 

CMP R0,*10 

BLT 2$ 

BGT 8S 

MOV R5,R2 

BR 6$ 

TST8 (SP)* 

BPL 9$ 

MOVB -1(SP),-2(R3) 

CLR8 (R3) 

MOV (SP)+,R5 

MOV (SP)*.R3 

MOV (SP)+.R2 

MOV (SP)+.R1 



;;PUT THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 



PUSH RO ON STACK 

PUSH R1 ON STACK 

PUSH R2 ON STACK 

PUSH R3 ON STACK 

PUSH R5 ON STACK 

SET BLANK SWITCH AND SIGN 

GET THE INPUT NUMBER 

BR IF INPUT IS POS. 

MAKE THE BINARY NUMBER POS. 

MAKE THE ASCII Nlf«ER NEG- 

ZERO THE CONSTANTS IW)EX 

SETUP THE OUTPUT POINTER 

SET THE FIRST CHARACTER TO A BLANK 

CLEAR THE BCD NUMBER 

GET THE CONSTANT 

FORM THIS BCD DIGIT 

8R IF DONE 

INCREASE THE BCD DIGIT BY 1 

ADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 

FALL THROUGH IF 0 

STILL DOING LEADING O'S? 

8R IF YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACT ^ IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

60 DO THE NEXT DIGIT 

60 TO EXIT 

GET THE LSD 

GO CHANGE TO ASCII 

WAS THE LSD THE FIRST NON-ZFRO"* 

8R IF NO 

YES— SET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO Rl 



CZRMRBO RK)5/5/a DU POR TST 1 "lACRO V04.00 
fONVFRT BIMARY TO DECIMAL AND TYPE ROUTINE 



070540 
0705A2 
070546 
070554 
070556 
070560 
070562 
070564 
070566 
070570 



012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 



070570 
000002 



000004 



$DT8L; 



SDBLK: 



4-APR-81 



MOV 

TYPE 

MOV 

MOV 

RU 

10000. 

1000. 

100. 

10. 

.8LKU 
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SEO 0180 



(SP)*.RO 
.$D8LK 
2(SP).4(SP) 
(SP)*.(SP) 



;;P0P STACK INTO RO 
;;NOW TYPE THE NUMBER 
;; ADJUST THE STACK 

;; RE TURN TO USER 



K 3 
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TTV INPUT ROUTINE 

.S8TTL TTY INPUT ROUTINE 



SEO 0181 



070600 000000 
070602 000000 
07060A 000000 
070606 

070607 



C70610 
0706H 
070622 
070630 
070636 
0706AA 
070650 
0^0656 



070660 
070664 
070670 
070674 
070676 
070700 
070702 
070702 
070706 
070710 
070714 
070720 
070722 
070726 
070732 
070734 
070742 

070744 
070744 
070752 
070754 



005037 
012737 
013737 
012737 
012737 
005777 
012777 
000207 



1 1 7746 
042716 
021627 
001002 
005726 
000002 

021627 
001007 
104401 
004737 
005726 
'300137 
021627 
001004 
022737 
001500 



022737 
001004 
104401 



070600 
070606 
070602 
070660 
000200 
110276 
000100 



070602 
070604 
000060 
000062 

110266 



110262 
177600 
000021 



000003 

072006 
070610 

002240 
000007 

000176 001140 



000001 
001202 



070600 



.ENABL LS8 
STKCNT: .WORD 0 
STKOIN: .WORD 0 
STKQOUT: .WORD 0 
$TKOSRT: .8LK8 1 
$TKQEND=. 
.EVEN 



; .-NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
;; OUTPUT POINTER 
;;TTy KEYBOARD QUEUE 



:*JK INITJALIZE ROUTINE , ^ ^ 

.••THIS ROUTINE WILL INITIALIZE THE TTV KEYBOARD INPUT QUEUE 
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 



.-•CALL; 
• * 



JSR 

RETURN 



STKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 



PC.STKINT 



STKCNT 

*$TKQSRT. STKOIN 
STKOIN. STKQOUT 
#STKSRV,a#TKVEC 
#200.a#TKVEC+2 
aSTKB 

#ioo,asTKs 

PC 



;; CLEAR COUNT OF ITEMS IN QUEUE 
;;MOVE THE STARTING ADDRESS OF THE 
;; QUEUE INTO THE INPUT g OUTPUT POINTERS. 
"THE KEYBOARD VECTOR 
4 

FLAG 

KEYBOARD INTERRUPT 
CALLER 



INITIALIZE 
;;'8R" LEVEL 
;; CLEAR DONE 
;; ENABLE TTY 
.-.•RETURN TO 



.••TK SERVICE ROUTINE _ 

.••THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

.••BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

;»IT IN THE QUEUE. ^ ^ ^ 

.••IF THE CHARACTER IS A "CONTROL-C" (*C) STKINT IS CALLED AND 

••UPON RETURN EXIT IS MADE TO THE "CONTROI -C" RESTART ADDRESS (STAPTJ 

;. -PICKUP THE CHARACTER 
; .-STRIP THE JUNK 
;;IS IT A RANDOM XQN? 
.•.-BRANCH IF NO 
;; CLEAN RANDOM XON OFF STACK 
;; RE TURN 



30$: 



1$: 



2$: 



MOVB 


a$TKB,-CSP) 


81 C 


#*C177,(SP) 


CMP 


(SP).#$XON 


BNE 


30$ 


TST 


(SP)* 


RTI 




CMP 


(SP) .*3 


BNE 


1$ 


TYPE 


.$CNTLC 


JSR 


PC,$TKINT 


TST 


(SP) + 


JMP 


START 


CMP 


(SP),#7 


BNE 


2$ 


CMP 


/irSWREG.SWR 


BEQ 


6$ 


CMP 


#1.$TKCNT 


BNE 


3$ 


TYPE 


.SBELL 



;;IS IT A CONTROL C? 

; .-BRANCH IF NO 

l.-TYPE A CONTROL-C (*C) 

;;INIT THE KEYBOARD 

;; CLEAN UP STACK 

;; CONTROL C RESTART 

;;IS IT A CONTROL 6? 

; .'BRANCH IF NO 

;;IS SOFT-SWR SELECTED? 

;;G0 TO SWR CHANGE 



.-.-IS THE QUEUE FULL? 
.-.•BRANCH IF NO 
;;RIN6 THE TTY BELL 



CZRWBO RM05/3/2 DU POR TST 1 
TTY INPUT ROUTINE 
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L 3 

4-APR-81 18:06:25 PAGE 19-1 



5£0 018« 



070760 
J ^0762 
Q707(A 
070770 
070772 
070776 
071000 
071004 
071006 
071012 
071016 
071022 
071024 
071032 
071034 
071040 
071044 
071046 
071052 
071054 
C/1060 
071064 
071070 
071076 
071100 
071106 



005726 
000431 
021627 
001021 
005077 
005726 
105777 
100375 
117746 
042716 
022627 
001366 
012777 
000002 
005237 
021627 
002405 
021627 
003002 
042716 
112677 
005237 
023727 
001003 
012737 
000002 



000023 

110146 

110140 

110134 
177600 
000021 

000100 110112 

070600 
000140 

0001 75 

000040 
177516 
070602 

070602 070607 
070606 070602 



3$: 



31$: 



32$: 



4$: 



5$: 



TST (SP)* 

BR 5$ 

CMP (SP).#23 

BNE 32$ 

CLR a$TK;S 

TST (SP)* 

TST8 a$TKS 

BPL 31$ 

M0V8 a$T>CB.-(SP) 

BIC #*C177.(SP) 

CMP (SP)*,#21 

BNE 31$ 

MOV «100.a$TKS 

RTI 

INC $TKCNT 

CMP (SP),#140 

BLT 4$ 

CMP (SP),M^'^S 

BGT 4$ 

BIC #40, (SP) 

M0V8 (SP)*,a$TKQIN 

INC $TKOIN 

CMP $TKQlN,nTKOENO 

BNE 5$ 

MOV #SrKOSRT,$TKQlN 
RTI 



.•CLEAN CHARACTER OFF OF STACK 
.•EXIT 

;;IS IT A CONTROL-S? 
.•BRANCH IF NO 

•DISABLE TTY KEYBOARD INTERRUPTS 
;; CLEAN CHAR OFF STACK 
;;WAJT FOR A CHAR 
;;L00P UNTIl ITS THERE 
;;GET THE CHARACTER 
;;MAK£ IT 7HBIT ASCII 
;;IS IT A CONTROL -Q? 
• 'BRANCH IF NO 

■•REENABLE TTY KEYBOARD INTERRUPTS 
• -f^ETURN 

•; COUNT THIS CHARACTER 
;;1S IT UPPER CASE? 
; .'BRANCH IF YES 
;;IS IT A SPECIAL CHAR? 
; .'BRANCH IF YES 
;;MAKE IT UPPER CASE 
;;AND PUT IT IN QUEUE 
;; UPDATE THE POINTER 
;;60 OFF THE END? 
.'.'BRANCH IF NO 
; .'RESET THE POINTER 
; .-RETURN 



071110 
071116 
071120 
071124 
071126 
071132 
071136 
071142 



022737 
001124 
105777 
100121 
117746 
042716 
021627 
001300 



000176 001140 $CKSUR: 

110020 

110014 
177600 
000007 



^SOFTWARE SUITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



CMP #SWRtG.SWR ;;IS THE SOFT-SUR SELECTED 

BNE 15$ ;;EXn IF NOT 

TST8 a$TKS ;;IS A CHAR WAITING? 

BPL 15$ ;;IF NOT, EXIT 

MOVB a$TK6,-(SP) ;.'YES 

BIC #*C177,(SP) .'.'MAKE IT 7-6IT ASCII 

CMP <SP).#7 ;;IS IT A CONTROL-G? 

BNE 2$ ;;IF NOT, PUT IT IN THE TTY QUEUE 

:;AND EXIT 



071144 
071152 
071154 
071156 
071162 
071166 

071174 
071200 
071204 
071210 



123/'27 
001674 
005726 
004737 
005077 
112737 

104401 
104401 
013746 
104402 



001134 000001 6$ 



070610 
107756 
000001 

072020 
072025 
000176 



001135 



.'•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
.'•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
.'•CONTROL-G BEING TYPED. AND THE SOFTWARE SWITCH REGISTER BEI.*.G SELECTED. 



CMP8 
BEQ 
TST 
JSR 
CLR 
MOVB 



TYPE 

$GTSWR: TYPE 
MOV 
TYPOC 



$AUT08.*1 ;;ARE WE RUNNING IN AUTO-MODE? 

2$ ;;8RANCH IF YES 

(SP)* ;; CLEAR CONTROL -6 OFF STACK 

PC,$TKINT ; .-FLUSH THE TTY INPUf QUEUE 

a$TKS ; .-DISABLE TTY KEYBOARD INTERRUPTS 

#1.$INTAG ;;SET INTERRUPT MODE INDICATOR 

.$CNTLG ;;ECHO THE CONTROL-G (*G) 

.$MSWR ;;TYPE CURRENT CONTENTS 

SWREG.-(SP) ;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE— OCTAL ASCI I (ALL DIGITS) 



CZRMRBO RM05/5/? OU POR TST 1 MACRO V04.00 4-APR-81 
TTY INPUT ROUTINE 



071212 


10^401 


072036 




VI: 


TYPE 


071216 


005046 






CLR 


071220 


005046 








CLR 


071222 


105777 


107716 




7$: 


TST8 


071226 


100375 








DDI 


071230 


1 1 7746 


107712 






MOVS 


071234 


042716 


4 AA 

1 77600 






D r r 


071240 


021627 


A A A A A V 

000003 






CnP 


071244 


001015 








dNc 


071246 


104401 


072006 






TYPE 


071252 


A^ 17 AX 

062706 


AAAAA^ 

000006 






Ar%A 
ADD 


071256 


123727 


001155 


000001 




CMPB 


071264 


A A t AA Y 

001005 








oNc 


071266 


Ai "5^^^ 

012777 


AAA1 *\t\ 

000100 


1 A7i^Cn 




P1UV 


071274 


AAA 4 Y7 

000137 


AA'^ 'i/ A 

002240 




0*: 


IMD 

Jfr 


C71300 


021627 


AAA A 1 C 

000025 




V»: 


CnP 


071304 


001005 








BNE 


071306 


•% A/ / A4 

104401 


072015 






T VDC 

1 Trt 


071312 


AZ^ 17AZ. 

062 '06 


AAAAA^ 
000006 




20*: 


Ann 


071316 


AAA^T7 

000r3r 








ON 


071320 


021627 


000013 




10*: 


rMD 

CW 


071 324 


AA1 A^il 

001022 








dNc 


071 326 


005/^66 


AAAAA/ 

000004 






TCT 


071 332 


AAi / AT 

001405 










071334 


Ai ^^"77 

016677 


AAAAA1 

000002 


1 A7C7/1 




nUV 


071342 


062706 


AAAAAX 

OOOOOo 




1 1 » : 


Ann 


071346 


4 A/ y AI 
104401 


AAi OA 7 

001 207 




I4»: 


T VDC 


071352 


\cbi cf 


AAi 1 

001 155 


AAAAA 1 

000001 






071360 


AA1 AAI 








QAlC 


0/^1 3o<: 


AI 1777 


AAA1 AA 

000100 






nuv 


0713/^0 


AAAAAO 

000002 






1 3* : 


DT I 


Qn5fc 


AA7 7T7 


0/^0004 




lo»: - 


ICQ 


071376 


AOi Z.17 

021627 


AAAA^A 

OOOOoO 






rMD 


A7i / Al 

071402 


AAI/ OA 

0024^0 










A7<9 / A/ 

07 1 404 


AOi 

021627 


AAAAX7 
OOOOOf 






rMD 


071410 


AA7A1 C 

005U15 








DrT 

DUl 


A^i / "1 1 

071412 


A/ 070Z. 

042 726 


AAAAZA 
000060 






D I r 


A"?"! / 1 ^ 

071416 


005766 


AAAAA 0 

000002 






TCT 




AAi / AT 

001405 








DC A 


0/^14^4 


AA^7i ^ 

0065 lO 








ACI 


Of 14<:o 


006516 








ACI 

AoL 


0rl43l/ 


00651 0 








ACI 


U/^143<: 








1 7C • 
1 f ». 


f Mr 


071436 


056616 


1 7777b 






BIS 


071442 


000667 








BR 


071444 


104401 


001206 




18$: 


TYPE 


071450 


000720 








BR 










.DSA8L 


LS8 
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,$MNEW ;;PR0MPT FOR NEW SWR 

-(SP) .-.-CLEAR COUNTER 

-(SP) ;;THE NEW SWR 

a$TKS ;;CHAR THERE? 

7$ ;;If NOT TRY AGAIN 

a$TK8.-(SP) ;;PICK UP CHAR 

#*C177.(SP) ;;riAKE IT 7HBIT ASCII 

(SP).#3 ;;IS IT A CONTROL -C? 

9$ ; .-BRANCH IF NOT 

.$CNTLC ;;YES, ECHO CONTROL-C (*C) 

*6,SP .-.-CLEAN UP STACK 

$INTAG.#1 ;;REENABL£ TTY KEYBOARD INTERRUPTS 

8$ ' *BRANCH IF NO 

*100,a$TKS ; -ALLOW TTY KEYBOARD INTEftRjP^S 

START ;; CONTROL-C RESTART 



ISP), 025 ;;IS IT A CONTROL -U? 

10$ ;. -BRANCH IF NOT 

.$CNTLU ;;YES, ECHO CONTROL-U CU) 

#6.SP ;; IGNORE PREVIOUS INPUT 

19$ ;;L£T'S TRY IT AGAIN 



(SP).#15 ;;IS IT A <CR>? 

16$ :;BRANCH IF NO 

4(SP> ;;YES, IS IT THE FIRST CHAR? 

11$ .-.BRANCH IF YES 

2 (SP) , aSWR ; ; SAVE NEW SUR 

*6,SP ;; CLEAR UP STACK 

.$CRLF ;;ECHO <CR> AND <lF> 

$INTA6,#1 ;;RE-EN^E TTY KBD INTERRUPTS? 

15$ * 'BRANCH IF NOT 

#100.8$TKS ;;RE-EN/WLE TTY KBD INTERRUPTS 

.-.-RETURN 

PC,$TYPEC ;.-ECHQ CHAR 

(SP).#60 ;;CHAR < 0? 

18$ .-.BRANCH IF YES 

(SP). #67 ;;CHAR > 7? 

18$ ::6RANCH IF YES 

#60. (SP)* .-.-STRIP-OFF ASCII 

2(SP) ;.-IS THIS THE FIRST CHAR 

17$ ; .-BRANCH IF YES 

(SP) ;;N0. SHIFT PRESENT 

(SP) ;; CHAR OVER TO MAKE 

(SP) ;; ROOM FOR NEW ONE. 

2(SP) ;;KEEP COUNT OF CHAR 

-2(SP).(SP) ;;SET IN NEW CHAR 

7$ ;;GET THE NEXT ONE 

.$QUES .'.-TYPE ?<CR><LF> 

^0$ ;; SIMULATE CONTROL-U 



rZRMRBO RM05/3/2 DU POR TST 
TTY INPUT RCXJTINE 



07U52 
07K5A 
07K62 
07U66 
07K70 
07K7A 
07U76 
07K76 
071 502 
071 50A 
071510 
071516 
071522 
071530 
071532 
071 5^0 



N 3 
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*'HIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTV 
*CALL: 

» - RDCHR ;;GET A CHARACTER FROM THE QUEUE 

* RETURN HERE ;; CHARACTER IS ON THE STACK 

• ;;WITH PARITY BIT STRIPPED OFF 



SEO 01 



011646 
016666 
005066 
0050A6 
012746 
000002 

005737 
001775 
005337 
117766 
005237 
023727 
001003 
012737 
000002 



000004 000002 
000004 

071476 



070600 

070600 

1 77070 000004 
070604 

070604 070607 
070606 070604 



SRDCHR: MOV (SP),-(SP) ;;PUSH DOWN THE PC AND 

MOV 4(SP).2(SP) ;;THE PS 

CLR 4(3P) ;;GET READY FOR A CHARACTER 

CLR -(SP) ;;PUT NEW PS ON STACK 

MOV *64$,-(SP) ;;PUT NEW PC ON STACK 

RTI ;;POP NEW PC AND PS 

;;WAIT ON A CHARACTER 



64S: 
1$: 



2$: 
• »»»» 

iTHIS 
•CALL 



TST STKCNT 

BEQ 1$ 

DEC STKCNT ;; DECREMENT THE COUNTER 

M0V8 a$TKQ0UT,4(SP) ;;6ET ONE CHARACTER- 

INC STKOOUT ; .-UPDATE THE POINTER 

CMP $TKQOUT,#$TKOEND ;;DJD IT GO OFF OF THE END? 

BNE 2$ ;;8RANCH IF NO 

MOV #$TKOSRT,$TKOOUT ;;RESET THE POINTER 
RTI ; .-RETURN 

******* t ****************************** 

ROUTINE WILL INPUT A STRING FROM THE TTY 



RDL IN 

RETURN HERE 



071542 


010346 






SRDLIN: 


MOV 


R3.-(SP) 


071544 


005046 








CLR 


-<SP) 


071546 


012703 


071776 




1$: 


MOV 


#$TTY1N.R3 


071552 


022703 


072006 




2J: 


CMP 


«TTYIN*8.,R3 


071556 


101456 








BLOS 


4$ 


071560 


104410 








RDCHR 


(SP)+, (R3) 
*177.(R3) 


071 562 


112613 








MOVE 


071564 


122713 


000177 




10S: 


CMP8 


071570 


001022 








BNE 


5$ 


071572 


005716 








TST 


(SP) 


071574 


001007 








BNE 


6$ 

*'\,9$ 


071576 


112737 


000134 


071 774 




MOVB 


071604 


104401 


071774 






TYPE 


,9$ 


071610 


012716 


Mn77 






MOV 


*-1.(SP) 


071614 


005303 






6S: 


DEC 


R3 


071616 


020327 


071 776 






CMP 


R3.«TTYIN 


071622 


103434 








BLO 


4S 


071624 


111337 








MOVB 


CR3),«>$ 


071630 


104401 


^7^771* 






TYPE 


,9$ 


071634 


000746 








BR 


2$ 


071636 


005716 






5$: 


TST 


(SP) 


071640 


001406 
112737 








BEQ 


7$ 


071642 


000134 


071774 




MOVB 


**\.9$ 


071650 


104401 


071 774 






TYPE 


.9$ 


071654 


005016 








CLR 


(SP) 


071656 


122713 


000025 




7$: 


CMP8 


*25.(R3) 


071662 


001003 








BNE 


8$ 



;; INPUT A STRING FROM THE TTY 

; .-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.-.-TERMINATOR WILL BE A BYTE OF ALL O'S 

* 'SAVE R3 

••CLEAR THE RUBOUT KEY 
;;6ET ADDRESS 
.•.-BUFFER FULL? 
• 'BR iF YES 

;;G0 READ ONE CHARACTER FROM THE TTY 
;;GET CHARACTER 
;;IS IT A RUBOUT 
;;BR IF NO 

;;IS THIS THE FIRST RUBOUT? 

;;BR IF NO 

;;TYPE A BACK SLASH 

;;SET THE RUBOUT KEY 
;; BACKUP BY ONE 
; .-STACK EMPTY? 
;;8R IF YES 

;; SETUP TO TYPEOUT THE DELETED CHAR. 
;;G0 TYPE 

;;G0 READ ANOTHER CHAR. 
;; RUBOUT KEY SET? 
;;BR IF NO 
;;TYPE A BACK SLASH 

.•CLEAR THF RUBOUT KEY 
;IS CHARACTER A CTRL U? 
;BR IF NO 



CZRMRBO RMOS/3/2 DU POR TST 1 
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.EO 0185 



071664 
071670 
071672 
071676 
071700 
071 702 
071706 
071712 
071 7U 
071 720 
071 722 
071726 
071732 
071736 
071 740 
071 744 
071 750 
071752 
071754 
071 756 
071764 
071 772 
071 774 
071775 
071776 
072006 
072013 
072020 
072025 
072036 



104401 
000726 
122713 
001011 
105013 
104401 
104401 
000717 
104401 
000712 
1 1 1 337 
104401 
122723 
001305 
105063 
104401 
005726 
012603 
011646 
016666 
012766 
000002 
000 
000 

136 
136 
136 
015 
040 



072013 
000022 



001207 
071776 

001206 

071774 
071774 
00001 5 

\77777 
001210 



000004 
071776 



103 
125 
107 
012 
040 



000002 
000004 



015 
015 
015 
123 
116 



8S: 



4$: 
3S: 



9$: 

STTYIN 
SCNTLC 
SCNTLU 
SCNTLG 
SnSUR: 
$^MEU: 
.EVEN 



TYPE ,$CNTLU 

BR 1$ 

CMP8 #22, (R3) 

BNE 3$ 

CLR8 (R3) 

TYPE ,$CRLF 

TYPE ,$TTYIN 

BR h 

TYPE ,$OUES 

BR IS 

MOVB (R3),9$ 

TYPE .9$ 

CMP8 #15,(R3)+ 

BNE 2S 

CLR8 -1(R3) 

TYPE .$LF 

TST (SP)* 

MOV (SP)*.R3 

MOV (SP).-(SP) 

MOV 4(SP),2(SP) 

MOV #$TTYIN.4{SP) 
RTI 

.BYTE 0 

.BYTE 0 

.BLKB 8. 

•ASCIZ /*C/<15><12> 

.ASCIZ /*U/<15><12> 

.ASCIZ /*G/<15><12> 

.ASCIZ <15><12>/SWR = / 

.ASCIZ / NEW = / 



TYPE A CONTROL '\J" 

GO START OVER 

IS CHARACTER A "•R"? 

BRANCH IF NO 

CLEAR THE CHARACTER 

TYPE A "CR" £ "LF" 

TYPE THE INPUT STRING 

GO PICKUP ANOTHER CHACTER 

TYPE A •?• 

CLEAR THE BUFFER AND LOOP 
ECHO THE CHARACTER 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CLEAR RETURN (THE 15) 

TYPE A LINE FEED 

CLEAN RU30UT KEY FROM thE STACK 

RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 



RETURN 

STORAGE FOR ASCII 
TERMINATOR 
RESERVE 8 BYTES FOR 
CONTROL "C" 
CONTROL '\J" 
CONTROL "G" 



CHAR- TO TYPE 
TTY INPUT 



CZRMR80 F<M05/3/2 DU POP TST 1 
READ AN OCTAL NUMBER FROM THE 



l^ACRO VOA.OO 
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.S8TTL READ AN OCTAL NUMBER FROM THE TTV 



SEO 0186 



072050 
072052 
072060 
072062 
07206A 
072066 
072070 
072072 
072076 
072100 
072102 
072104 
072106 
072112 
072114 
072120 
072122 
072124 
072126 
072150 
072132 
072134 
072136 
0721A2 
072144 
072146 
072150 
072154 
072160 
072162 
072164 
0721 66 
072170 
072172 
0721 74 
072176 
072200 
072204 
072206 



;»THJS ROUTINE WJLL READ AN OCTAL (ASCII) NUMBER FROM THf TTr AND 
; "CHANGE IT TO BINARr. 

;*THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEr ARE LEGAL 
;»OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A "?" WILL BE TYPED 
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 
;«THEN BE RETYPED. THE INPUT IS TERMINATED Br TYPING A CARRIAGE RETURN 
;*CALL: 

RDOCT 
;* RETURN HERE 



;READ AN OCTAL NUMBER 
;LOW ORDER BITS ARE ON TOP OF THE STACK 
:HIGH ORDER BITS ARE IN SHIOCT 



V • 1 OHO 




tRDOCT • 


MOV 


(SP) .-(SP) 


;; PROVIDE SPACE FOR THE 




000004 000002 




MOV 


4(SP) .2(SP) 


;; INPUT NUMBER 
;;PUSH RO ON STACK 








MOV 


RO.-(SP) 


\J l\J \ MO 






MOV 


R1 ,-(SP) 


' 'PUSH R1 ON STACK 








MOV 


R2,-(SP) 


;;PUSH R2 ON STACK 


1 U**** 1 1 




It- 


RDLIN 




::READ AN ASCIZ LINE 


yj 1 couu 






MOV 


(SP)-f RO 


:;GET ADDRESS OF 1ST CHARACTER 
•:AND SAVE IT 




0721 76 




MOV 


R0,5S 


005001 

\J\J J \J\J 1 




CLR 


R1 


;; CLEAR DATA WORD 


nnioop 






CLR 


R2 




1 1 CW*tO 






MOVB 


(RO)*--(SP) 


■ ;PI CKUP THIS CHARACTER 








BEQ 


3S 


;;IF ZERO GET OUT 


1??716 


000060 

WWWVU V 




CMF>B 


#'0,(SP) 


:;MAKE SURE THIS CHARACTER 






BGT 


4S 


::IS AN OCTAL DIGIT 




\J\J\J\J\J 1 




CMPB 


#'7,(SP) 




00P423 






BLT 


4S 




006301 






ASL 


R1 




00610? 






ROL 


R2 


; ; "A 








ASL 


R1 


006102 






ROL 


R2 


.-.-•a 


006301 






ASL 


R1 


006102 






ROL 


R2 

#*C7,(SP) 


;; STRIP THE ASCII JUNK 


042716 


^77770 




BIG 


062601 






ADD 


(SP) ♦,R1 


;;ADD IN THIS DIGIT 


000756 






BR 


2$ 


. -LOOP 


005726 




3$: 


TST 


(SP)* 


••CLEAN TERMINATOR FROM STACK 


010166 


000012 




MOV 


R1,12(SP) 


;;SAVE THE RESULT 


010237 


072206 




MOV 


R2. SHIOCT 


;;POP STACK INTO R2 


012602 






MOV 


(SP)*,R2 


012601 






MOV 


(SP)*, R1 


;;POP STACK INTO R1 


012600 






MOV 


(SP)*.RO 


.-.POP STACK INTO RO 


000002 






RTI 




• •RETURN 


005726 




4S: 


TST 


(SP)* 


••CLEAN PARTIAL FROM STACK 


105010 






CLR8 


(RO) 


;;SET A TERMINATOR 


104401 






TYPE 




;;TYPE UP THRU THE BAD CHAR. 


000000 




5$: 


.WORD 


0 


;;■•?•• "'CR" 1 "if" 


104401 


001206 




TYPE 


,$0UE3 


000730 






BR 


IS 


;;TRY AGAIN 

;;HIGH ORDER BITS 60 HERE 


000000 




$HI0CT: 


.WORD 


0 
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SEO 0187 



,?8TTL SAVE AND RESTORE R0-R5 ROUTINES 



072210 
072210 
072212 
072214 
072216 
072220 
Q72222 
07222^* 
072230 
072234 
072240 
0722UI* 



072246 
072246 
072252 
072256 
072262 
072266 
072270 
072272 
07227U 
072276 
072300 
07230? 



010046 
010146 
010246 
010346 
010446 
010546 

016646 000022 
016646 000022 
016646 000022 
016646 000022 
000002 



012666 
012666 
012666 
012666 
012605 
012604 
012603 
012602 
012601 
012600 
000002 



000022 
000022 
000022 
000022 



•SAVE 
•CALL 

•UPON 
• 

• TOP- 
. *2-. 

• ♦4- 

• *6- 
» *8- 
•*10- 
•♦12- 

• ♦14- 



R0-R5 
SAVREG 

RETURN FROn SSAVREG THE STACK WILL LOOK LIKE: 

-(♦16) 

-(♦18) 

-R5 

-R4 

-R3 

-R2 

-R1 

-RO 



SSAVREG: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE R0-R5 



RO,-(SP) 

R1,-(SP) 

R2.-(SP) 

R3,-(SP) 

R4,-<SP) 

R5,-<SP) 

22(SP).-(SP> 

22(SP),-(SP) 

22(SP),-(SP) 

22(SP). -(SP) 



•CALL : 



SRESREG: 



RESRE6 

'mov 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTJ 



(SP)+,22(SP) 

(SP)+,22(SP) 

(SP)+.22<SP) 

CSP)+.22(SP) 

<SP) ♦.RS 

(SP)*.R4 

(SP)*,R3 

(SP)^.R2 

(SP)^.RI 

(SP)*.RO 



PUSH RO 
PUSH R1 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 
SAVE PS 
SAVE PC 
SAVE PS 
SAVE PC 



ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
OF MAIN FLOW 
OF MAIN FLOW 
OF CALL 
OF CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF MAIN FLOW 
RESTORE PS OF HAJN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
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.SOTTL TRAP DECODER 



SEO 0188 



0723(K 010M6 

072306 016600 000002 

072312 005740 

0723U 111000 

0^2316 006300 

072320 016000 0723A0 

07232A 000200 



•THJS ROUTINE WILL PICKUP THE LOWER BrTE OF ^HE "TRAP" INSTRUCTION 

•AND USE IT rO INDEX THROUGH THE TRAP TABLE fOR THE STARTING ADDRESS 

•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 



STRAP: MOV 


RO.-(SP) 


MOV 


2(3P) ,R0 


TST 


-(RO) 


M0V8 


(RO).RO 


ASL 


RO 


MOV 


$TRPAD(RO).RO 


RTS 


RO 



;;SAVE RO 

;;GET TRAP ADDRESS 

;; BACKUP BY 2 

;;GET RIGHT BrlE OF TRAP 

.-.•POSITION FOR INDEXING 

;; INDEX TO TABLE 

;;G0 TO ROUTINE 



C72326 0116A6 

072330 016666 000004 

072336 000002 



072340 
072342 
072344 
072346 
072350 
072352 



072326 
067634 
0701 52 
070126 
070166 
070354 



;;THIS IS USE TO HANDLE THE "GfcTPRI" MACRO 



000002 



072354 071200 



072356 
072360 
072362 
072364 
072366 
072370 



071110 
071452 
071542 
072050 
072210 
072246 



$TRAP2: MOV 
MOV 
RTI 



(SP) .-(SP) 
4(SP).2JSP) 



;;MOVE THE PC DOWN 
;;MOVE THC PSW DOWN 
; .-RESTORE THE PSW 



.S8TTL TRAP TABLE 



.••THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
.••BY THE '7RAP" INSTRUCTION. 



STRPAD: 



ROUTINE 

.WORD 

STYPE 

STYPOC 

STYPOS 

STYPON 

STYPDS 



$TRAP2 

;;CALL=TYP6 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

.•;CALL=TYPDS 



TRAP+1 (104401) 
TRAP*2( 104402) 
TRAP*3( 104403) 
TRAP*4( 104404) 
TRAP*5( 104405) 



TIY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NlfBER (NO LEADING ZEROS) 
TYPE OCTAL NLMBEH (AS PER LAS^ CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



JGTSWR ;;CALL=GTSWR TRAP*6( 104406) GET SOFT-SWR SETTING 



SCKSUR 

SRDCHR 

SRDLIN 

SRDOCT 

SSAVREG 

SRESREG 



;;CALL=CKSWR 

;;CALL=RDCHR 

;;CALL=RDLIN 

;;CALL=ROOCT 

;;CALL=SAVREG 

;;CALL=RESREG 



TRAP*7( 104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP*1 0(1 04410) TTY TYPEIN CHARACTER ROUTINE 

TRAP*1 1(104411) TTY TYPEIN STRING ROUTINE 

TRAP*12(104412) READ AN OCTAL r*fBER FROM TTY 

TRAP*13(104413) SAVE- R0-R5 ROUTINE 

TRAP»U(104414) RESTORE R0-R5 ROUTINE 



7RMRB0 DU 
'ELETrPE MESSAGES 



2 
3 
4 
5 

b 
7 



072172 
072421 
072444 
072473 
072522 

8 072560 

9 072600 

10 072627 

11 072640 
^2 07267S 



P0« 


TST 1 


MACRO V04.00 4 








.SSTTL 


200 


105 


116 


ENTERA: 


040 


077 


111 


ADR ERR: 


200 


120 


117 


PORTAIS 


200 


120 


117 


PORTS IS 


200 


116 


117 


NOCLOCK 


012 


105 


116 


TESTNO: 


040 


077 


111 


BAONO: 


040 


105 


122 


TSTERR: 


200 


012 


122 


ADDRIS: 


012 


105 


116 


NTRH: 



4-APR-81 18:06:^5 



F 

PAGE 



4 

23 



SfO 01 SS* 



TELETYPE MESSAGES 



.ASCJZ <CRLF>/ENTER DRIVE ADDRESS: / 

.ASCJZ / 7INVALJD ADDRESS/<CRLF> 

.ASCIZ <CRLF>/PORT 'A' ADDRESS IS: / 

.ASCJZ <CRLF>/PORT '8' ADDRESS IS: / 

.ASCIZ <CRLF>/NO SYSTEM 'L* OR 'P' CLOCK/<CRLF><LF > 

.ASCIZ <LF>/ENTER TEST »: / 

.ASCIZ / 7INVAL1D TEST NI/«£R/<CRlF> 

.ASCIZ / cRR0RS/<CRLF> 

.ASCIZ <CRLF><LF>aRH/RM ADDRESS (RMCSD IS: a 

.ASCIZ <LF>aENTER RH/RM ADDRESS: a 



'"ZRMR80 RM05/3/2 DU POR TST 1 
^ES^ ERROR MESSAGES 



2 
3 
<. 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



flACRO V04.00 



G 4 

4-APR-81 18.06:25 PAGE 24 



SEO 0190 



.SBTTL TEST ERROR MESSAGES 



072724 


127 


122 


117 


EMI 




.ASCJ 


072745 


104 


122 


111 


EM2 




.ASCI 


072767 


123 


105 


122 


EM3 




.ASCI 


073051 


104 


122 


1 1 1 


EM4 




.ASCJ 


073102 
073150 
073250 


127 


122 


117 


tM5 




.ASCI 


122 


105 


107 


EM6 




.ASCI 


122 


105 


107 


EM7 




.ASCI 


073331 


122 


105 


107 


EMIO 


.ASCI 


0733ol 


103 


117 


116 


EMU . 


.ASCI 


073445 


104 


122 


111 


EMI 2. 


.ASCI 


073515 


122 


105 


101 


EMI 3. 


.ASCI 


073602 


126 


117 


114 


EMU. 


.ASCJ 


073645 


101 


124 


124 


EMI 5. 


.ASCJ 


073724 


101 


124 


124 


EM16. 


.ASCI 


073777 


101 


124 


124 


EMI 7 


.ASCI 


074056 


104 


122 


1 1 1 


EM20 


.ASCJ 


074136 


104 


122 


111 


EM21 


.ASCJ 


C74211 


104 


122 


111 


EM22 


• ASCI 


074276 


124 


111 


115 


EM23 


.ASCJ 


074344 


122 


105 


114 


EM24 


.ASCI 


074423 


124 


1 1 1 


115 


EM25 


.ASCI 


074466 


104 


122 


111 


EM26 


.ASCJ 


074553 


122 


105 


107 




.ASCI 


074631 


104 


122 


111 


EM30 


.ASCI 


074726 


104 


122 


111 


EM31 


•ASCI 


075003 


101 


124 


124 


EW32 


.ASCI 


075054 


104 


122 


111 


EM33 


.ASCI 


075156 


104 


122 


111 


EM34 


.ASCI 


075261 


124 


1 1 1 


4 4 P 

115 


EM35 


.ASCI 


075540 


124 


111 


115 


EM36 


.ASCI 


075412 


104 


122 


111 


EM37 


.ASCI 


075460 


101 


124 


4 t y 

124 


EM40 


.ASCI 


075535 


124 


111 


4 4 r 

115 


EM41 


.ASCI 


075577 


104 


122 


111 


EM42 


.ASCI 


075665 


104 


122 


1 1 1 


EM43 


.ASCI 


075742 


127 


122 


111 


EM44 


•ASCI 


07601 7 


120 


117 


122 


EM45 


.ASCI 


076071 


103 


101 


116 


Em6 


.ASCI 


076140 


101 


4 ^ ^ 

124 


124 


CM/ 7 


.ASCI 


C 76226 


101 


4 ^ / 

124 


124 


EM50 


.ASCI 


076310 


101 - 


124 


124 


EM51 


.ASCI 


076377 


124 


110 


105 


EM52 


.ASCJ 


076472 


103 


101 


4 4 Z 

116 


EMS 3 


.ASCI 


076553 


122 


105 


114 


EM54 


.ASCJ 


076646 


124 


1 1 1 


4 4 f 

115 


EMS 5 


.ASCJ 


Qfbn 5 


IT) 

122 




AC "7 


EM56 


.ASCI 


076756 


120 


117 


122 


EMS 7 


.ASCI 


077017 


101 


124 


124 


EM60 


.ASCI 


077063 


101 


'24 


124 


EM61 


.ASCI 


077115 


101 


124 


124 


EM62 


.ASCI 


077163 


104 


122 


111 


EM63 


.ASCI 


077225 


101 


124 


124 


EM64 


.ASCI 


077274 


126 


117 


114 


EM65 


.ASCI 



/WRONG DRIVE TYPE/ 
/DRIVE NOT ON LINE/ 

/SERIAL NUiBER READ THROUGH EACH PORT NOT THE SAME/ 

/DRIVE NOT SEIZED BY PORT/ 

/WRONG STATUS SEEN BY THE SEIZING PORT/ 

/REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED/ 
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 
/REGISTER CONTENTS WRONG/ 

/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 

/DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND/ 

/READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 

/VOLUME VALID SET ON THE WRONG PORT/ 

/ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/ 

/ATTN BIT WRONG AFTER RELEASE - REQUEST SET/ 

/ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET/ 

/DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/ 

/DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT/ 

/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 

/TIMEOUT CLEARED THE DRIVE'S ERROR BIT/ 

/RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 

/TIMEOUT ONE-SHOT DID NOT RETRJGGER/ 

/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 

/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 

/DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL/ 

/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 

/ATTN BIT WRONG AFTER RECALIBRATE COMMAND/ 

/DRIVE RETURNED TO r«UTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 

/DRIVE RETURNED TO NEUTRAL IF MASS8US INIT GIVEN UWILE DRIVE SEIZED/ 

/TIMEOUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/ 

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 

/DRIVE IS NON-EXISTENT CNED* BIT SET)/ 

/ATTN BIT FOR PORT NOT RESET BY HASS8US CLEAR/ 

/TIMEOUT CLEARED THE ATTENTION BIT/ 

/DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATTN BIT WRITTEN/ 

/DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN/ 

/WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 

aPORT SELECT SWITCH ON DRIVE, NOT IN 'A/B'a 

/CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 

/ATTN BIT FOR SEIZING PORT NOT CLEARED BY MASS8US INIT/ 

/ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/ 

/ATTN BIT NOT CLEARED BY MASS8US INIT, DRIVE IN NEUTRAL/ 

/THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST t 'ERR* SET/ 

/CAN'T READ THE ATTN BIT FROM THE 'OPPOSITE' PORT/ 

/RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 

/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 

aRH/RM DIDN'T RESPOND TO ADDRESSINGS 

/PORT REQUEST FLOP(S) WRONG STATE/ 

/ATTENTION NOT RESET BY WRITING RMAS/ 

/ATTENTION NOT RESET BY GO/ 

/ATTENTION RESET BY GO WHEN NOT SEIZED/ 

/DRIVE SEIZED BY UNIT READY CHANGE/ 

/ATTENTION NOT SET BY UNIT READY CHANGE/ 

/VOLUME VALID NOT RESET BY UNIT READY/ 



-ZR«1RBC DU POR 

'f^^ ERROR MESSAGES 



1 


077341 


124 


2 


077412 


124 


3 


077461 


040 


U 


077520 


'24 


5 


077604 


124 


6 


077660 


040 


7 


077717 


124 


8 


100003 


124 


9 


100054 


040 


10 


100113 


124 


11 


1001 74 


040 


12 


100233 


124 


13 


100272 


040 


H 


100321 


124 


15 


100372 


040 


16 


100422 


124 


17 


100451 


040 


18 


100511 


12^ 


19 


100550 


124 


20 


100577 


124 


21 


100616 


040 


22 


100655 


124 


23 


100714 


040 


2A 


100754 


124 


25 


101011 


124 


26 


101067 


044 


27 


101076 
101150 


124 


28 


040 


29 






30 






31 






3^ 


101230 


001246 


33 


101244 


001246 


3A 


101260 


001246 


35 


101276 


001246 


36 


101312 


001246 


37 


101332 


001246 


38 


101350 


001246 


39 


101362 


001246 


AO 


101376 


001246 


41 


10U10 


001246 


42 


101420 


001246 


43 


101430 


001246 


44 


101436 


001246 


45 


101450 


001246 


46 


101462 


001246 


47 


101474 


001304 


48 


101500 


001246 


49 






50 


101516 


000 


51 


101523 


000 


52 


101531 


000 


53 


101540 


000 


54 


101544 


000 


55 


101547 


000 


56 


101551 


000 


:7 


101555 


000 



TST 1 MACRO 



105 


123 


105 


123 


040 


040 


105 


123 


105 


123 


040 


040 


105 


123 


105 


123 


040 


040 


105 


123 


040 


040 


105 


'23 


040 


040 


105 


123 


040 


040 


105 


123 


040 


040 


105 


123 


105 


123 


105 


123 


040 


040 


105 


123 


040 


040 


- 105 


123 


105 


123 


122 


115 


105 


123 


040 


040 



001116 001240 

001116 001122 

001116 001240 

001116 001244 

001116 001242 

001116 001242 

001116 001242 

001116 001242 

001116 001242 

001116 001242 

001116 001240 

001116 000000 

001116 001170 

001116 001244 

001116 001242 
000000 

001116 001164 

000 000 

000 000 

000 000 

000 000 

000 000 
000 

000 ooo; 



4.00 


4-APR-81 


DHl : 


.ASCJZ 


DH3: 


.ASCJZ 


DH4: 


.ASCJJ 




.ASCJZ 


DH5: 


.ASCJZ 


DH7: 


.ASCJJ 




.ASCJZ 


DH11 


.ASCJZ 


DHl 3 


.ASCJJ 




.ASCJZ 


DH22 


.ASCJJ 




.ASCJZ 


DH23 


.ASCJJ 




.ASCJZ 


DH26 


.ASCJJ 




.ASCJZ 


DH31 


.ASCJJ 




.ASCJZ 


DH36 


.ASCJZ 


DH42 


.ASCJZ 


DH44 


.ASCJJ 




.ASCJZ 


DH46 


.ASCJJ 




.ASCJZ 


DH55 


.ASCJZ 


DH56 


.ASCJZ 


DH57 


.ASCJJ 




.ASCJZ 



.EVEN 

DTI: .WORD 

DT3: .WORD 

DT5: .WORD 

DT6: .WORD 

DT7: .WORD 

DT13: .WORD 

DT22: .WORD 

DT23: .WORD 

DT31: .WORD 

DT36.- .WORD 

DT37: .WORD 

DT42: .WORD 

DT46: .WORD 

DT54: .WORD 

DT55: .WORD 

DT56: .WORD 

DT57: .WORD 

DF1: .eVTE 

DF5: .eVTE 

DF7: .QyTE 

DF31: .erTE 

DF36: .eyTE 

Df42: .eVTE 

DF55: .SYTE 

DF56: .8YTE 



H 4 

18:06:25 PAGE 25 

SEO 0191 



/TEST 




ERR 


PC 


PORT # 


REG ADR CONTENTS/ 
PORT A PORT 8/ 


/TEST 




ERR 


PC 


REG ADR 


/ 








SEJZE 


ERROR/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


PORT # REG ADR GOOD BAD/ 


/TEST 




ERR 


PC 


PORT # 


REG ADR GOOD BAD/ 


/ 








RELSNC 


ERROR/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


PORT K REG ADR GOOD BAD/ 


/TEST 




ERR 


PC 


PORT # 


REG ADR CONTENTS/ 


/ 








SEJZE 


ERROR/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


PORT # REG ADR CONTENTS/ 


/ 








RELSNG 


SEJZE/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


PORT #/ 


/ 








SEJZE/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


REG ADR CONTENTS/ 


/ 








RELSNG/<CR><LF> 


/TEST 




ERR 


PC 


PORT #/ 




/ 








RELSNG 


ROSTNG/<CR><LF> 


/TEST 




ERR 


PC 


PORT # 


PORT #/ 


/TEST 




ERR 


PC 


PORT #/ 




/TEST 




ERR 


PC/ 






/ 








RELSNG 


ERROR/<CR><LF> 


/TEST 




ERR 


PC 


PORT * 


PORT #/ 


/ 








PORT A 


PORT B/<CR><LF> 


/TEST 




ERR 


PC 


RMDS 


RMOS/ 


/TEST 


n 


ERR 


PC 


PORT # 


TJMEOUT VALUE (IN MS)/ 


/SRMADR/ 










/TEST 


M 


ERR 


PC 


PORT A PORT B/ 


/ 








EXPCTD 


RECEVD EXPECTD RECEVD/ 



T S TNUM , $E RRPC . P TNBR . SBDADR , $8DDAT , 0 

T S TNUM . SERRPC , $80ADR , SGDDA T , $8DDAT , 0 

TS TNUM , SERRPC ,PTN8R . $8DA0R . SGDDAT . $8DDAT . 0 

T S TNUM . SERRPC . OPPR T , SBDADR . S8DDAT . 0 

TS TNUM , SERRPC ,SEJZPT,PTI«R. SBDADR . SGDDAT . S8DDA T . 0 

TS TNUM, SERRPC , SE J ZP T , PTM3fi . SBDADR , S8DDAT . 0 

TSTNUM,S£RRPC,SEI2PT,PTNBR.O 

TSTNUM , SERRPC , SE I ZPT . SBDADR , S8DDAT , 0 

TS TNUM, SERRPC. SE J ZPT . OPPRT , 0 

TSTNUM,SERRPC,SEIZPT,0 

TSTNUM,SERRPC.PT^BR.0 

TSTNUM, SERRPC. 0 

TSTNUM. SERRPC . STMP2 .STMP3 . 0 

TSTNUM , SERRPC . OPPRT . SE J ZP T . 0 

TSTNUM. SERRPC, SEIZPT, TIME, 0 

SRMADR.O 

TS TNUM , SERRPC , STMPO . STMPI , $TMP2 . STMP3 . 0 

0.0,0,0.0 

0.0,0.0,0,0 

0,0,0.0.0,0,0 

0.0,0,0 

0,0.0 



I 4 

'ZR««BG RM05/^/2 DU POR TST 1 i>1ACR0 »/0<..00 A-APR-81 18:06:?5 PAGE 35-1 

^ES' ERROR MESSAGES SEO 019? 



8 .EVEN 



C7RMRB0 RM05/3/2 DU POft TST 1 
CONSTANTS. TABLES. ETC 



1 
2 
3 
4 



1ACW0 V04.00 



J 4 

4-APR-d1 18:06:25 PAGE 26 



SEO 0193 



11 



5 101556 
8 101560 
101562 
10156A 
101566 
101570 
101572 
10157A 
191576 
101600 
101602 
101604 
101606 
101610 
101612 
1016U 
101616 
101620 
101622 
101624 
101626 
101630 
101632 
101634 
101636 
101640 
101642 
101644 
101646 
101650 
101652 
101654 
101656 
101660 
101662 
101664 
101666 
101670 

15 
16 
17 

18 101672 

19 101673 

20 101674 

21 101675 

22 101676 

23 101677 

24 101700 

25 101701 
26 

29 101702 

30 

51 



14 



003374 
004746 
006314 
007662 
011012 
012142 
012614 
01 3266 
014532 
015776 
017116 
020236 
021636 
023236 
024162 
025106 
026154 
027222 
031276 
032022 
033216 
034412 
036106 
037602 
041276 
0i,2772 
044250 
045374 
046272 
0471 70 
050166 
051164 
053150 
055134 
056410 
057664 
060514 
061344 



001 
002 
004 
010 
020 
040 
100 
200 

000052 

000200 



.S8TTL CONSTANTS, TABLES, ETC 
; TABLE OF TEST STARTING ADDRESSES 



TSTADR: .WORD 


TST1 


STARTING ADDRESS 


OF 


TEST 


1 


.WORD 


TST2 


STARTING ADDRESS 


OF 


TEST 


2 


.WORD 


TSI3 


STARTING ADDRESS 


OF 


TEST 


7 


.WORD 


TST4 


STARTING ADDRESS 


OF 


TEST 


4 


.WORD 


TST5 


STARTING ADDRESS 


OF 


TEST 


5 


.WORD 


TS-6 


STARTING ADDRESS 


OF 


TEST 


6 


.WORD 


TST7 


STARTING ADDRESS 


OF 


TEST 


7 


.WORD 


TST10 


STARTING ADDRESS 


OF 


TEST 


10 


.WORD 


TST11 


STARTING ADDRESS 


OF 


TEST 


11 


.WORD 


TSn2 


STARTING ADDRESS 


OF 


TEST 


12 


.WORD 


TST13 


STARTING ADDRESS 


OF 


TEST 


13 


.WORD 


TST14 


STARTING ADDRESS 


OF 


TEST 


14 


.WORD 


TST15 


STARTING ADDRESS 


OF 


TEST 


15 


.WORD 


TST16 


STARTING ADDRESS 


OF 


TEST 


16 


.WORD 


TST17 


STARTING ADDRESS 


OF 


TEST 


17 


.WORD 


TST20 


STARTING ADDRESS 


OF 


TEST 


20 


.WORD 


TST21 


•STARTING ADDRESS 


OF 


TEST 


21 


.WORD 


TST22 


■STARTING ADDRESS 


OF 


TEST 


22 


.WORD 


TST23 


-STARTING ADDRESS 


OF 


TEST 


23 


.WORD 


TST24 


■STARTING ADDRESS 


OF 


TEST 


24 


.WORD 


TST25 


■STARTING ADDRESS 


OF 


TEST 


25 


.WORD 


TST26 


; STARTING ADDRESS 


OF 


TEST 


26 


.WORD 


TST27 


,- STAR TING ADDRESS 


OF 


TEST 


27 


.WORD 


TST30 


; STARTING ADDRESS 


OF 


TEST 


30 


.WORD 


TST31 


; STARTING ADDRESS 


OF 


TEST 


31 


.WORD 


TST32 


; STARTING ADDRESS 


OF 


TEST 


32 


.WORD 


TST33 


.STARTING ADDRESS 


OF 


TEST 


33 


.WORD 


TST34 


.STARTING ADDRESS 


OF 


TEST 


34 


.WORD 


TST35 


; STARTING ADDRESS 


OF 


TEST 


35 


.WORD 


TST36 


.STARTING ADDRESS 


Of 


TEST 


36 


.WORD 


TST37 


.-STARTING ADDRESS 


Of 


TEST 


37 


.WORD 


TST40 


.STARTING ADDRESS 


OF 


TEST 


40 


.WORD 


TST41 


.STARTING ADDRESS 


OF 


TEST 


41 


.WORD 


TS742 


.•STARTING ADDRESS 


OF 


TEST 


42 


.WORD 


TST43 


.STARTING ADDRESS 


OF 


TEST 


43 


.WORD 


TST44 


.STARTING ADDRESS 


OF 


TEST 


44 


.WORD 


TST45 
TST46 


.•STARTING ADDRESS 


OF 


TEST 


45 


.WORD 


.•STARTING ADDRESS 


OF 


TEST 


46 



.■ATTENTION BIT TABLE 



ATA8I T : 


.BYTE 


1 


.•ATTENTION BIT FOR DRIVE 


0 




.BYTE 


2 


.■ATTENTION BIT FOR DRIVE 


1 




.BYTE 


4 


.ATTENTION BIT FOR DRIVE 


2 




.BYTE 


10 


.•ATTENTION BIT FOR DRIVE 


3 




.BYTE 


20 


.•ATTENTION BIT FOR DRIVE 


4 




.BVTE 


40 


.ATTENTION BIT FOR DRIVE 


5 




.BYTE 


100 


.•ATTENTION BIT FOR DRIVE 


6 




.BYTE 


200 


.■ATTENTION BIT FOR DRIVE 


7 


MAXTN: 


.WORD 


52 


.-MAXIMUM TEST Nl/«ER 




.END 


200 









:ZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 <i-APR-81 
SYMBOL TABLE 



ADDRIS 


0726A0 


CR 


— 


00001 5 


DT42 


AORERR 


072421 


CRLF 




000200 


DT46 


AOE = 


001000 


DCK 




100000 


DT5 


ASR1 


001236 


DDISP 




177570 


DT54 


ATA = 


100000 

1 CI 672 


Dfl 




101516 


DT55 


ATA8IT 


DF31 




101 540 


DT56 


ATO = 


000001 


DF36 




101544 


DT57 


ATI = 


000002 


DF42 




101547 


DT6 


AT2 = 


000004 


DF5 




101523 


DT7 


AT3 


000010 


DF55 




101551 


DVA = 


AT-* = 


000020 


DF56 




101555 


DVC = 


ATS = 


000040 


DF7 




101531 


ECH = 


AT6 = 


000100 


DH1 




077341 


ECI = 


AT7 = 


000200 


DH11 




100003 


EMTVEC= 


A16 = 


000400 


DH13 




100054 


EMI 


A17 = 


001000 


DH22 




100174 


EM10 


BADNO 


072600 


DH23 




100272 


EM11 


BAOTMO 


002160 


DH26 




100372 


EMI 2 


BAI - 


000010 


DM3 




077412 


EMI 3 


BITO = 


C00001 


DH31 




100451 


EMI 4 


BITOO = 


000001 


DH36 




100550 


EMI 5 


BIT01 = 


000002 


DH4 




077461 


EM16 


BIT02 = 


000004 


DH42 




100577 


EMI 7 


BIT03 = 


000010 


DH44 




100616 


EM2 


BITCK = 


000020 


DH46 




100714 


EM20 


BIT05 = 


000040 


DHS 




077604 


EM21 


BIT06 = 


000100 


DHSS 




101011 


EM22 


BIT07 = 


000200 


DHS6 




101067 


EM23 


B1T08 = 


000400 


DHS7 




101076 


EM24 


BIT09 = 


001000 


DH7 




077660 


EM25 


BITl = 


000002 


DISPLA 


001142 


EM26 


BIT10 = 


002000 


DISPRE 


0001 74 


EM27 


BITll = 


004000 


DLT 




100000 


EM3 


3IT12 = 


010000 


DMD 




000001 


EM30 


BIT13 = 


020000 


DPE 




000010 


EM31 


BITK = 


040000 


DPR 




000400 


EM32 


BIT15 = 


100000 


DRO 




004000 


EM33 


BIT2 = 


000004 


DRY 




000200 


EM34 


BIT3 = 


000010 


DSU/R 




177570 


EM35 


BIT4 = 


000020 


DTE 




010000 


EM36 


BITS = 


000040 


DTOO 




000001 


EM37 


BIT6 = 


000100 


DT01 




000002 


EM4 


BIT7 = 


000200 


DT02 




000004 


EM40 


BITS = 


000400 


DT03 




000010 


EM41 


81 T9 - 


001000 


DT04 




000020 


EM42 


BPTVEC= 


000014 


DTOS 




000040 


EM43 


CHANGE 


003246 


DT06 




000100 


EM44 


CHGAOR 


001302 


DT07 




000200 


EM45 


CKCLK 


066130 


DTOS 




000400 


EM46 


CKCLKl 


066200 


on 




101230 


EM47 


CKCLK2 


066242 


DT13 




101332 


EMS 


C»CCLK3 


066252 


DT22 




101350 


EM50 


CKERR 


001250 


DT23 




101362 


EM51 


CKSUR = 


104407 


DT3 




101244 


EM52 


CLOCK 


066262 


DT31 




101376 


EM53 


fLR = 


000040 


DT36 




101410 


EM54 


CPSAVE 


067270 


DT37 




101420 


EM55 
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101430 


EM56 


076713 


OPE 


020000 


101436 


EM57 


076756 


OPI 


020000 


101260 


EM6 


073150 


OPPRT 


001244 


lOKSO 


EM60 


077017 


OR 


000200 


101462 


EM61 


077063 


PAR = 


000010 


101474 


EM62 


077115 


PAT 


000020 


101500 


FM63 


077163 


PFECH 


067472 


101276 


EM64 


077225 


PFECH1 


067502 


101312 


EM65 


077274 


PFECH2 


067564 


004000 


EM7 


073250 


PFECH3 


067616 


000200 


ENTERA 


072372 


PFECH4 


067626 


000100 


ERR = 


040000 


PFTSTN 


067632 


004000 


ERROR = 


104000 


OGE = 


002000 


000030 


ERRVEC= 


000004 


PGM = 


001000 


072724 


EXEC 


003074 


PIP = 


020000 


073331 


FER = 


000020 


PIRO = 


}777'^2 


073361 


FMT16 = 


010000 


PIROVE= 


000240 


073445 


FO 


000002 


PORTA 


001224 


073515 


Fl 


000004 


PORTA I 


072444 


073602 


F2 


000010 


PORTS 


001226 


073645 


F3 


000020 


POR TBI 


072473 


073724 


F4 


000040 


PORTC 


001230 


073777 


GO 


000001 


PRO = 


000000 


072745 


GTSUR = 


104406 


PR1 = 


000040 


074056 


HCE = 


000200 


PR2 = 


000100 


074136 


HCI = 


002000 


PR3 = 


000140 


07421 1 


HCRC = 


000400 


PR4 = 


000200 


074276 


HT - 


000011 


PR5 = 


000240 


074344 


lAE = 


002000 


PR6 = 


000300 


074423 


I8SAVE 


067272 


PR7 


000340 


074466 


IE = 


000100 


PS = 


1 77776 


074553 


ILF = 


000001 


PSEL = 


002000 


072767 


ILR = 


000002 


PSW = 


^77776 


074631 


IOTVEC= 


000020 


PTNBR 


001240 


074726 


IR 


000100 


PWRVEC= 


000024 


075003 


IVC = 


010000 


RDCHR = 


104410 


075054 


KYBCTL 


001300 


RDL IN = 


104411 


075156 


LBC = 


002000 


RDOCT = 


104412 


075261 


L8T = 


002000 


RDY = 


000200 


075340 


LF 


000012 


RELERR 


001254 


075412 


LSC = 


004000 


RELOK = 


OOOOGI 


073051 


MAXTN 


1017C2 


RESREG= 


104414 


075450 


MCPE = 


020000 


RESVEC= 


000010 


075535 


MDPE = 


000400 


RMAS = 


000016 


075577 


MOH = 


020000 


RHBA = 


000004 


075665 


MOL 


010000 


RMCS1 = 


000000 


075742 


MUR = 


001000 


RMCS2 = 


000010 


076017 


MXF 


001000 


RMDA = 


000006 


076071 


^BA = 


100000 


RMD8 = 


000022 


076140 


NED = 


010000 


RMDC = 


000034 


073102 


NEM = 


004000 


RMDS = 


000012 


076226 


NOATA = 


000001 


RMOT = 


000026 


076310 


NOCLOC 


072522 


RMEC1 = 


000044 


076377 


NOSE 1 2 


001252 


RMEC2 = 


000046 


076472 


NTRH 


072675 


RMER1 = 


000014 


076553 


OFD = 


000200 


RMER2 = 


000042 


076646 


OM = 


000001 


RMLA = 


000020 



CZRMftBO 
SYMBOL TABLE 

RMMR1 = 00002A 
R^f1R2 = OOOOAO 
RMOF = 000032 
RMR = 000004 
RMSN = 000030 
RMUC = 000002 
RQA = 100000 
ROB = OAOOOO 
RQSTA 001232 
RQSTB 001 23A 
R6 =X000006 
R7 =X000007 
SAVREG= 10A413 
SC = 100000 
SCOPE = 000004 
SCO = 000100 
SCI = 000200 
SC2 = 000400 
SC3 = 001000 
SC4 = 002000 
SEIZPT 001242 
SKI = 100000 
STACK = 001100 
START 002240 
START1 002246 
START2 002254 
STKLMT= 177774 
STOP 066720 
SUR 001140 
SUREG 000176 
SWO = 000001 
SWOO = 000001 
SW01 = 000002 
SW02 = 000004 
SW03 = 000010 
Sy04 = 000020 
SW05 = 000040 
SW06 = 000100 
SW07 = 000200 
SW08 = 000400 
SW09 = 001000 
SWl = 000002 
SUlO = 002000 

sun = 004000 

SW12 = 010000 

SWl 3 = 0^0000 

SWl 4 = 040000 

SWl 5 = 100000 

SW2 = 000004 

SU3 = 000010 

SW4 = 000020 

SW5 = 000040 

SW6 = 000100 

SW7 = 000200 

sue =^ 000400 

SW9 = 001000 
TAP = 040000 
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TBJTVE= 000014 

TESTNO 072560 

TEST1 003432 

TEST10 013324 

TE5T11 014570 

TEST12 016034 

TEST13 017154 

TEST14 020274 

TESTIS 021674 

TEST16 023274 

TEST17 024220 

TEST2 005004 

TEST20 025144 

TCST21 026312 

TEST22 027260 

TEST23 031334 

TEST24 032060 

TEST25 033254 

TEST26 034450 

TEST27 036144 

TEST3 006352 

TEST30 037640 

TEST31 041334 

TEST32 043030 

TEST33 044306 

TEST34 045432 

TEST35 046330 

TEST36 047226 

TEST37 050224 

TEST4 007720 

TEST40 051222 

TEST41 053206 

TEST42 055172 

TEST43 056446 

TEST44 057722 

TEST45 060552 

TEST46 061402 

TEST47 062266 

TEST5 011050 

TEST50 063152 

TEST51 064444 

TEST6 012200 

TEST7 0126S2 

TJME 001256 

TIME A 001262 

TIMEAH 001266 

TiMEAP 001264 

TIMES 001270 

TIMEBM 001274 

TIMEBP 001272 

TIMES 001276 

TKVEC = 000060 

TOLER 066324 

TPVEC = 000064 

TRAPVE= 000034 

TRE = 040000 

TRTVEC= 000014 
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TSTADR 101556 
TSTERR 072627 
TSfNUM 001246 
TST1 003374 
TST1AA 003356 
TST10 013266 
TST11 014532 
TST12 015776 
TST13 017116 
TST14 020236 
TST15 021636 
TST16 023236 
TST17 024162 
TST2 004746 
TST20 025106 
TST21 026154 
TST22 027222 
TST23 031276 
TST24 032022 
TST25 033216 
TST26 034412 
TST27 036106 
TST3 006314 
1ST30 037602 
TST31 041276 
TST32 042772 
TST33 044250 
TST34 045374 
TST35 046272 
TST36 047170 
TST37 050166 
TST4 007662 
TST40 051164 
TST41 053150 
TST42 055134 
TST43 056410 
TST44 057664 
TST45 060514 
TST46 061344 
TST47 062230 
TST5 011012 
TST50 063114 
TST50e 064164 
TST51 064406 
TST518 065456 
TST52 065700 
TST6 012142 
TST7 012614 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
TYPOS = 104403 
UNS = 040000 
UPE = 020000 
UO - 000001 
U1 = 000002 



L 4 
PAGE 26-2 



U3 = 000004 
VV = 000100 
VVSET = 000001 
WATCH 001260 
WCE = 040000 
WCF = 0000*»0 
WLE = 004000 
WRL = 004000 
$AUT06 001134 
SBDADR 001122 
SBDDAT 001126 
SBELL 001202 
SCHARC 070122 
SCKSWR 071110 
SCMTAG 001100 
$CM1 = 000001 
$CM2 = 000002 
$CM3 = 000001 
$CM4 ■- 000005 
$CNTLC 072006 
$CNTLG 072020 
SCNTLU 072013 
SCRLF 001207 
$D8LK 070570 
SDOAGN 066120 
$DT8L 070560 
SENDAD 066110 
SENDCT 065746 
fENULL 066124 
$E0P 065702 
$EOPCT 065740 
SERFLG 001103 
$ERMAX 001115 
SERROR 066746 
SERRPC 001116 
SERRT8 001310 
SERRTY 067274 
$ERTTL 001112 
$ESCAP 001200 
SFILLC 001156 
SFILLS 001155 
$6DA0R 001120 
S6DDAT 001124 
$6ET42 066100 
SGTSUR 071200 
$6T42P 066074 
SHD = 000000 
SHI OCT 072206 
SICNT 001104 
SINTAG 001135 
SITEMB 001114 
$LF 001210 
SLKCSB 001214 
SLKCSR 001212 
$LKS 001220 
SLLVEC 001222 
SLPADR 001106 



SEO 0195 

SLPERR 001110 
SLPVEC 001216 
SMNEW 072036 
SMSWR 072025 
SMXCNT 066716 
SNULL 001154 
INWTST= 000000 
SOCNT 070350 
SOMODE 070352 
SOVER 066702 
SPASS 001100 
SOUES 001206 
SRDCHR 071452 
$RDL IN 071542 
SRDOCT 072050 
SRDSZ = 000010 
SREGAO 001160 
$REGO 001162 
»RESRE 072246 
SRnADR 0C1304 
SRMVEC 001306 
SRTNAD 066122 
$SA\^RE 072210 
SSCOPE 066364 
$SETUP= 000127 
SSTUP = ^77777 
SSVLAD 066672 
SSVPC = 000210 
SSUR = 166000 

sswr^= 000000 

STIHES 001176 

$TKS 001146 

STKCNT 070600 

$TKINT 070610 

$TKQEN= 070607 

STKQIN 070602 

STKQOU 070604 

STKQSR 070606 

$TKS 001144 

STKSRV 070660 

STMPO 001164 

STMPl 001166 

$TMP2 001170 

$TMP3 001172 

$TMP4 001174 

$TN = 000053 

$TPB 001152 

STPFLG 001157 

$TPS 001150 

STRAP 072304 

$TRAP2 072326 

$TRP = 000015 

STRPAD 072340 

SlSim 001102 

STTYIN 071776 

STYPDS 070354 

STYPE 067634 



M 4 

C2RMRB0 RM05/3/2 DU POR TST 1 MACRO V04.00 A-APR-81 18:06:25 PAGE 26-3 
SYMBOL TABLE 



STYPEC 070004 
STYPEX 070124 



$TYP0C 070152 
JTYPON 070166 



STYPOS 070126 
tXOFF = 000023 



$XON = 000021 
$XTSTR 066406 



. ABS. 101704 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 61952 WORDS < 242 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 70 PAGES 
CZRMRB.BIN. CZRMRa/C=C2RMRa.DOC.C2RMRa.SYSMAC/M 



" f V- 



, \ ^ > V, 



>f , ' ' 



SEO 0196 



$$GcT4= 000000 
SOFJLL 070351 
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CROSS REFERENCE TABLE (CREF VOI-05 ) 
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SEQ 0197 





11 1 
11-1 


i 1 i M 






SOP ILL 


17 1 

1 7-1 


1 ^- l# 


1 ■> 1 ^ 
1 7-1 * 


17 1 ^ 

1 7-1 * 




IT 1 
1 3-1 








SAUTOB 


6-0* 




1 A 1 

19-1 


1 O 1 

1 V-1 


•BDAOR 






10-33* 


1 A 77* 

1 0-33* 




10-48* 


1 A / O A 

10-Ao* 


1 A / D*. 

10-48* 


1 A i CI * 

10-1 51 * 




10-151* 


10-1 51 ♦ 


1 A_1 C1 * 

10-151 * 


1 A_1 C1 * 

10-1 51 * 




1 A i Ci A 
10-151* 


1 A i TT A 

10-1 75* 


1 A 1 77* 

10-1 fJ* 


1 A 1 77* 

10-1 f5* 




10-1 73* 


1A 177* 

10-1 f5* 


1A 177* 
10-1^3* 


1 A_ 1 77 * 

10-1 f5* 




1 A 

10-cc3* 




1A 997* 

10-cc3* 


1 A_997* 

10-CC3* 




1 A 1/ 1 * 

10-ch1 * 


1A ^^O* 

lO-coo* 


1 A ^^O* 

1 0-CO8* 


1 A ^01 * 

10-c81 * 




10-3c7* 


1 0-350* 


1 A_7CA* 

10—350* 


1 A— 7CA* 

10-350* 




lO— ••Ur • 


1 n— / n7* 


1 A— /.A 7* 
1 0 *»U' * 


1 A— ZA7* 

lO— •»0' * 




1 A # QT* 


lA— /.A7* 


1 A—/ fi7* 
1 0-HO3* 


1 A— / 07* 




10-50O* 


1 A— CAiL* 


1 A— CAiC* 

1 0-50O* 


1 A— CAZ,* 

10— 30o* 




lU— 3*t/^* 


1 A_C/ 7* 


1 A_C/ 7* 

I0-5h/^* 


1 A— C&7* 
10^503* 




lU— WJ* 


1 A— A7C* 
lO— 5* 


1 A— A7C* 
lO— O' 3* 


1 A— A7C* 

10 0/^3* 




1 U— f Uj* 


1 U— /^30* 


1 A— 7CA* 


1 A— 7CA* 
1 U— f 30* 




■•rt— 770* 

lO— f f T* 


1 A— 770* 
lO^f f T* 


1 A— 77Q* 
1 0— f f T* 


1 A— fl77* 
10— 03' * 




lU— OJf ■ 


1 A— SCO* 
1 0— 05t* 


1 A— fiCO* 
lO— 05t* 


1 A— BCO* 
1 U— o3t* 




1 u— y Ih* 


1 A— 01/,* 
1 0— T IH* 


1 A— 01A* 
1 O^T 1 *» ■ 


1 A— 01 Z* 
1 U T 1 *»* 




1 n— 077* 

1 U^TJf ■ 


1 A— 077* 

lU— t3/^* 


1 A— 077* 

1 U— t3/^* 


1 A— 077* 
1 0 T3f ■ 




1 U— TOT* 


1 A— OflO* 
1 U TOT" 


1 A— OflO* 
1 0 TOT" 


1 A— OflO* 
1 U^TOT* 




IU^.Uj* 


1 A— * A7* 
iV", 03* 


1 A— " n7* 
1 U— , U3* 


1A— • 9A* 
lU— , cU* 




1 • so* 
lu— ;oT* 


1 A— • BO* 
1 U— , OT* 


1 n— • flo* 

1 U— , OT* 


1 A— • BO* 
lU— ;OT* 




1 u— <o*»* 


1 A— ^SZ.* 
1 U— vO«»" 


in— ^fiz.* 

1 V— ^OH* 


1 A— ^BZ* 




1 n— — no* 


1 A— —AO* 
1 U — Ut* 


in— —no* 

1 V— — Ut* 


1 A— —no* 

1 U— — Ut* 




1 u^— O 1 ■ 


lA— — fl1 * 
lU— — O 1 ■ 


1 n— — fli * 


in— — fli * 
1 u— — O 1 ■ 




1 n_— oo* 

lO— -TT* 


lA— -sCt* 
1 U— >53* 


1 n— sc7* 

1 U— ^33* 


in— n77* 
lO— ?f 3* 




I U— ■jU* 


in— aTn* 

IW— cIjU* 


1 O— a7n* 


in— a7i * 
1 u— ei3 1 " 




lO-iou* 


in— aAi * 
lu— do 1 ■ 


1 n— aAi * 
1 0— aoi ■ 


in— aiLi * 
lU— •ol* 




17 


9C— 70 
c3— 3t 






conn AT 


O 


1A— 77 
lU— 33 


1 n— 77 

1 U— 33 


in— 77 

1 0^33 




1 U— *»U" 


1 A— /.S 


in— /.R 


1 n— ZR 




1 V^jO 


1 A— 1 ^1 


in— 1 ^1 


in— 1 ^1 




10— 1^1* 
1 1 J 1 " 


1 A— 1 ^1 * 
1 vr^ 1 3 1 * 


in— 1 1^ * 

1 1 3 1 * 


in— 1^1 * 
1 u— 1 3 1 * 




in— 1 77 

1 U— 1 f J 


lA— 177* 
1 U 1 f 3* 


1 n— 1 77* 

1 O^ 1 f 3* 


1A— 1 77* 
lU— 1 f 3* 




1 n— 1 77* 

1 U— 1 f J* 


1 A— 1 77* 
1 U— 1 f 3* 


1 A— 1 77* 
1 0— 1 f 3* 


1 A— 1 77* 
10— 1 f 3* 




in— 997 

lU— ccj 


1 A— 997* 
lU— cc3* 


1 n— 997* 
1 0-Cc3* 


1 A— 997* 
10— cc3* 




1 Ir-cH 1 


1 A— 9/,1 
1 U— 1 


1 n— 9z 1 


1 A— 9Z1 
1 0— CH 1 






lA— 9AR* 


1 n-9AR* 
1 V cOO" 


in-9AR* 
1 U COO* 




in— 3fli* 

1 U— CO 1 * 


1A— 797 
lU— 3Cf 


in-797 
10— 3cf 


1 A— 797 
10— 3Cf 




in— 797* 
1 W— JC» " 


in— 797* 
lU— 3cf • 


in— 797* 
10— 3cf " 


lA- 797* 
lU— 3Cf * 




1 n— 7cn* 


in— 7cn* 

1 U— 39U* 


1 n— 7cn* 

1 0—330* 


in— 7^ A* 
lU— 330* 




1 n— /,n7 

lU HWf 


in_z.n7 


1 n— /.n7 

1 U— HOf 


1 A— ZA7 
10 hO^ 




in— A71 


1A— A71 
I U H3 1 


in-z,7i 


1A— Z71 
lO *»3 1 




in-/.7i * 


1 A— AR7 
lU— H03 


in_z,fl7 


1 A— Zfl7 
1 0— H03 




in— Z,87* 


lA- /.B7* 
lO— •»03* 


1 A— Z.B7* 
10— *»03* 


1 A-Zfl7* 
I0-H03* 




in- cry, 


10-506 




1 O-^OA 




10-506* 


10-506* 


10-506* 


10-506* 




10-531* 


10-531* 


10-531* 


10-531* 




10-547* 


10-547* 


10-547* 


10-547* 




10-583* 


10-583* 


10-583* 


10-583* 




10-603 


10-603* 


10-603* 


10-603* 




10-675 


10-675 


10-675 


10-675 




10-675* 


10-675* 


10-675* 


10-675* 



19-1 



A-77* 
0 33* 


1 A— zn* 

1 U hU" 


1 n_ZA* 

1 O-hU* 


1 A— ZA* 
1 U— hU* 


1 A— zn* 


A— 1 ^1 * 
U— 13 1* 


1 A-1 ^1 » 
1 U— 13 1" 


1 A-1 ^ 1 * 

1 U 13 1" 


1 A-1 K^ * 
1 U 13 1" 


1 A-1 SI * 
1 U 13 1* 


A-1 ^1 * 

U 13 1" 


1 A-1 ^1 * 


1 A-1 SI * 

1 K) 13 1" 


1 A— 1 SI * 
1 U— 13 1" 


1 A-1 SI * 
1 U— 1 3 1 * 


n-1 71* 

\J 1 f 3" 


1 n-1 7X» 

1 U— 1 f J" 


in-i 7i* 

1 U— 1 f J" 


lA-l 77* 
1 U— 1 f 3" 


10-1 77* 
1 U— 1 f 3" 


yj 1 f J" 


in-i 7t* 

1 U— 1 f J " 


1 n-1 71* 

1 U 1 ' J " 


10-177* 
1 U— 1 f J " 


1 0-1 77* 
1 U— 1 f j" 


n-997* 

U CC3" 


1 n-997* 
1 U Cc3" 


1 A-997* 

1 U cc3" 


1 0—9^ 1 * 

1 y— cH 1 " 


in-9zi * 

1 V— CH 1 ■ 


n-9Ri * 

U CO 1 " 


1 U 3Cf " 


10-797* 

1 \J JCf " 


10-797* 

1 U 3Cf " 


10-797* 
1 U 3Cf " 


n-i^n* 


10-^^0* 

1 U J J v" 


1 U 39U" 


in-iso* 

1 U J JU" 


10-XSO* 
1 U 33U" 


V/— HUf ' 


10-4^1 • 


1 V H J 1 " 


10-4 "51 * 

1 U H J 1 " 


IO-4'^I* 
1 U H J 1 " 


A-ZB7ft 
w HO J" 


1 WHO J" 


1A-Z07* 


1A-/fi7* 
1 WHO J" 


10-4 RX* 
1 W H03" 




10-SOA* 


10-506* 


10-S06* 

1 W JWO" 


1 n-^06* 


0-^R'^* 


10-^R'^* 

Iw JO J" 


1A-SR7* 

1 w JOJ" 


1 w JOj" 


10-SR^* 

1 w joj" 


V/ u' J" 


10-A7S* 

1 w O' J" 


1 w Of J" 


10-67S* 

1 w Of J" 


10-67S* 

1 w Of J" 


V r VO" 


10-756* 


10-7S6* 

1 V f JO" 


10-7^6* 

1 w f JO" 


1 0-7S6* 

1 W f JO" 


A-R77* 


in-fl77* 

1 V 0-? » " 


1 0-RX7* 

1 w O J f " 


1 V OJr " 


10-8^7* 

1 wo J f " 


0-859* 


10-859* 


10-859* 


10-859* 


10-859* 


0-914* 


10-914* 


10-914* 


10-914* 


10-914* 


A-077* 

w TJ 1 " 


1 0-9'^7* 


1 0-9^7* 


1 0-9^7* 

1 w TJf " 


1 0-9^7* 

1 w T J f " 


0-989* 


10- -53* 


1A..C7* 


1A-.C7* 


in..c7* 

1 W • J J" 


A- ■ 9A* 




1 A- . ?A* 
Iv # Cw" 


1 0- ■ 69* 

1 w # OT" 


1 0- • 69* 

1 W # OT" 


A- •go* 




1 A-<BZ* 
1 V VOH " 


10-<84* 

1 w ^OH " 


10-<84* 

1 W VOH " 


V— XOH 


10-<84* 


1 w VOH" 


10-s09* 

1 V^— WT" 


10-=09* 

1 V^— WT" 


0-=09* 

V^— WT" 


in-=ng* 

1 V^— VT " 


1 0-s09* 

Iw — wT" 


10-=09* 

1 w — WT" 


10-=09* 

1 V^— WT" 


A-=R1 * 


10-=99* 


10-=99* 

IV " " 


1 0.-99* 


10-=99* 

1 V^— TT" 






in-^zi* 


10-741* 


1A.9Z1* 

1 W ■ H 1 " 




1 V 1 " 


in.a3l* 


10-331* 

1 W mj 1 " 


1 o-a3i * 

1 W^W J 1 " 




1 V wo 1 " 


10-361* 


10-361* 

1 w WO 1 " 


10-361* 


0-33 


10-33* 

1 V J J" 


10-33* 

1 V J J 


10-40 

1 V "f V 


10-40 


W HO 


10-48 


10-48 


10-48 


10-48 

1 V "to 


0-151 


10-151* 

IV 1 V 1 


10-151* 

1 V^ 1 ^ 1 


10-151* 

i V 1^1" 


10-151* 

1 V^ 1^1" 


0-151* 


10-151 * 


IV 1 J 1 " 


10-151* 

1 V 1 1 " 


10-151* 


0-1 73* 


10-173* 

1 V^ 1 r J" 


10-173* 

IV 1 r J " 


10-173* 

IV \ f J" 


10-173* 

1 V^ 1 f J" 


0-173* 


10-1 73* 

IV 1 f J" 


1 0-1 73* 

IV 1 f J" 


1 V CC-J 


1 V CC<J 




1 v^cc J" 


in-??7* 

iw CCJ 


IV CCJ 


1 0-??3* 

1 V^CC J" 


A-9Z1* 


1 V 1 ^ 


10-?41* 

1 W^CH 1 " 


1 V^C"» 1 " 


1A-9Z1* 

1 W CH 1 " 


V COO" 


1 V COO" 


in. 968* 

1 w COO" 


1 V^CO 1 


10-P81 

1 W^CO 1 


0-1P7 


1 V JC r 


in-797 

1 w JC f 


10-3P7 

1 w JCf 


10-3P7* 

1 W f " 




1 V f " 


10-3P7* 

1 V ^C » " 


1 V^J JV 


10-350 




1 V^J^V 


10-350* 

IV JJv 


10-350* 

IV J^V 


10-^50* 

IV J-*V 


0-407 


10-407* 


10-407* 


10-407* 


10-407* 


0-431 


10-431 


10-431* 


10-431* 


10-431* 


0-483 


10-483 


10-483 


10-483 


10-483 


0-483* 


10-483* 


10-483* 


10-483* 


10-483* 


0-506 


10-506 


10-506 


10-506 


10-506 


0-506* 


10-^06* 


10-506* 


10-506* 


10-506* 


0-531* 


10-531* 


10-531* 


10-531* 


10-547 


0-547* 


10-547* 


10-547* 


10-583 


10-583 


0-583* 


10-583* 


10-583* 


10-583* 


10-583* 


0-603* 


10-603* 


10-603* 


10-603* 


10-603* 


0-675 


10-675 


10-675 


10-675* 


10-675* 


0-675* 


10-675* 


10-675* 


10-675* 


10-675* 



1 A— ZB* 
IO-hO* 


1 A— Zfi* 
1 O-HO* 


1 A—/ B* 

1 0-h8* 


1 A / p* 

1 0- <(8* 


1 A / Q* 

1 0-4o* 


1 A— 1 SI * 
1 0- 13 1* 


1 A— 1 S 1 * 
1 0- 1 3 1 ■ 


1 A_1 SI * 

10-1 51 * 


1 A 1 CI * 

10-151 • 


1 A 1 C 1 * 

10—1 5 I * 


1 A— 1 S1 * 
1 0 1 3 1 * 


1 A_1 SI « 
1 0- 13 1" 


1 A_1 SI* 

10—1 51 * 


1 A 1 CI* 

10—1 5 1 * 


1 A 1 C1 * 

1 0—1 J 1 • 


1 A— 1 77* 
1 U— 1 f 3* 


1 A— 1 77* 
10- 1 f J* 


1 A— 1 77* 

10—1 73* 


1 A_1 77* 
1 0— 173* 


1 A 1 7T * 
10-1 7 3* 


1 A— 1 77* 
10- 1 f J* 


1 A_1 77* 
10—1 f 3* 


1 A_1 77* 

10-1 73* 


1 A 1 77 * 

10-1 73* 


1 A "iOT^ 

10-CC3* 


1 A— 9Z1 * 
1 U CH 1 ■ 


1 A— !>/ 1 * 


1 A— 9/.1 * 
1 0-CH 1 * 


1 A 9/ 1 * 

10-CHl * 


1 A 9/ 1 * 

10— chI * 


1 A— 797* 
1 U— 3Cf * 


1 A— 797* 
lO— 3Cf • 


1 A— 797* 


1 A_797* 
10— 3c7* 


1 A_7 v7* 
10— 5<^'* 


in-7sn* 

1 W 33U" 


1 A-7Sn* 
1 0 33U* 


1 A— Z A7* 
1 O^HOr ■ 


1 A— ZA7* 
1 0 HOf * 


1 A—/ A7* 
lO— nOf * 


1 0— Z71 * 
1 W H3 1 ■ 


in— Z71* 
1 0^h3 1 ■ 


1 A— Z71 * 
lO— h3 1 ■ 


1 A— Z71 * 
lU— h3 1 * 


1 A— ZB7* 

10— Ho3* 


1 0-4A3* 

1 W HOJ" 


lO— 4R7* 
1 W^h03" 


10— SOA* 
1 W 3UO" 


1 A— SAA* 

10 3yo* 


1 A— SAA* 
lU— 3UO* 


1 W 3 J 1 " 


10-S11 * 
I W^33 1 " 


10—^11 * 


in— S71 * 

1 W^33 1 " 


1 A— SZ 7* 


in— 6n7* 

1 W^>W3" 


in— An7* 

1 W— OU3" 


in— A/)7* 

1 U— OU3* 


1 A— AA7* 
lO— OU3* 


1 A— AA7* 
1 O— OU3* 


in-67S* 

1 U Of 3" 


10-67S* 

1 W^Of J" 


in-67S* 
1 1/— Of 3" 


1 A— A7S* 
1 W— Of 3" 


1 A— 7AS • 
1 V/^f U3" 


1 0-779* 

1 W f f T" 


1 0-779* 

Iw f f T" 


in-770* 

lU^f f T" 


1 A— 770* 
1 W^ f ' T" 


1 A— 770* 
1 \J~f / T" 


1 0-A17* 

1 W 03f " 


10-R17* 
IW^03f " 


in— R77* 
1 W^03f " 


1 A— R77* 
1 w^03f " 


1 A— S77* 
lU— 03f " 


10-859* 


10-859* 


10-859* 


10-859* 


10-914* 


10-914* 


10-914* 


10-937* 


10-937* 


10-937*< 


1 0-9R9* 

1 W^TOT" 


1 0-9R9* 

1 W^TOT" 


10-9R9* 
1 w yoT" 


in— 9R9* 
1 W^TOT" 


in— 9RQ*- 


1 W^ • 33" 


10-'S7* 

1 J3" 


in--S7* 

1 • 33" 


10— • S7* 
1 W— . 33" 


in— •n7*i 

IV/^,U3"^ 


10-*69* 

1 W^, OT" 


10--69* 

1 W^» OT" 


1 A— • AO* 
1 w^, OT" 


1 O— • AO* 
IU^.Ot" 


1 n— • BO*< 

lU— ,OT"' 


10-^R4* 

1 W^^OH" 


in-^R4* 


10— ^fi4* 
1 V^VOH" 


lO-^'flZ* 


in— ^RZw 

1 W— vOh"* 


in--fl9* 

1 W^— WT" 


10--09* 

1 W^— WT" 


1 A-— no* 

1 v^— WT" 


in— -no* 


in— — no«< 

1 w— =UT" 


1 0--R1 * 

1 W^— O 1 " 


in--Ri* 

1 W^— O 1 " 


1 n--Ri * 

1 W^— O i " 


1 n--Ri * 


in— — Ri «< 


in--99* 

1 W^— TT" 


10--99* 

1 W^— TT" 


1 A--09* 
IV/^— TT" 


iVf^— TT" 


in--9Qj 

lW^=TTn 


10-963* 


10-963* 

1 W^i OJ" 




10—967* 
i W^ ;03" 




1 v^M3 1 " 


10— all* 

1 W^*3 1 " 


in— a6n* 


in— aAA* 


in— aAAd 
lu— ■ou^ 


PS-IP 
C J JC 


9S-H 
C3 33 


9S— 

C3 JH 


9S— 7S 

^3 33 


9C— 7A 
C3 jO 


in— 60 

iV/^«w 


10— zo 
1 W^hU 


in— zn 


in—zn 

1 W— hU 


in— zn* 


in— ZR* 

IV^HO" 


10— ZR* 
1 V/^»0" 


lO-^R* 
IV/^»0" 


in-zR* 

lU— hO" 


in— ss* 

IU^33" 


in— 1 SI * 

l\J~ 13 1" 


10— 1S1* 
1 W^ 13 1" 


in— 1S1* 

l\f^ 13 1" 


in— 1S1* 

1 W^ 1 J 1 " 


in— 1 SI « 


in— 1S1* 

1 13 1" 


lO-ISI* 
1 W^ 1 3 1 " 


1 n-1 77 

1 V— 1 fJ 


in— 177 

lU^ 1 f 3 


1 n-1 77 


1 n-1 71* 

1 W^ 1 f 3" 


1 0-1 77* 
1 yj^ i f 3" 


1 n-1 77* 

1 1 f 3" 


10-177* 
i w^ 1 f 3" 


in-i77i 

11/^ 1 f 3" 


10—997 

1 W CC3 


1 n-997 


in-997 
i W^cC3 


1 n-997 
1 w^cc3 


1 n-997 
iir^cc3 


10—997* 

1 U^CC3" 


10— 9Z1 

1 U^CH 1 


in- 941 

1 W^CH i 


in-9zi 

1 W^CH 1 


in— 9Z1 

1 W^CH 1 


10— 9Z1 * 
1 U^Ch I " 


in— 9Z1* 

1 W^cH I " 


in— 941 * 

i W^CH 1 " 


in— 9Z1 * 

1 W— CH 1 " 


in- PAR 


10— 9fl1 * 
i U— cO 1 " 


1 n— 9R1 * 

1 W^cO 1 * 


in— 9R1 * 


1 n-9Ri * 

1 W^CO 1 " 


in-pRi < 


10—797* 


10-797* 
lU— 3Cf * 


1 n— 797* 
lU— 3cf " 


10-X97* 


lU— JCf ' 


10— 7cn 

I0^33U 


in— 7cn 

1 O— 33w 


ifi— 7cn 

III— 33U 


in-7cn 

IW— 33U 


if\-7cn 

lU— 33U 


in— 7S0* 

1 V/^33U" 


in— 7sn* 

1 W^33U" 


in-7'tn* 

1 W^33U" 


in-7sn* 

1 w^33W" 


in— zn7 


1 0-407* 


1 0-407* 


10-407* 


10-407* 


10-407< 


10-431* 


10-431* 


10-431* 


10-431* 


1 0-431 « 


10-483 


10-483 


10-483 


10-483 


10-483* 


10-483* 


10-483* 


10-483* 


10-506 


10-506 


10-506 


10-506* 


10-506* 


10-506* 


10-506* 


10-531 


10-531 


10-531 


10-531 


10-5311 


10-547 


10-547 


10-547 


10-547* 


10-5474 


10-583 


10-583 


10-583 


10-583 


10-5834 


10-603 


10-603 


10-603 


10-603 


10-605 


10-603* 


10-603* 


10-675 


10-675 


10-675, 


10-675* 


10-675* 


10-675* 


10-675* 


10-6754 


10-675* 


10-675* 


10-705 


10-705 


10-7054 
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SEO 0198 



SBELL 

SCHARC 

tCKSUR 

SCM1 

$CM2 

$C«TAG 
tCNTLC 
SCNTLG 
tCNTLU 
SCRLF 

lOBLK 

SDOAGN 

$0T8L 

SENDAD 

SENDCT 

SENULL 

$EOP 

tEOPCT 

JERFLG 

$ER«AX 

SERROR 

SERRPC 

SERRTB 



1 0-705* 

10-756* 

10-779* 

10-837 

10-837* 

10-859 

10-859* 

10-9U* 

10-937 

10-937* 

10-989 

10-:53 

10-; 03 

10-; 20* 

l0-;69* 

10-; 89* 

10-<84 

10-<8A* 

:0-=09 

10-=09* 

10-=81 

10-=81* 

10-=99* 

10->53* 

10-741* 

10-330 

10-931* 

10- a61 
6-OM 

16-1 
19-1# 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0* 
19-1 
19-1 
19-1 

6-0* 
16-1 
18-1 

11- 1 
18-1 

5- 5 
9-24 

11-1/r 
11-1* 
9-24* 

6- 0* 
6-0* 
9-24 
6-0* 

25-38 
8-0* 



10-705* 

10-756* 

10-779* 

10-837 

10-837* 

10-859 

10-914 

10-914* 

10-937 

10-937* 

10-989 

10-:53 

10-; 03 

10-; 20* 

10-; 69* 

10-; 89* 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=81* 

10-=99* 

10->53* 

10-741* 

10-830 

10-831* 

10- 361 
14-1 
16-1* 
22-1 

6-0 

6-0 

6-0 

6-0 

6-0* 

9-24 
19-1 
19-1* 
19-1 

9-50 
19-1 
18-1 

11- 1 
18-1* 

9-29 
11-1* 



11-1 

13- 1 
9-24* 

14- 1* 

14- 1 
25-39 

15- 1 



10-705* 

10-756* 

10-779* 

10-837 

10-837* 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989 

10-:53 

10-; 03 

10-; 20* 

10-; 69* 

10-<84 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=81* 

10-=99* 

10->73 

10-741* 

10-330 

10-331* 

10- 361* 
14-1 
16-1* 
22-1 

6-0* 
6-0* 
6-0* 
6-0 

9-24 
19-1 

19-1* 
9-69 
19-1 
18-1* 

11- 1* 

11-1* 



11-1* 

13- 1 
9-77* 

14- 1 
25-40 



10-705* 

10-756* 

10-779* 

10-837 

10-837* 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989 

10-:53 

10-; 03* 

10-; 20* 

10-; 69* 

10-<84 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=81* 

10-=99* 

10->73 

10-741* 

10-330* 

10-360 

10-361* 

14-1 

16-1* 

6-0* 
6-0* 

6-0 

9-24 
19-1 



9-105 
19-1 



14-1 



13-1 

13- 1 

14- 1 
25-41 



10-705* 

10-756* 

10-779* 

10-837 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989 

10-: 53 

10-; 03* 

10-; 20* 

10-; 89 

10-<84 

10-<84* 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=81* 

10-=99* 

10->73* 

10-763 

10-330* 

10-360 

10-361* 

19-1 

16-1* 



6-0 

9-24 
19-1* 



11-1 
19-1 



13-1 

13- 1 

14- 1* 
25-42 



10-756 

10-756* 

10-779* 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989* 

10-: 53 

10-; 03* 

10-; 20* 

10-; 89 

10-<84 

10-<84* 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=99 

10-=99* 

10->73* 

10-763 

10-330* 

10-360 

10-361* 

19-1 



6-0 
9-24 



14-1 
20-1 



13-1* 



14-1* 
25-43 



10-756 

10-779 

10-779* 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989* 

10-:53 

10-; 03* 

10-; 69 

10-; 89 

10-<84 

10-<84* 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=99 

10-=99* 

10->73* 

10-763 

10-330* 

10-360* 

25-32 

19-1 



6-0 
9-24 



14-1 
20-1 



14-1 



15-1 
25-44 



10-756 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989* 

10-: 53* 

10-; 03* 

10-; 69 

10-; 89 

10-<84 

10-<84* 

10-<84* 

10-=09 

10-=09* 

10-=81 

10-=99 

10-=99* 

10->73* 

10-763* 

10-330* 

10-360* 

25-33 



6-0 

9-24 

14-1 



14-1 



15-1 
25-45 



10-756 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-937* 

10-989* 

10-: 53* 

10-; 03* 

10-; 69 

10-; 89 

10-<84 

10-<84* 

10-=09 

10-=09 

10-=09* 

10-=81 

10-=99 

10-=99* 

10-741 

10-763* 

10-330* 

10-360* 

25-34 



6-0 



15-1 



14-1* 



25-32 
25-46 



10-756 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937 

10-989 

10-989* 

10-: 53* 

10-; 03* 

10-; 69 

10-; 89 

10-<84 

10-<84* 

10-=09 

10-=09 

10-=09* 

10-=81* 

10-=99 

10-=99* 

10-741 

10-763* 

10-331 

10-360* 

25-35 



6-0 



15-1 



10-756 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937* 

10-989 

10-989* 

10-: 53* 

10-; 20 

10-; 69 

10-; 89* 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=09* 

10-=81* 

10-=99 

10->53 

10-741 

10-763* 

10-331 

10-360* 

25-36 



6-0* 



15-1 



10-756 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-914* 

10-937* 

10-989 

10-989* 

10-:53* 

10-; 20 

10-; 69 

10-; 89* 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=09* 

10-=81* 

10-=99 

10->53 

10-741* 

10-763* 

10-331 

10-360* 

25-37 



6-0* 



15-1 



10-756* 

10-779 

10-837 

10-837* 

10-859 

10-859* 

10-914 

10-937 

10-937* 

10-989 

10-989* 

10-:53* 

10-; 20 

10-; 69* 

10-; 89* 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=09* 

10-=81* 

10-=99 

10->53* 

10-741* 

10-763* 

10-331 

10-361 

25-39 



6-0* 



16-1 



10-756* 

10-779* 

10-837 

10-837* 

10-859 

10-859* 

10-914* 

10-937 

10-937* 

10-989 

10-:53 

10-:53* 

10-; 20* 

10-; 69* 

10-; 89* 

10-<84 

10-<84* 

10-=09 

10-=09* 

10-=09* 

10-=81* 

10-=99 

10->53 

10-741 

10-763 

10-331 

10-361 



6-0* 



16-1 



25-33 
25-48 



25-34 25-35 25-56 25-3? 



C 5 

tERRTY K-1 15-1# SfO 0199 



0 5 

CZRMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 4-APR-ei 18:06:25 PAGE S-? 
CROSS REFERENCE T^LE (CREF VOI-05 ) 



SEO 020C 



(FBTTI 


CI w* 


11-1 


11-1 

1 1 1 


11-1* 

II ! 


14-1 


14-1 


14-1* 
















cccr Ap 






























II 1 r 




1^-1 

1 U 1 


16-1 


16-1 

1 U I 






















tF II 1 




16-1 


16-1 

1 \J 1 


























































10-33 


10-33 


10-3^* 

1 V ■J 


10-33* 


10-33* 


10-33* 


10-40 


10-40 


10-40* 


10-40* 


10-48 


10-48 


10-48 




10-48 


1 0-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-48* 


10-48'^ 


10-48* 


10-53* 


10-56 


10-151 


10-151 


10-151 




10-151 


10-151 


10-151* 

IV 1^1 


10-151* 


10-151* 


10-173 


10-173 


10-173 


10-173 


10-173 


10-173* 


10-173* 


10-173* 


10-223 




1 \/ c c ^ 


10-223 


10-223 

IV c c ^ 


10-223 

IV b b ^ 


10-223* 


10-223* 


10-223* 


10-223* 


10-223* 


10-223* 


10-223* 


10-241 


10-241 


10-241 




10-?41 


lO-P'^l 


10-241* 

IV C ~ 1 


10-241 * 


10-241* 


10-241* 


10-241* 


10-241* 


10-241* 


10-268 


10-268 


10-268* 


10-281 


10-281 




10-281* 


10-327 


10-327 


10-327 


10-327 


10-327 


10-327 


10-327 


10-327* 


10-327* 


10-327* 


10-327* 


10-327* 


10-350 




1 0-350 


10-350 


10-350 


10-350 


10-350 


10-350 


10-350* 


10-350* 


10-350* 


10-350* 


10-350* 


10-407 


10-407 


10-407 




1 0-A07 


10-407 


10-407* 


10-407* 


10-407* 


10-407* 


10-407* 


10-431 


10-431 


1 0-431 


10-431 


10-431 


10-431* 


10-431* 




10-A31 * 


10-431 * 


10-431* 


10-483 


10-483 


10-483 


10-483 


10-483 


10-483 


10-483 


10-483 


10-483 


10-483* 


10-483* 




10-A83* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-506 


10-506 


10-506 


10-506 


10-506 




10-506 


10-506 


10-506 


10-506 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 




10-506* 


10-531 


10-531 


10-531 


10-531 


10-531 


10-531* 


10-531* 


10-531* 


10-547 


10-547 


10-547 


10-547 


10-547 




10-547* 
10-603 


10-547* 


10-547* 


10-583 


10-583 


10-583 


10-583 


10-583 


10-583 


10-583* 


10-583* 


10-583* 


10-583* 


10-583* 




10-603 


10-603 


10-603 


10-603 


10-603 


10-603* 


10-603* 


10-603* 


10-603* 


10-603* 


10-675 


10-675 


10-675 




10-675 


10-675 


10-675 


10-675 


10-675 


10-675* 


10-675* 


10-675* 


10-675* 


10-675* 


10-675* 


10-675* 


10-675* 


10-705 




10-705 


10-705* 


10-756 


10-756 


10-756 


10-756 


10-756 


10-756* 


10-756* 


10-756* 


10-756* 


10-756* 


10-756* 


10-779 




10-779 


10-779 


10-779 


10-779 


10-779* 


10-779* 


10-779* 


10-779* 


10-779* 


10-779* 


10-837 


10-837 


10-837 


10-837 




10-837 


10-837 


10-837 


10-837 


10-837 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 




10-837* 


10-837* 


10-859 


10-859 


10-859 


10-859 


10-859 


10-859 


10-859 


10-859 


10-859 


10-859* 


10-859* 


10-859* 




10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-914 


10-914 


10-914 


10-914 


10-914 


10-914 




10-9U 


10-914 


10-914 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914*' 




10-937 


10-937 


10-937 


10-937 


10-937 


10-937 


10-937 


10-937 


10-937 


10-937* 


10-937* 


10-937* 


10-937* 


'10-937*- 




10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-989 


10-989 


10-989 


10-989 


10-989 


10-989 


10-989* 


10-989* 




10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-:53 


10-:53 


10-:53 


10-:53 


10-: 53* 


10-:53* 


10-:53* 




10-:53" 


10-:53* 


10-: 53* 


10-: 53* 


10-; 03 


10-; 03 


10-;03 


10-; 03* 


10-; 03* 


10-; 20 


10-;20 


10-; 20 


10-; 20* 


10-; 20*! 




10--69 


10-; 69 


10-; 69 


10-; 69 


10-; 69* 


10-; 69* 


10-;69* 


10-; 69* 


10-; 69* 


10-; 89 


10-; 89 


10-;89 


10-; 89 


10-;89** 




10-; 89* 


10-; 89* 


10-; 89* 


10-; 89* 


10-<84 


10-<84 


10-<84 


10-<84 


10-<84 


^0-<84 


10-<84 


10-<84 


10-<84 


10-<84 




10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-C84* 




10-=09 


10-=09 


10-=09 


10-=09 


10-=09 


10--09 


10-S09 


10-S09 


10-=09 


10-=09 


.0-=09* 


10-=09* 


10-=09* 


10-=09*< 




10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-S09* 


10-=09* 


10-=09* 


10-=09* 


10-=81 


10-=81 


10-=81 


10-=81 




10-=81 


10-=81 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=99 


10-=99 


10-=99 


10-=99 




10-=99 


10-=99 


10-=99* 


10-=99* 


10-=99* 


10-=99* 


10-=99* 


10-=99* 


10-=99* 


10-=99* 


10->53 


10->53 


10->53* 


10->73 




10->73 


10->73* 


10-741 


10-741 


10-741 


10-741 • 


10-741* 


10-763 


10-763 


10-''63 


10-763* 


10-763* 


10-830 


10-830 




10-a30 


10-S30* 


10-a30* 


10-a31 


10-831 


10-831* 


10-931* 


10-860 


10-860 


10-860 


10-860* 


10-860* 


10-861 


10-861 




10-a61* 


IO-a61* 


25-33 


25-34 


25-36 




















$GET42 


n-i# 




























$GTA2P 


11-1 


ll-U 


























SGTSUR 


19-1# 


22-1 


22-1 
























SHO 


A-598 


4-598 


4-598 
























SHiocr 


20-1 # 


20-1* 


























SICNT 


6-04r 


9-93* 


13-1 


13-1 


13-1 


13-1* 


13-1* 
















SINTAG 


d-OM 


19-1 


19-1 


19-1 


19-1 


19-1* 




15-1 














SITEnB 


6-Ot 


14-1 


14-1 


14-1 


14-1 


14-1* 


14-1* 




20-1 










SLF 


6-0# 


14-1 


14-1 


16-1 


16-1 


19-1 


19-1 


19-1 


20-1 










SLKCSe 


7-OM 


12-12* 


























SLKCSR 


7-0* 


12-8 


12-13* 
























SLKS 


7-OM 


12-17 


12-21* 
























fLLVEC 


7-OM 


12-18 
















10-279* 


10-302* 


10-348* 


10-372* 


10-429* 


SLPADR 


6-OM 


9-24* 


9-78* 


10-20* 


10-82* 


10-171* 


10-189* 


10-239* 


10-256* 


10-452* 


10-504* 


10-520* 


10-545* 


10-565* 


10-601* 


10-620* 


10-689* 


10-726* 


10-777* 


10-803* 


10-857* 


10-880* 


10-9351 




10-953* 


10-: 08* 


10-: 68* 


10-; 18* 


10-; 39* 


10-; 87* 


10-<41* 


10-=07* 


10-=29* 


10-=97* 


10->I7* 


10->71* 


10->96* 


10-7611 



10-790* 10-aS8« 13-1 



n-1 



15-1 



15-1* 



E 5 



SEO 0?01 



F 5 

CZRMRBO RM05/3/2 DU POR TST 1 MACRO V04.00 4-APR-8) 18:06:2'5 PAGE S-4 
rROSS REFERENCE TABlE (CREF VOl-05 ) 



SEO 0202' 



ILPERR 



SLPVEC 

SMAIL 

SMNEW 

snswR 
snxcNT 

(NULL 
SNyTST 



tOCNT 

SCJMOOE 

SOVER 

$PASS 

$OUES 

tR2A 

tROCMR 

SROOEC 

tRDLiN 

SRDOCT 

SRDSZ 

SREGO 

SREGAO 

SRESRE 

SRHADR 

SRMVEC 

SRTNAO 

$SAVRE 

$SCOPE 

fSETUP 



$STUP 

SSVLAO 

$SVPC 

tSWR 



SSWRMK 



6- 0# 
10-452* 
10-953* 
10->96« 

7- 0# 
9-24 

19-1 
19-1 
13-1 
6-0# 
10-20 
10-189# 
10-302 
10-429* 
10-545 
10-620* 
10-803 
10-935* 
10-; 18 
10-<41* 
10->17 

10- 761* 
17-1* 
17-1 
13-1 

6-0* 

6-0* 
22-1 
19-1* 
22-1 

19- 1* 

20- 1* 
19-1 

6-0* 

6- 0* 

21- 1* 

7- 0* 
7-0* 

11- 1* 
21-1* 

9- 24 
4-783 
9-24 

13-1 
4-783 

4- 783* 
13-1 

5- 5 

4-594* 
9-24 

10- 429 
10-935 
10-761 

13- 1 

14- 1 
13-1 



9-24 • 
10-504* 
10-:08* 
10-761 • 

12- 9 
9-29 

19-1* 
19-1* 

13- 1 

16- 1 
10-20 
10-189* 
10-302 
10-429* 
10-545 
10-620* 
10-803 
10-935* 
10-; 18 
10-<41* 
10->17 
10-761* 

17- 1* 
17-1* 

13- 1 
9-76* 

14- 1 

22-1 

22-1 
22-1 
19-1* 



22-1 
9-70 



22-1 

13- 1* 
4-783 
9-24 

14- 1 

4- 783 

13-1* 

5- 5* 

4-598 
9-24 
10-452 
10-953 
10-790 

13- 1 

14- 1 



9- 79* 
10-520* 

10- :68» 
10-790* 

13-1 



13-1 

16- 1 
10-20* 
10-239 
10-302* 
10-452 
10-545* 
10-689 
10-803* 
10-953 
10-; 18* 
10-=07 
10->17* 

10- 790 

17- 1* 
17-1* 

13- 1 

11- 1 

14- 1 • 

22-1 

22-1 
22-1 



9-103 



22-1 

4-783 
9-24 
14-1 
4-783 



4-599 
9-24 
10-504 
10-: 08 
10-358 

13- 1 

14- 1 



10-20* 
10-545* 
10-; 03* 
10-358* 

14-1 



13-1* 

16- 1 
10-20* 
10-239 
10-302* 
10-452 
10-545* 
10-689 
10-803* 
10-953 
10-; 18* 
10-=07 
10->17* 

10- 790 

17- 1* 
13-1* 

11- 1 
16-1 



4-783 
9-24 
14-1 
4-783 



4-599 
9-24 
10-520 
10-; 68 
10-365 

13- 1 

14- 1 



10-82* 
10-565* 
10-; 18* 



16-1 



10-82 

10-239* 

10-348 

10-452* 

10-565 

10-689* 

10-857 

10-953* 

10-; 39 

10--07* 

10->71 

10- 790* 

17-1* 

11- 1 
16-1 



10-171* 10-189* 
10-601* 10-620* 
10-; 20* 10-; 39* 



10-239* 
10-689* 
10-; 87* 



10-256* 
10-726* 
10-<41* 



10-279* 
10-777* 
10-=07* 



10-302* 
10-803* 
i0-=29* 



10-348* 
10-857* 
10-=97* 



10-372* 10-429* 
1 0-880* 10-935* 
10->17* 10->71* 



10-82 

10-239* 

10-348 

10-452* 

10-565 

10-689* 

10-857 

10-953* 

10-; 39 

10-=07* 

10->71 

10- 790* 

17-1* 

11- 1* 
19-1 



4-783 
9-24 
14-1 
4-783 



4-599 
10-20 
10-545 

10- ; 18 

11- 1 

13- 1 

14- ' 



4-783* 
9-24 
19-1 
4-783* 



4-599 
10-82 
10-565 

10- ; 39 

11- 1 

13- 1 

14- 1 



10-82* 

10-256 

10-348* 

10-504 

10-565* 

10-726 

10-857* 

10-:08 

10-; 39* 

10-=29 

10->71* 

10-358 



11-1* 
19-1 



9-110* 9-113 10-17 25-47 



4-783* 
9-24 
19-1 
4-783* 



4-599 
10-171 
10-601 

10- ; 87 

11- 1 

13- 1 

14- 1 



10-82* 

10-256 

10-348* 

10-504 

10-565* 

10-726 

10-857* 

10-; 08 

10-; 39* 

10-=29 

10->71* 

10-358 



13-1 
19-1 



4-783* 
9-24 
19-1 
4-783* 



4-599 
10-189 
10-620 

10- <41 

11- 1 

13- 1 

14- 1 



10-171 

10-256* 

10-372 

10-504* 

10-601 

10-726* 

10-880 

10-: 08* 

10-; 87 

10-=29* 

10->96 

10-358* 



13-1 
19-1 



4-783* 
9-24 
19-1 
4-783* 



4-599 
10-239 
10-689 

10- =07 

11- 1 

13- 1 

14- 1 



10-171 

10-256* 

10-372 

10-504* 

10-601 

10-726* 

10-880 

10-:08* 

10-; 87 

10-=29* 

10->96 

10-358* 



13-1 
20-1 



4-783* 
9-29 
19-1 
4-783* 



4-599 
10-256 
10-726 
10-=29 

12- 53* 

13- 1 

14- 1 



10-171* 

10-279 

10-372* 

10-520 

10-601* 

10-777 

10-880* 

10-:68 

10-; 87* 

10-=97 

10->96* 

10-365* 



20-1 



4-783* 
9-29 



10-171* 

10-279 

10-372* 

10-520 

10-601* 

10-777 

10-880* 

10-:68 

10-;87* 

10-=97 

10->96* 



20-1 



9-24 
5-29 



10-189 

10-279* 

10-429 

10-520* 

10-620 

10-777* 

10-935 

10-:68* 

10-<41 

10-=97* 

10-761 



9-24 
11-1 



10-189 

10-279* 

10-4.29 

10-520* 

10-620 

10-777* 

10-935 

10-:68<^ 

10-<41 

10-=97* 

10-761 



9-24 
11-1 



4-783* 4-783* 4-783* 4-783* 



6-0 
10-279 
10-777 
10-=97 
13-1 
13-1 



6-0 
10-302 
10-803 
10->17 
13-1 
13-1 



6-0 
10-348 
10-857 
10->71 
13-1 
13-1 



9-24 
10-372 
10-880 
10->96 

13- 1 

14- 1 



G 5 

STESTN 15-1 

SfO 0205 



CZRMRBO RM05/5/2 DU POR TS 
CF<OSS REFERENCE TABLE (CREi 



1 MACRO V0*..00 
VOI-05 ) 



H 5 

4-APR-8I 18:06:?5 PAGE S-b 



SEO 020^ 



niMES 


6-0# 


9-24* 


10-20* 


10-82* 


10-171* 


1 0-504 • 


10-520* 


10-545* 


10-565* 


10-601* 




10-:08* 


10-: 68* 


10-; 18* 


10-; 39* 


10-;87* 




10-858* 


11-1* 


13-1 


13-1 


13-1 


$TKB 


6-0# 


16-1 


16-1 


19-1 


19-1 


STKCNT 


19-1 


19-1 


19-1* 


19-1* 


19-1* 


STKINT 


9-51 


9-74 


19-1 


19-1 


19-1* 


tTKQEN 


19-1 


19-1 


19-1* 






tTKQlN 


19-1 


19-1 


19-1# 


19-1* 


19-1* 


STKOOU 


19-1 


19-1 


19-U 


19-1* 


19-1* 


STKOSR 


19-1 


19-1 


19-1 


19-U 




$TKS 


6-0# 


16-1 


16-1 


19-1 


19-1 


STKSRV 


19-1 


19-1* 






10-33* 


STMPO 


6-0# 


10-33 


10-33 


10-33* 




10-48* 


10-48* 


10-48* 


10-48* 


10-48* 




10-173 


10-173 


10-173 


10-173* 


10-173* 




10-223* 


10-223* 


10-223* 


10-223* 


10-223* 




10-241* 


10-241* 


10-241* 


10-241* 


10-241* 




10-281 


10-281* 


10-281* 


10-327 


10-327 




10-350 


10-350 


10-350 


10-350 


10-350 




10-407 


10-407* 


10-407* 


10-407* 


10-407* 




10-483 


10-483 


10-483 


10-483 


10-483 




10-483* 


10-483* 


10-483* 


10-483* 


10-483* 




10-506* 


10-506* 


10-506* 
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25-44 


25-48 














10-33 


10-33 


10-33* 


10-33* 


10-33* 


10-33* 


10-48 


10-48 


10-48 


10-48 


10-48* 


10-48* 


10-A8* 


10-48* 


10-48* 


10-48* 


10-48* 


10-223 


10-223 


10-223 


10-223* 


10-223* 


10-223* 


10-223* 


10-223* 


10-241 


10-241 


10-241 


10-241* 


10-241* 


10-241* 


10-241* 


10-241* 


10-241* 


10-407 


10-407* 


10-407* 
10-483* 


10-431 


10-431* 


10-483 


10-483 


10-483 


10-483 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-483* 


10-506 


10-506 


10-506 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-506* 


10-583 


10-583* 


10-603 


10-603* 


10-603* 


10-675 


10-675 


10-675* 


10-675* 


10-675* 


10-675* 


10-756 


10-756 


10-756* 


10-756* 


10-756* 


10-779 


10-779 


10-779* 


10-779* 


10-779* 


10-779* 


10-837 


10-837 


10-837 


10-837 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-837* 


10-859 


10-859 


10-859 


10-859 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-859* 


10-914 


10-914 


10-914 


10-914 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-914* 


10-937 


10-937 


10-937 


10-937 


10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-937* 


10-989 


10-989 


10-989 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-989* 


10-:53 


10-:53 


10-:53* 


10-: 53* 


10-: 53* 


10-; 69 


10-; 69 


10-; 69* 


10-; 69* 


10-; 69* 


10-; 69* 


10-; 89 


10-; 89 


10-; 89* 


10-; 89* 


10-; 89* 


10-<84 


10-<84 


10-<84 


10-<84 


10-<84 


10-<84 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84» 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-<84* 


10-=09 


10-=09 


10-=09 


10-=09 


10-=09 


10-=09 


10-=09» 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=81 


10-=81 


10-=81 


10-=81* 



10-779 

10-859* 

10-937* 

10-;03 

10-; 69* 

10-=09 

10-=99* 

10-763 

10-223 

10-281 

10-407 

10-483* 

10-547* 

10-675 

10-756 

10-859 

10-937* 

10-; 03* 

10-; 89 

10-=09 

10-=99 

10->73* 

10-330* 

10-223 

10-281 

10-407 

10-483* 

10-547*1 

10-6'5 

10-756 

10-859 

10-937*1 

10-;03*» 

10-;89 

10-=09 

10-=99 

10->73^ 

10-330** 

10-48* 

10-223«t 

10-431 •» 

10-506 

10-583*» 

10-7561 

10-8371 

10-8591 

10-9141 

10-989 

10-:53^ 

10-; 891 

10-<841 

10-=091 

iO-=811 



K 5 

10-=81« 10-=81* 10-=81* 10-=81« 10-=99 10—99 10-=99 l0-=9<3* 10—99* 10-=99* 10-=99* 10-=99* 10-=99« 
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STN 



»TPB 

ITPFLG 

STPS 

STRAP 

STRAP2 

tTRP 



STRPAD 
$TSTI#« 



STTYIN 
STYPBN 
STYPDS 
STVPE 

STYPEC 

STYPEX 

STYPOC 

STYPON 

STYPOS 

tXOFF 

SXON 

SXTSTR 

A16 

A17 

ADDRIS 

ADRERR 

AOE 

ASR1 

ATO 

ATI 

AT2 

AT3 

ATA 

ATS 

AT6 

AT7 

ATA 



4-595# 
10-189 
10-279 
10-A29 
10-520 
10-620 
10-777 
10-935 
10-:68 
10-<A1 
10-=97 
10-761 
10-358* 

6-0* 

6-0* 

6-0* 

9-2A 
22-1 
22-1 
22-1 
22-1 
22-1 
22-1* 
22-1 

6- 0* 
10-520* 

10- :68» 

11- 1» 
19-1 
22-1 
18-1* 
16-1* 
16-1 

16- 1 

17- 1* 
17-1 
17-1* 
16-1 
16-1 
13-1* 

A-609* 
A-610* 
9-102 

9- 38 
4-679* 

7- 0* 
A-696* 
A-697* 
A-698* 
A-699* 
A-700* 
A-701* 
A-702* 
A-703* 
4-666* 

10- 223 



4-598 
10-189 
10-279* 
10-429 
10-520* 
10-620 
10-777* 
10-935 
10-:68* 
10-<41 
10-=97* 
10-761 
10-960 
16-1 
16-1 
16-1 
22-1* 
22-1* 
22-1 
22-1 
22-1 
22-1 
22-1* 
22-1* 
10-20* 
10-545* 
10-; 18* 
13-1 
19-1 

22-1 
22-1 
16-1 

16- 1 
22-1 

17- 1* 
22-1 
16-1 
16-1 



23-11* 
23-4* 



10-20 

10-189 

10-302 

10-429 

10-545 

10-620 

10-803 

10-935 

10-; 18 

10-<41 

10->17 

10-761 

10-861 

16-1 

16-1 

16-1 



22-1 
22-1 
22-1 
22-1 
22-1* 

10-82* 
10-565* 
10-; 39* 
13-1 
19-1 

22-1 

22-1 

16-1 

16-1* 

22-1 

22-1 



19-1 



10-20 

10-189* 

10-302 

10-429* 

10-545 

10-620* 

10-803 

10-935* 

10-; 18 

10-<41* 

10->17 

10-761* 

10-861 

16-1* 

16-1 

16-1 



22-1 
22-1 
22-1 
22-1 
22-1* 

10-171* 
10-601* 
10-; 87* 
13-1 
19-1 



16-1* 



10-20 

10-239 

10-302 

10-452 

10-545 

10-689 

10-803 

10-953 

10-; 18 

l0-=07 

10->17 

10-790 

10-865 



22-1 
22-1 
22-1 
22-1 
22-1* 

10-189* 

10-620* 

10-<41* 

13-1 

19-1 



19-1 



10-20* 

10-239 

10-302* 

10-452 

10-545* 

10-689 

10-803* 

10-953 

10-; 18* 

10-=07 

10->17* 

10-790 

10-865 



22-1 
22-1 
22-1 
22-1 



10-239* 

10-689* 

10-=07* 

13-1* 

19-1* 



10-82 

10-239 

10-348 

10-452 

10-565 

10-689 

10-857 

10-953 

10-; 39 

10-=07 

10->71 

10-790 

10-865* 



22-1 
22-1 
22-1 
22-1* 



10-256* 
10-726* 
10-=29* 
14-1 



10-82 

10-239* 

10-348 

10-452* 

10-565 

10-689* 

10-857 

10-953* 

10-; 39 

10-=07* 

10->71 

10-790* 

26-27 



22-1 
22-1 
22-1 
22-1* 



10-279* 
10-777* 
10-=97* 
U-1 



10-82 

10-256 

10-348 

10-504 

10-565 

10-726 

10-857 

10-: 08 

10-; 39 

10-=29 

10->71 

10-830 



22-1 
22-1 
22-1 
22-1* 



10-302* 
10-803* 
10->17* 
14-1 



10-82* 

10-256 

10-348* 

10-504 

10-565* 

10-726 

10-857* 

10-: 08 

10-; 39* 

10-=29 

10->71* 

10-831 



22-1 
22-1 
22-1 
22-1* 



10-348* 
10-857* 
10->71* 
14-1 



10-171 

10-256 

10-372 

10-504 

10-601 

10-726 

10-880 

10-: 08 

10-; 87 

10-=29 

10->96 

10-831 



22-1 
22-1 
22-1 
22-1* 



10-372* 
10-880* 
10->96* 
15-1 



10-171 

10-256* 

10-372 

10-504* 

10-601 

10-726* 

10-880 

10-:08* 

10-; 87 

10-=29* 

10->96 

10-858 



22-1 
22-1 
22-1 
22-1* 



10-429* 
10-935* 
10-761* 



10-171 

10-279 

10-372 

10-520 

10-601 

10-777 

10-880 

10-:68 

10-; 87 

10-=97 

10->96 

10-858 



22-1 
22-1 
22-1 
22-1* 



10-452* 
10-953* 
10-790* 



9-55* 10-675 10-705 10-:53 10-:53 10-:53 10-;03 10-;03 10-;20 10-;20 10-830 10-860 



10-171* 

10-279 

10-372* 

10-520 

10-601* 

10-777 

10-880* 

10-:68 

10-; 87* 

10-=97 

10->96* 

10-858 



22-1 
22-1 
22-1 
22-1* 



10-504* 
10-:08« 
10-858* 



10-151 
10-223 



10-151 
10-223 



10-151 
10-241 



10-151 
10-241 



10-173 
10-241 



10-173 
10-241 



10-173 
10-241 



10-173 
10-241 



10-223 
10-241 



10-223 
10-241 



10-223 
10-268 



10-223 
10-268 



10-223 
10-268 



10-268 10-281 10-281 10-281 10-281 10-527 10-327 10-327 10-327 10-327 10-350 10-350 10-350 10-350 
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ATABIT 

BADNO 

BAD TWO 

BAI 

BITO 

BITOO 

BIT01 

9IT02 

BIT03 

BIT04 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

Bin 

BIT10 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

BIT2 

Bir3 

BIT4 

BITS 

BIT6 

BIT7 

BITS 

BIT9 

BPTVEC 

CHANGE 

CHGADR 

CKCLK 

CKCLKI 

CKCLK2 

CKCLK3 

CKERR 



10-350 
10-506 
10-583 
10-675 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-:53 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10-330 

9-55 

9-87 

9-3# 

4-621 # 

4-601* 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601 

4-601* 

4-601 * 

4-60U 

4-60U 

4-601 # 

4-601 # 

4-601# 

4-601* 

4-601* 

4-601* 

4-601* 

4-601* 

4-601* 

4-601* 

4-601* 

4-601* 

9-32 

7-0* 

9- 59 
12-6 
12-16 
12-14 

7-0* 

10- 48* 



10-407 
10-506 
10-603 
10-705 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-:53 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-330 
26-18* 
23-9* 
9-26 



4-601* 
4-601* 
4-6014 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 

14-1 

13- 1 

14- 1 
4-691 
4-692 



4-652 



9-99* 
9-14* 
9-72 
12-15* 
12-23* 
12-22 
10-33 
10-48* 



10-407 
10-506 
10-603 
10-705 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-: 53 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-360 



9-17* 
12-6* 



12-25* 

10-33 
10-48* 



10-407 
10-531 
10-603 
10-705 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 69 
10-<84 
10-=09 
10-=81 
10->73 
10-360 



4-656 1 3-1 



4-690 13-1 



13-1 



9-99 



10-33* 
10-48* 



10-407 
10-531 
10-603 
10-705 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 89 
10-<84 
10-=09 
10-=81 
10->73 
10-360 



13-1 



14-1 



9-101* 



10-33* 
10-48* 



10-431 
10-531 
10-675 
10-756 
10-779 
10-837 
10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 89 
10-<84 
10-=09 
10-=81 
10-741 



14-1 



10-431 

10-531 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-; 03 

10-; 89 

10-<84 

10-=09 

10-=99 

10-741 



14-1 



10-431 

10-547 

10-675 

10-756 

10-837 

10-837 

10-859 

10-914 

10-937 

10-989 

10-; 20 

10-; 89 

10-<84 

10-=09 

10-=99 

10-741 



10-431 

10-547 

10-675 

10-756 

10-837 

10-859 

10-859 

10-914 

10-937 

10-989 

10-; 20 

10-; 89 

10-<84 

10-=09 

10-=99 

10-741 



10-483 
10-547 
10-675 
10-756 
10-837 
10-859 
10-914 
10-914 
10-937 
10-: 53 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10-763 



10-483 
10-547 
10-675 
10-756 
10-837 
10-859 
10-914 
10-937 
10-937 
10-:53 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10-765 



10-483 
10-583 
10-675 
10-756 
10-837 
10-859 
10-914 
10-937 
10-989 
10-: 53 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10-763 



10-483 

10-583 

10-675 

10-756 

10-837 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 69 

10-<84 

10-=09 

10-=81 

10-=99 

10-763 



10-506 

10-585 

10-675 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 69 

10-<84 

10-=09 

10-=81 

10-=99 

10-330 



10-33* 
10-223* 



10-33* 
10-223* 



10-40* 
10-223* 



10-40* 
10-223* 



10-40* 
10-223* 



10-40* 
10-223* 



10-48* 
10-241* 



10-48* 
10-241* 



10-48* 
10-241 ^ 



10-241« 10-241* 10-241* 10-527 10-3^7« 10-327» 10-350 *10-5S0« 10-350* 10-407 10-407- 10-407. ^ 0-^07. ^^JO-40/. 
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CKSyR 

CLOCK 

CLP 

CPSAVE 

CR 

CRLF 

DCK 

DDISP 

DF1 

DF31 

DF36 

DF42 

DF5 

DF55 

DF56 

OF 7 

DHI 

DH11 

0H13 

DH22 

DH23 

DH26 

DH3 

DH31 

0H36 

DH4 

DH42 

0H4A 

DH46 

DH5 

DH55 

DH56 

OH57 

DM7 

DISPLA 

DISPRE 

DLT 

m> 

DPE 
DPR 



10-407* 

10-A83* 

10-603» 

10-837 

1 0-859* 

10-9K* 

1 0-989* 

10-; 69* 

10-<84* 

10-=09* 

10-=99* 

1 0-331 • 

13-1 

12- 10 
4-623# 

13- 1 
4-601* 
4-60U 

23-11 
4-685# 

4- 601 # 
8-7 
8-126 
8-70 
3-240 
8-35 
8-317 
8-324 
8-28 
8-5 
8-61 
8-40 
8-124 
8-131 

25-1 5# 
8-19 
8-175 
8-68 
8-26 
8-238 
8-252 

3- 266 
8-33 
8-315 
8-322 
8-330 
8-47 
6-0# 

5- 1# 

4- 633# 
4-689# 
4-73'.# 
4-659# 
10-350 
10-531 
10-756 



10-407 
10-483 
10-675 
10-837 
10-859 
10-937 
10-989 
10-; 69 
10-<84 
10-=09 
10-=99 
10-861 
14-1 

12- 19 
4-652* 

13- 1 
16-1 

9-6 



6-0 
8-14 
8-156 
8-112 
8-247 
8-42 
25-56* 
25-57* 
8-49 
8-12 
25-8^ 
8-75 
8-154 
8-138 

25-2* 
25-17* 

8-110 
25-3* 

8-245 
25-21* 
25-23* 

8-54 
25-25* 
25-26* 
25-27* 

8- 89 

9- 24* 
9-24 



10-431 

10-483* 

10-675* 

10-837* 

10-859* 

10-937 

10-989* 

10-; 69* 

10-<84* 

10-=09* 

10-=99* 

10-861* 

14-1 

12- 30* 
10-22 

13- 1 
16-1 

9-29 



9-24 
8-21 
8-177 
8-119 
25-55* 
8-56 



8-91 
8-224 

8-82 

8-308 

8-231 



8-117 
25-20* 



8- 96 

9- 24* 



10-431* 
10-506* 
10-675* 
10-837* 
10-859* 
10-937* 
10-989* 
10-; 89* 
10-<84* 
10-=81* 
10-=99* 
10-361* 
22-1* 

10-33 
13-1* 
25-3 
9-29 



8-63 

8-254 

8-148 

8-77 



8-98 
8-259 

8-280 
25-11* 
8-273 



10-431* 
10-506* 
10-675* 
10-837* 
10-859* 
10-937* 
10-989* 
10-; 89* 
10-<84* 
10-=81* 
10-=99* 
10-361* 



10-33 
13-1* 
25-6 
16-1 



8-133 
8-268 
8-170 

8-84 



8-105 
25-1* 

8-294 

8-301 



10-431* 

10-506* 

10-756* 

10-837* 

10-914 

10-937* 

10-989* 

10-; 89* 

10-=09* 

10-=81* 

10-?4' 



10-223 
14-1 
25-9 
16-1 



8-140 
8-310 
8-191 

8-184 

8-163 

8-351 
8-344 



1 0-431 » 

10-506* 

10-756* 

10-837* 

10-914 

10-937* 

10-989* 

10-; 89* 

10-=09* 

10-=81* 

10-741* 



10-241 
14-1 
25-11 
23-3 



8-226 
25-53* 
8-198 

8-282 

8-367 

25-9* 
25-13* 



10-431* 

10-506* 

10-756* 

10-837* 

10-914* 

10-937* 

10-: 53 

10-<84* 

10-=09* 

10-=81* 

10-741* 



10-407 
14-1 
25-13 
23-4 



8-233 
8-205 
8-289 

25-52* 



10-431* 

10-506* 

10-756* 

10-837* 

10-914* 

10-937* 

10-: 53 

10-<84* 

10-^09* 

10-=81* 

10-763 



10-431 
14-1 
25-15 
23-5 



8-261 
8-212 
8-296 



10-483* 

10-506* 

10-779* 

10-859 

10-914* 

10-937* 

10-: 53* 

10-<84* 

10-=09* 

10-=81* 

10-763* 



10-483 
14-1 
25-17 
23-6 



8-275 
8-219 
8-332 



10-483* 

10-506* 

10-779* 

10-859 

10-914* 

10-937* 

10-: 53* 

10-<84* 

10-=09* 

10-=81* 

10-763* 



10-506 
14-1* 
25-21 
23-7 



8-303 
8-360 
8-339 



8-182 8-287 8-337 8-372 25-5* 



8-103 
13-1* 



8-161 
14-1* 



8-365 25-6* 



lO-<84 10-<84 10-=09 10-=09 



10-483* 

10-583* 

10-779* 

10-859* 

10-914* 

10-989 

10-: 53* 

10-<84* 

10-=09* 

10-=99* 

10-331* 



10-989 
14-1* 
25-23 
23-7 



8-346 
25-54* 
8-353 



8-146 8-168 8-189 8-196 8-203 8-210 8-217 8-358 25-19* 



10-483* 

10-583* 

10-779* 

10-859* 

10-9(4* 

10-989 

10-:53* 

10-<84* 

10-=09* 

l0-=99* 

10-331* 



10-483* 

10-605* 

10-837 

10-859* 

10-914* 

10-989* 

10-; 69* 

10-<34* 

10-=09* 

10- =99* 

10-331- 



14-1* 15-1 

23-9 23-10 

25-50* 

8-374 25-51* 



10-48 
10-350 
10-547 
10-756 



10-48 
10-350 
10-547 
10-779 



10-151 
10-407 
10-583 
10-779 



10-151 
10-431 
10-583 
10-837 



10-173 
10-483 
10-603 
10-837 



10-173 
10-483 
10-603 
10-859 



10-223 
10-483 
10-675 
10-859 



10-241 
10-483 
10-675 
10-914 



10-268 
10-506 
10-675 
10-914 



10-281 
10-506 
10-675 
10-937 



10-327 
10-506 
10-675 
10-937 



10-327 
10-506 
10-675 
10-; 03 



10-^27 
10-531 
10-705 
10-; 20 



D 6 

69 i0-;89 10-<8^ 10-<8A 10-<84 10—09 10-=09 10-=09 10->53 10->73 10-741 10-763 10-S30 10-330 

S£0 0213 



E 6 

CZRMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO A-APR-81 13:06:2'5 ^agE S-10 

CROSS REFERENCE TABLE (CREF VOI-05 ) SEQ 02U 



10-360 10-360 

DRQ A-719# 

DRY A-6S8# 10-48 10-48 10-151 10-151 10-173 10-173 10-223 10-241 10-268 10-281 10-327 10-327 10-527 

10-350 10-350 10-350 10-407 10-431 10-483 10-433 10-483 10-483 10-506 10-506 10-506 10-506 10-551 

10-531 10-547 10-547 10-583 10-583 10-603 10-603 10-675 10-675 10-675 10-675 10-675 10-675 10-705 

10-756 10-756 10-779 10-779 10-837 10-837 10-859 10-859 10-914 10-914 10-937 10-937 10-; 03 10-; 20 

10-;69 10-;69 10-;89 10-;89 10-<84 10-<84 10-<84 10-=09 10—09 10-=09 10->53 10->73 10-741 10-763 

10-930 10-930 10-960 10-960 

DSWR 4-60U 6-0 9-24 

DTOO 4-710# 

DT01 4-711# 

DT02 4-712# 

DT03 4-71 3# 

DT04 4-714* 

DT05 4-715* 

DT06 4-716# 

DT07 4-717* 

DT08 4-718* 

DTI 8-6 8-13 8-62 8-260 8-302 25-32* 

DTI 3 8-41 8-76 8-83 8-281 8-295 8-352 25-37* 

DT22 8-125 8-155 25-38* 

DT23 8-132 8-139 8-225 8-232 8-274 8-345 25-39* 

DT3 8-20 25-33* 

DT31 8-176 8-253 25-40* 

DT36 8-147 8-169 8-190 8-197 8-211 8-359 25-41* 

DT37 8-69 8-111 8-118 8-204 8-218 25-42* 

DT42 8-239 8-246 25-43* 

DT46 8-267 25-44* 

DT5 8-34 8-55 8-183 8-288 8-338 8-373 25-34* 

DT54 8-309 25-45* 

DT55 8-316 25-46* 

DT56 8-323 25-47* 

DT57 8-331 25-48* 

DT6 25-35* 

DT7 8-27 8-48 8-90 8-97 8-104 8-162 8-366 25-36* 

DTE 4-682* 

DVA 4-648* 

DVC 4-735* 

ECH 4-676* 

ECI 4-746* 

EMI 8-4 24-3* 

EM10 8-53 24-10* 

EMU 8-60 24-11* 

EMI 2 8-67 24-12* 

EMI 3 8-74 24-13* 

EMU 8-81 24-14* 

EMI 5 8-88 24-15* 

EMI 6 8-95 24-16* 

EMI 7 8-102 24-17* 

EM2 8-1 1 24-4* 

EM20 8-109 24-18* 

EM21 8-116 24-19* 

EM22 8-123 24-20* 

EM23 8-130 24-21* 

EM24 8-137 24-22* 

EM25 8-145 24-23* 



F 6 



8-153 24-24# 



SEQ 021 S 



G 6 

C2RWB0 RM05/5/2 DU POR TST 1 MACRO VO^.OO 4-APR-81 18:06:25 PAGE S-11 
CROSS REFERENCE TABLE (CREF vOl-05 ) 



fO 0216 



EM2:* 

EM30 

EM31 

E.M32 

EM33 

EM34 

EM35 

EM36 

EW37 

EM4 

EMAO 

EMA1 

EMA2 

EW45 

EM^A 

EI»V.5 

EMA6 

EMA? 

EM5 

EM50 

EM51 

EW52 

EM53 

EM54 

EM55 

E«56 

EM57 

E«6 

EM60 

EM61 

EM62 

EM63 

EM6A 

EW65 

Ep17 

EMTVFC 

ENTERA 

ERR 

ERROR 

ERRVEC 

EXEC 



FO 
Fl 
F2 
F3 

FER 

F«n6 

CMS 



8-160 

8-18 

8-167 

8-174 

8-181 

8-188 

8-195 

8-202 

8-209 

8-216 

8-25 

8-223 

8-230 

8-237 

8-244 

8-251 

8-258 

8-265 

8-272 

8-32 

8-279 

8-286 

8-293 

8-300 

8-307 

8-314 

8-321 

8-329 

8-39 

8-336 

8-343 

8-350 

8-357 

8-364 

8-571 

8- 46 
4-601 # 

9- 33 
4-665* 
4-601 # 
4-601* 

13-1* 
9-60 

10- 504 
10-:08 
10-958 

4-64 3# 
4-644# 
4-64 5# 
4-64 6# 
4-64 7# 
4-674# 

4- 74 7# 

5- 1 
Z2-\ 
22'} 



24-25* 
24-5* 

2t.-27lt 
2^-28M 
24-29* 
24-30* 
24-31* 
24-32* 
24-33* 
24-6* 
24-34* 
24-35* 
24-36* 
24-37* 
24-38* 
24-39* 
24-40* 
24-', 1* 
2^-7» 
2^-^2» 
24-43* 
24-44* 
24-45* 
24-46* 
24-47* 
24-48* 
24-49* 
24-8* 
24-50* 
24-51* 
24-52* 
24-53* 
24-54* 
24-55* 
24-9* 
9-24* 
23-3* 
10- 81 

9-24 
13-1* 

9-67* 
10-520 
10-:68 

n-1 



5-1 
22-1 
22-1 



9-24* 

10-=81 10-=81 10-=99 10-=99 



9- 24* 
13-1* 
10-20 

10- 545 
10-; 18 



9-24* 
14-1 
10-82 
10-565 
10-; 39 



9-26* 
14-1* 
10-171 
10-601 
10-; 87 



9-27* 
14-1* 
10-189 
10-620 
10-<41 



10-=99 

12-6* 

10-239 
10-689 
10-=07 



12-7* 12-16* 12-25* 13-1 



10-256 
10-726 
10-=29 



10-279 
10-777 
10-=97 



10-302 
10-803 
10->17 



10-348 
10-857 
10->71 



13-1 

10-372 
10-880 
10->96 



13-1* 

10-429 
10-935 
10-761 



13-T 

10-A52 
10-953 
10-?90 



9-6 
22-1 



9-29 
22-1 



11-1 
22-1 



11-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-1 
22-1 



22-' 
22-1 



H 6 

00 4-642* 5fO o?r 



I 6 

CZRMRBO RM05/3/'2 DU POR TST 1 MACRO V04.00 4-APR-81 18:06:25 PAGE S-12 
CROSS REFERENCE TABLE (CREF i/01-05 ) 



SEO 0?18 



GTSUR 

HCE 

MCI 

HCRC 

HT 

lAE 

IBSAVf 
IE 
ILF 
ILR 

lOTVEC 

IR 

IVC 

KYBCTL 



LBC 
LBT 
LF 

LSC 

MAXTN 

MCPE 

MDPE 

nOH 

MOL 



MUR 
MXF 
NBA 
NED 
NEM 
NOATA 



NOCLOC 
NOSE 17 
NTRH 



9-29 
4-67 /# 

A-678# 
A-601* 
<.-680* 
U-1 
A-607* 
4-670# 
4-671* 
4-601* 
4-624* 
4-738* 

7- 0* 

1'0-256* 
10-504* 
10-726* 
■10-:08* 
'0-=29* 
10-ia58* 
4-736* 
4-661* 
4-601* 
25-21 
4-737* 

9- 85 
4-612* 
4-626* 
4-720* 
4-663# 
10-350 
10-531 
10-756 
10-; 69 
10-360 

4-690* 
4-627* 
4-722* 
4-630* 
4-629* 

8- 379* 
10-281 

10- 407 
10-531 
10-603 
10-756 
10-837 
10-989 
10-;03# 
10-; 89 
10-=81 
10->53 
10-763 

9- 61 
7'OM 
9-106 



22-1* 

16-1 
14-1 

9-24* 



9-75* 
10-279 
10-520 
10-777 
10-:68 

10- =97 

11- 1 



16-1 

25- 23 

26- 29* 
10-327 



10-48 

10-350 

10-547 

10-756 

10-; 89 

10-S60 

10-<84 



10-33 

10-151 

10-281 

10-431 

10-531 

10-675 

10-756 

10-837 

10-989 

10-;03# 

10-; 89 

10-=81 

10->73 

10-763* 

23-7* 

23-12* 



16-1 
14-1 

9-24* 



9-92. 
10-279* 
10-520* 
10-777* 
10-: 68* 
10-=97* 



16-1 



10-48 

10-350 

10-547 

10-779 

10-<84 

10-=09 



10-151 
10-281 
10-431 
10-531 
10-675 
10-756 
10-859 
10-989 
10-; 20 
10-<84 
10-=81 
10->73 
10-763* 



i4-1 



14-1 



14-1* 



10-20 

10-302 

10-545 

10-803 

10-; 18 

10->17 



23-7 



10-20* 

10-302* 

10-545* 

10-803* 

10-; 18* 

10->17* 



23-8 



10-82 

10-348 

10-565 

10-857 

10-; 39 

10->71 



10-151 
10-407 
^0-583 
(C-779 
10-<84 



10-33 10-33 



10-173 

10-327 

10-431 

10-547 

10-675 

10-756* 

10-859 

10-989 

10-; 20 

10-<84 

10-=81* 

10->73 

10-330 



10-151 
10-431 
10-583 
10-837 
10-<84 



. V33 

.^-173 

10-327 

10-431 

10-547 

10-675 

10-756* 

10-859 

10-989* 

10-; 20 

10-<84 

10-=81* 

10->73 

10-830 



10-173 
10-483 
10-603 
10-837 
10-=09 



14-1* 



10-82* 

10-348* 

10-565* 

10-857* 

10-; 39* 

10->71* 



10-350 10-331 10-331 10-361 10-361 



10-173 
10-483 
10-603 
10-859 
10-=09 



10-223 

10-327 

10-483 

10-547 

10-675 

10-779 

10-859 

10-991* 

10-; 20 

10-<84 

10-=99 

10-741 

10-330 



10-223 

10-327 

10-483 

10-547 

10-675 

10-779 

10-914 

10-: 53 

10-;20# 

10-<84* 

10-=99 

10-741 

10-330 



14-1* 



10-171 
10-372 
10-601 
10-880 
10-; 87 
10->96 



23-11 23-12 25-3 



10-223 
10-483 
10-675 
10-859 
10-=09 



10-2A1 

10-350 

10-483 

10-583 

10-675 

10-779 

10-914 

10-: 53 

10-;20# 

10-=09 

10-=99 

10-741 

10-360 



14-1* 



10-171* 
10-372* 
10-601* 
10-880* 
10-; 87* 
10->96* 



25-6 



10-241 
10-483 
10-675 
10-914 
10->53 



10-241 
10-350 
10-483 
10-583 
10-675 
10-779 
10-914 
10-:53 
10-; 69 
10-=09 
10-=99 
10-741 
10-360 



10-189 
10-429 
10-620 
10-935 
10-<41 
10-761 



25-9 



10-268 
10-506 
10-675 
10-914 
10->73 



10-268 

10-350 

10-506 

10-583 

10-705 

10-779* 

10-914 

10-:53 

10-; 69 

10-=09 

10-=99* 

10-741* 

10-360 



10-189* 
10-429* 
10-620* 
10-935* 
10-<41* 
10-761* 



25-11 



10-281 
10-506 
10-675 
10-937 
10-741 



10-268 

10-350 

10-506 

10-583 

10-705 

10-779* 

10-937 

10-;03 

10-; 69 

10-=09 

10-=99# 

10-741* 

10-360 



10-239 
10-452 
10-689 
10-953 
10-=07 
10-790 



10-327 
10-506 
10-675 
10-937 
10-763 



10-239* 
10-452* 
10-689* 
10-953* 
10-=07* 
10-790* 



10-327 
10-506 
10-675 
10-;03 
10-330 



10-268 

10-407 

10-506 

10-603 

10-705 

10-781* 

10-937 

10-; 03 

10-; 69 

10-=09* 

10->53 

10-763 



10-268 

10-407 

10-506 

10-603 

10-705 

10-837 

10-937 

10-;03 

10-;89 

10-=11» 

10->53 

10-763 



10-256 
10-504 
10-726 
10-:08 
10-=29 
10-358 



25-13 25-15 25-17 



10-327 
10-551 
10-705 
10-; 20 
10-330 



10-281 
10-407 
10-531 
10-603 
10-756 
10-837 
10-937 
10-; 03 
10-; 89 
10-=81 
10->53 
10-763 



J 6 



K 6 

CZRMR80 RM05/3/2 DU POR TST 1 MACRO V0'..00 4-APR-81 18:06:^15 PAGE S-13 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



SEO 0220 



OPE 
DPI 
OPPRT 



OR 
PAR 

PAT 

PFECH 

PFECH1 

PFECH2 

PFECH3 

PFECHA 

PFTSTN 

PGE 

PGM 



PIP 



PIRQ 

PIRQVE 

PORTA 



4-656# 

10-281 
10-506 
10-603 
10-859 
10-; 03 
10-=09 
10-330 
A-739# 
A-683# 
7-0* 
10-603* 
10->73* 
A-625# 
A-673# 
4-622# 
15-1 
15-1 
15-1 
15-1 
15-1 
15-1 
A-628/> 
4-660# 
10-281 
10-506 
10-675 
10-937 
10-741 
4-664/r 
10-281 
10-506 
10-603 
10-859 
10-; 03 
10-=09 
10-330 
A-60U 
A-601# 
7-OM 
10-52 
10-173 
10-223 
10-268 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-547 
10-603 
10-675 
10-675 
10-756 
10-779 



10-151 
10-327 
10-506 
10-675 
10-859 
10-; 20 
10-=81 
10-360 



10-151* 
10-675* 
10-741 • 



15-1# 
15-1# 
15-1# 

15-1# 
15-1* 
15-U 

10-48 

10-327 

10-506 

10-675 

10-937 

10-763 

10-151 

10-327 

10-506 

10-675 

10-859 

10-; 20 

10-=81 

10-360 



9- 35* 
10-151 
10-173 
10-241 
10-268 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-547 
10-603 
10-675 

10- 675 
10-756 
10-779 



10-151 
10-327 
10-506 
10-675 
10-859 
10-; 20 
10-=81 
10-360 



10-173* 
10-675* 
10-763* 



15-1* 

10-48 

10-327 

10-506 

10-675 

10-; 03 

10-330 

10-151 

10-327 

10-506 

10-675 

10-859 

10-; 20 

10-=81 

10-360 



9- 36 
10-151 
10-173 
10-241 
10-268 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 

10- 756 
10-779 



10-151 
10-327 
10-531 
10-675 
10-914 
10-; 69 
10-=99 



10-223* 
10-756* 
10-330* 



10-48 

10-327 

10-531 

10-705 

10-; 20 

10-330 

10-151 

10-327 

10-531 

10-675 

10-914 

10-; 69 

10-=99 



9-40 
10-151 
10-173 
10-241 
10-281 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 
10-756 
10-779 



10-173 
10-350 
10-531 
10-675 
10-914 
10-; 69 
10-=99 



10-241* 
10-779* 
10-360* 



10-48 

10-350 

10-531 

10-756 

10-; 69 

10-360 

10-173 

10-350 

10-531 

10-675 

10-914 

10-; 69 

10-=99 



9-43 
10-151 
10-173 
10-241 
10-281 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 
10-756 
10-779 



10-173 
10-350 
10-531 
10-705 
10-914 
10-; 89 
10->53 



10-327* 
10-837* 
25-35 



10-48 

10-350 

10-547 

10-756 

10-; 89 

10-360 

10-173 

10-350 

10-531 

10-705 

10-914 

10-; 89 

10->53 



9- 47 
10-151 
10-223 
10-241 
10-281 
10-327 
10-350 
10-407 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 

10- 756 
10-779 



10-17i 
10-350 
10-547 
10-705 
10-937 
10-; 89 
10->53 



10-350* 
10-859* 
25-40 



10-48 

10-350 

10-547 

10-779 

10-<84 

10-173 
10-350 
10-547 
10-705 
10-937 
10-; 89 
10->53 



9-51 
10-151 
10-223 
10-241 
10-281 
10-327 
10-350 
10-431 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-705 
10-756 
10-779 



10-223 
10-407 
10-547 
10-756 
10-937 
10-<84 
10->73 



10-407* 
10-914* 
25-45 



10-151 
10-407 
10-583 
10-779 
10-<84 

10-223 
10-407 
10-547 
10-756 
10-937 
10-<84 
10->73 



9-54 
10-151 
10-223 
10-241 
10-327 
10-327 
10-407 
10-431 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-705 
10-756 
10-779 



10-22;3 
10-407 
10-547 
10-756 
10-937 
10-<84 
iO->73 



10-431* 
10-937* 



10-151 
10-431 
10-583 
10-837 
10-<84 

10-223 
10-407 
10-547 
10-756 
10-937 
10-<84 
10->73 



10-33 

10-151 

10-223 

10-241 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-547 

10-583 

10-603 

10-675 

10-705 

10-756 

10-779 



10-241 
10-431 
10-583 
10-779 
10-989 
10-<84 
10-741 



10-483* 
10-<84* 



10-173 
10-483 
10-603 
10-837 
10-=09 

10-241 
10-431 
10-583 
10-779 
10-989 
10-<84 
10-741 



10-33 

10-173 

10-223 

10-241 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-547 

10-583 

10-675 

10-675 

10-705 

10-756 

10-779 



10-241 
10-431 
10-583 
10-779 
10-989 
10-<84 
10-741 



10-506* 
10- =09* 



10-173 
10-483 
10-603 
10-859 
10-=09 

10-241 
10-431 
10-583 
10-779 
10-989 
10-<84 
10-741 



10-40 

10-173 

10-223 

10-268 

10-327 

10-350 

i'>-A07 

K-431 

10-483 

10-506 

10-547 

10-583 

10-675 

10-675 

10-705 

10-756 

10-779 



10-268 
10-483 
10-583 
10-837 
10-: 53 
10-=09 
10-763 



10-531* 
10-=81* 



10-223 
10-483 
10-675 
10-859 
10-=09 

10-268 
10-483 
10-583 
10-837 
10-:53 
10-=09 
10-763 



10-40 

10-173 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-483 

10-531 

10-547 

10-583 

10-675 

10-675 

10-756 

10-756 

10-837 



10-263 
10-483 
10-603 
10-837 
10-:53 
10-=09 
10-763 



10-547* 
10-=99* 



10-241 
10-483 
10-675 
10-914 
10->53 

10-268 
10-483 
10-603 
10-837 
10-:53 
10-=09 
10-'63 



10-48 

10-173 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-483 

10-531 

10-547 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 



10-281 

10-483 

10-O03 

10-837 

10-; 0^ 

10-=09 

10-330 



10-583* 
10->53* 



10-268 
10-506 
10-675 
10-914 
10->73 

10-281 
10-483 
10-603 
10-837 
10-; 03 
10-=09 
10-330 



10-48 

10-173 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-483 

10-531 

10-547 

10-603 

10-675 

10-675 

10-7S6 

10-779 

10-837 



10-837 10-837 10-837 10-837 10-837 10-837 10-837 10-837 10-837 10-837 10-837 10-859 10-859 10-859 

SEQ 0221 



M 6 

CZRMRBO RM05/5/2 DU POR TST 1 MACRO VOA.OO A-APR-81 18:06:2:5 PAGE S-14 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



SEO 0222 



PORTAI 
PO«TB 



P0RT8I 

PORTC 

PRO 

PR1 

PR2 

PR3 

PR4 

PR5 



10-859 
10-9U 
10-937 
10-989 
10-:53 
10-; 20 
10-; 89 
10-<84 
10-^09 
10-=99 
10->53 
10-741 
10-930 
10-830 
10-360 
9-A6 
7-0# 
10-151 
10-173 
10-241 
10-281 
10-327 
10-350 
10-431 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 
10-756 
10-779 
10-837 
10-859 
1J-914 
10-937 
10-:53 
10-; 03 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 
9-48 
7-OM 
4-60U 
4-601# 
4-601 4r 
4-601 # 
4-601# 
4-601# 



10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 20 
10-; 89 
10-<84 
10—09 
10-=99 
10->53 
10-741 
10-330 
10-360 
10-360 
23-5# 

9-40* 
10-151 
10-173 
10-241 
10-281 
10-327 
10-350 
10-431 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 
10-756 
10-779 
10-837 
10-859 
10-914 
10-937 
10-:53 
10-; 03 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10->73 
10-763 
10-330 
10-360 
23-6* 

9-51* 



13-5 
10-18 



10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10->53 
10-741 
10-330 
10-360 



9-41* 
10-151 
10-173 
10-241 
10-281 
10-327 
10-350 
10-431 
10-483 
10-506 
10-531 
10-583 
10-603 
10-675 
10-675 
10-756 
10-779 
10-837 
10-859 
10-914 
10-989 
10-: 53 
10-; 03 
10-; 89 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-763 
10-330 
10-360 



10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10->73 
10-741 
10-330 
10-360 



9-42* 
10-151 
10-223 
10-241 
10-281 
10-327 
10-350 
10-431 
10-483 
10-506 
10-547 
10-583 
10-603 
-10-675 
10-705 
10-756 
10-779 
10-837 
10-859 
10-937 
10-989 
10-:53 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-763 
10-330 
10-360 



10-859 
10-914 
10-937 
10-989 
10-; 03 
10-; 69 
10-; 89 
10-<84 
10-=81 
10-=99 
10->73 
10-741 
10-330 
10-360 



9-45* 
10-151 
10-223 
10-241 
10-281 
10-350 
10-350 
10-431 
10-483 
10-506 
10-547 
10-583 
10-603 
10-675 
10-705 
10-756 
10-779 
10-837 
10-859 
10-937 
10-989 
10-;53 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-763 
10-330 
10-360 



10-859 
10-914 
10-937 
10-: 53 
10-; 03 
10-; 69 
10-; 89 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 



9-49 
10-151 
10-223 
10-241 
10-327 
10-350 
10-407 
10-431 
10-483 
10-506 
10-547 
10-583 
10-603 
10-675 
10-705 
10-756 
10-779 
10-837 
10-914 
10-937 
10-989 
10-;53 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10->53 
10-741 
10-330 
10-330 
10-360 



10-859 
10-914 
10-937 
10-:53 
10-; 03 
10-; 69 
10-; 89 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 



10-33 

10-151 

10-223 

10-241 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-547 

10-583 

10-603 

10-675 

10-705 

10-756 

10-779 

10-859 

10-914 

10-937 

10-989 

10-; 03 

10-; 20 

10-; 89 

10-<8« 

10-=09 

10-=99 

10->53 

10-741 

10-330 

10-360 

10-360 



10-359 
10-914 
10-937 
10-: 53 
10-; 20 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 



10-33 

10-151 

10-223 

10-241 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-547 

10-583 

10-675 

10-675 

10-705 

10-779 

10-779 

10-859 

10-914 

10-937 

10-989 

10-; 03 

10-; 20 

10-; 89 

10-<84 

10-=09 

10-=99 

10->53 

10-741 

10-330 

10-360 



10-859 
10-914 
10-937 
10-: 53 
10-; 20 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 



10-40 

10-151 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-547 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-; 03 

10-; 20 

10-; 89 

10-<84 

10-r09 

10-=99 

10->53 

10-741 

10-330 

10-360 



10-859 
10-914 
10-989 
10-:53 
10-; 20 
10-; 69 
10-<84 
10-=09 
10-=81 
10-=99 
10->73 
10-763 
10-330 
10-360 



10-40 

10-173 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-506 

10-531 

10-547 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-;03 

10-; 69 

10-; 89 

10-<84 

10-=81 

10-=99 

10->73 

10-741 

10-330 

10-360 



10-914 
10-937 
10-989 
10-:53 
10-; 20 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10->73 
10-763 
10-330 
10-360 



10-48 

10-173 

10-223 

10-268 

10-327 

10-350 

10-407 

10-431 

10-506 

10-531 

10-547 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-;03 

10-;69 

10-; 89 

10-<84 

10-=81 

10-=99 

10->73 

10-741 

10-330 

10-360 



10-914 
10-937 
10-989 
10-: 53 
10-; 20 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-763 
10-330 
10-360 



10-48 

10-173 

10-223 

10-268 

10-327 

10-3''0 

10-«,07 

10-431 

10-506 

10-531 

10-547 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-:53 

10-; 03 

10-; 69 

10-; 89 

10-=09 

10-=81 

10-=99 

10->73 

10-763 

10-330 

10-360 



10-914 
10-937 
10-989 
10-:53 
10-; 20 
10-; 69 
l0-<84 
10-=09 
10-=81 
10->53 
10-741 
10-763 
10-330 
10-360 



10-54 

10-173 

10-241 

10-281 

10-327 

10-*-50 

10-'-07 

10-^3 

10-506 

10-531 

10-547 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-:53 

10-; 03 

10-; 69 

10-<84 

10-=09 

10-=81 

10-=99 

10->73 

10-763 

10-330 

10-360 



10-914 

10-937 

10-989 

10-:53 

10-; 20 

10-; 69 

10-<84 

10-=09 

10-=81 

10->53 

10-741 

10-763 

10-330 

10-360 



10-151 

10-173 

10-241 

10-281 

10-327 

10-350 

10-431 

10-483 

10-506 

10-531 

10-5A7 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-:53 

10-; 03 

10-; 69 

10-<84 

10-=09 

10-=81 

10-=99 

10->73 

10-763 

10-330 

10-360 



9-52* 9-53* 10-675 10-705 



13-9 



N 6 



PR6 4-601 • 9-?7 



SfO 0223 



I 



CZRMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 
rROSS REFERENCE TABLE (CREF VOl-05 > 



B 7 

4-APR-81 18:06:25 PAGE S-15 



SEO 0224 



PR7 
PS 

PSEL 

PSW 

PTNBR 



PURVEC 

R6 

R7 

RDCHR 
ROLIN 
ROOCT 
ROY 

RELERR 



RELOK 



RESREG 

RESVEC 

RHAS 

RMBA 

RMCS1 



A-601# 
A-601 
A-611# 
A-601# 
7'0» 
10-151* 
10-223* 
10-268* 
10-327* 
10-350* 
10-A31* 
10-A83» 
10-531* 
10-583* 
10-603* 
10-675* 
10-756* 
10-779* 
10-837* 
10-859* 
10-937* 
10-989* 
10-; 03* 
10-; 89* 
10-<84* 
10-=09* 
10-=99* 
10-741* 
10-330* 
10-860* 
4-601# 
4-601 # 
4-601# 

19- 1 

20- 1 

9- 34 
4-60ar 

7- 00 
10-281* 
10-506* 
10-675* 

10- 914* 
10-;69* 
10-=99* 
10-860* 

8- 378# 
10-531 
10-:53 
10-?63 
22-l# 

4-601 # 
4-770* 
4-765# 
4-763# 
10-327* 
10-350* 



4-601* 9-68* 1C-151* 10-151* 10-151* 10-173* 10-173* 10-173* 



10-35* 

10-173 

10-223 

10-268 

10-327 

10-350 

10-431 

10-483 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-914 

10-937 

10-: 53 

10-; 20 

10-; 89 

10-<84 

10-=81 

10->53 

10-741 

10-830 

10-860 

9-24 

22-1* 
22-1* 
9-81 



10-151* 
10-327* 
10-531* 
10-705* 
10-937* 
10-; 89* 
10->53* 

10-151 
10-547 
10-; 03 
10-830 



10-33* 

10-173 

10-223 

10-281 

10-327 

10-350 

10-431 

10-506 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-914 

10-937 

10-:53 

10-; 20 

10-; 89 

10-<84 

10-=81 

10->53 

10-?41 

10-830 

10-860 



10-151* 
10-327* 
10-531* 
10-705* 
10-937* 
10-; 89* 
10->53* 

10-173 
10-583 
10-; 20 
10-860 



10-40* 

^0-173 

10-241 

10-281 

10-327 

10-407 

10-431 

10-506 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-914 

10-937 

10-:53 

10-; 20 

10-; 89 

10-<84 

10-=81 

10->53 

10-?63 

10-830 

10-860 



9-24* 9-24* 



9-107 22-1* 



10-173* 

10-327* 

10-547* 

10-756* 

10-989 

10-<84* 

10->73* 

10-223 
10-603 
10-; 69 



10-40* 

10-173 

10-241 

10-281 

10-327 

10-407 

10-431 

10-506 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-914 

10-937 

10-:53 

10-; 20 

10-; 89 

10-=09 

10-=81 

10->53 

10-763 

10-830 

10-860 



10-173* 
10-350* 
10-547* 
10-756* 
10-989* 
10-<84* 
10->73* 

10-241 
10-675 
10-; 89 



10-48* 

10-173 

10-241 

10-281 

10-350 

10-407 

10-483 

10-506 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-859 

10-914 

10-937 

10-:53 

10-; 20 

10-; 89 

10-=09 

10-=81 

10->53 

10-763 

10-830 

10-860 



10-223 

10-350* 

10-583* 

10-756* 

10-989* 

10-<84* 

10-741* 

10-244* 

10-675 

10-<84 



10-48* 

10-173* 

10-241* 

10-281* 

10-350* 

10-407* 

10-483* 

10-506* 

10-547* 

10-583* 

10-675* 

10-675* 

10-756* 

10-779* 

10-859* 

10-914* 

10-937* 

10-:53* 

10-; 20* 

10-; 89* 

10-=09* 

10-=81* 

10->73* 

10-763* 

10-830* 

10-860* 



10-223* 

10-350* 

10-583* 

10-779* 

10-:53 

10-<84* 

10-741* 

10-268 
10-705 
10-<84 



10-151* 
10-173* 
10-241* 
10-327* 
10-350* 
10-407* 
10-483* 
10-506* 
10-547* 
10-603* 
10-675* 
10-675* 
10-756* 
10-779* 
10-859* 
10-914* 
10-989* 
10-: 53* 
10-; 69* 
10-<84* 
10-=09* 
10--81* 
10->73* 
10-763* 
10-830* 
25-32 



10-223* 
10-407* 
10-603* 
10-779* 
10-: 53* 
10-=09* 
10-763* 

10-281 
10-756 
10-=09 



13-151* 
10-173* 
10-241* 
10-327* 
10-350* 
10-407* 
10-483* 
10-506* 
10-547* 
10-603* 
10-675* 
10-675* 
10-756* 
10-779* 
10-859* 
10-914* 
10-989* 
10-:53* 
10-; 69* 
10-<84* 
10-=09* 
10-=99* 
10->73* 
10-763* 
10-860* 
25-34 



10-241 

10-407* 

10-603* 

10-779* 

10-: 53* 

10-=09* 

10-763* 

10-327 
10-779 
10-=09 



10-151 

10-223 

10-241 

10-327 

10-350 

10-407 

10-4»83 

10-506 

10-547 

10-603 

10-675 

10-705 

10-756 

10-837 

10-859 

10-914 

10-989 

10-; 03 

10-; 69 

10-<84 

10-=09 

10-=99 

10->73 

10-830 

10-860 

25-36 



10-241* 
10-431* 
10-675* 
10-837* 
10-; 03* 
10-=09* 
10-830* 

10-350 
10-837 
10-=81 



10-151* 
10-223* 
10-241* 
10-327* 
10-350* 
10-4U/* 
10-483* 
10-506* 
10-547* 
10-603* 
10-675* 
10-705* 
10-756* 
10-837* 
10-839* 
10-914* 
10-989* 
10-; 03* 
10-; 69* 
10-<84* 
10-=09* 
10-=99* 
10->73* 
10-830* 
10-860* 
25-37 



10-241* 
10-431* 
10-675* 
10-837* 
10-; 03* 
10-=09* 
10-830* 

10-407 
10-859 
10-=99 



10-151* 
10-223* 
10-268* 
10-327* 
10-350* 
10-431* 
10-483* 
10-506* 
10-547* 

10-675* 
10-705* 
10-779* 
10-837* 
10-859* 
10-937* 
10-989* 
10-; 05* 
10-; 69* 
10-<84* 
10-=09* 
10-=99* 
10-741* 
10-830* 
10-860* 
25-38 



10-268* 
10-483* 
10-675* 
10-859* 
10-; 20* 
10-=31* 
10-830* 

10-431 
10-914 
10->53 



10-675* 10-705* 10-:53 10-:53 10-:53* 10-;03 10-;03 10-;20 10-;20 10-830* 10-860* 



10-151* 

10-223* 

10-268* 

10-327* 

10-350* 

10-431* 

10-483* 

10-506* 

10-547* 

10-603* 

10-675* 

10-705* 

10-779* 

10-837* 

10-859* 

10-937* 

10-989* 

1C-;03* 

10-; 69* 

10-<84* 

10-=09* 

10-=99* 

10-741* 

10-830* 

10-860* 

25-42 



10-268* 
10-483* 
10-675* 
10-859* 
10-; 20* 
10-=81* 
10-860* 

10-483 
10-937 
10->73 



10-151* 

10-223* 

10-268* 

10-327* 

10-350* 

10-431* 

10-483* 

10-531* 

10-583* 

10-603* 

V>675* 

10-756* 

10-779* 

10-837* 

10-859* 

10-957* 

10-989* 

10-;05*- 

10-;69*' 

10-<84*' 

10-=09*- 

10-=99*- 

10-?A1« 

10-830* 

10-860*' 



1 0-281 *< 
10-506** 
10-675** 
10-9144 
1C-;69*i 
10-=99*! 
10-860^ 

10-506 
10-989 
10-741 



10-223* 
10-327* 
10-350* 



10-223* 
10-327* 
10-350* 



10-241* 
10-327* 
10-350* 



10-241* 
10-327* 
10-350* 



10-268* 
10-327* 
10-350* 



10-268* 
10-327* 
10-350* 



10-268* 
10-327* 
10-407 



10-281* 
10-327* 
10-407 



10-281* 

10-350 

10-407* 



10-281* 

10-350 

10-407* 



10-327 

10-350* 

10-407* 



10-327 10-3271 
10-350* 10-3501 
10-407* 10-4071 



-407. 10-407. 10-40"'- 10-407. 10-407* 10-431 10-431 10-431. 10-431* 10-431. 10-431* 10-431* ^^'^^^^^l^ill* 
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SEQ 022b 



RMCS2 



RfVA 

RHDC 
RMDS 



10-A31 
10-531 
10-583 
10-603 
10-675 
10-756 
10-837 
10-989 
10-; 20 
10-; 89 
10-=09 
10-=99 
i0->73 
10-763 

io-a3i 

10-961 
4-767# 

10-52* 

10-173* 

10-2A1* 

10-268* 

10-327* 

10-350* 

10-A07* 

10-A31* 

10-A83* 

10-531* 

10-547* 

10-583* 

10-675* 

10-675* 

10-705* 

10-756* 

10-779* 

10-837* 

10-859* 

10-914* 

10-937* 

10-: 53* 

10-; 03* 

10-; 20* 

10-; 89* 

10-<84* 

10-=09* 

10-=99* 
10->53* 
10-741* 
10-763* 
10-330* 
10-360* 
4-766# 
4-772# 
4-777# 
4-768# 
10-151 
10-223 



10-431* 

10-531* 

10-583 

10-603* 

10-675* 

10-756* 

10-859* 

10-: 53* 

10-; 20* 

10-; 89* 

10-=09* 

10-=99* 

10->73* 

10-763* 

10-331 • 

10-361* 

10-22* 

10-54* 

10-173* 

10-241* 

10-281* 

10-327* 

10-350* 

10-407* 

10-431* 

10-506* 

10-531* 

10-547* 

10-583* 

10-675* 

10-675* 

10-705* 

10-756* 

10-779* 

10-837* 

10-859* 

10-914* 

10-937* 

10-:53* 

10-; 03* 

10-; 20* 

10-; 89* 

10-<84» 

10-=09* 

10-=99* 

10->53* 

10-741* 

10-763* 

10-330* 

10-360* 

10-151 

10-151 
10-33 
10-151 
10-223 



0-431* 

0-531* 

0-583* 

0-603* 

0-675* 

0-756* 

0-859* 

0-:53*. 

0-;20* 

0-;89* 

0-=09* 

0-=99* 

0->73* 

0-763* 

0-331* 

0-361* 

0-33 

0-151* 

0-173* 

0-241* 

0-281* 

0-327* 

0-350* 

0-407* 

0-483* 

0-506* 

0-531* 

0-547* 

0-583* 

0-675* 

0-675* 

0-756* 

0-779* 

0-837* 

0-859* 

0-914* 

0-937* 

0-989* 

0-:53* 

0-;03* 

0-;20* 

0-;89» 

0-<84» 

0-=09* 

0-=99* 

0->53* 

0-741* 

0-763* 

0-330* 

0-360* 

0-151 

0-151 
0-33 
0-151 
0-223 



0-483* 
0-531* 
0-583* 
0-603* 
0-705* 
0-779* 
0-859* 
0-;03* 
0-;69* 
0-;89* 
0-=81* 
0-=99* 
0-741* 
0-330* 
0-360* 

0-33 

0-151* 

0-173* 

0-241* 

0-281* 

0-327* 

0-350* 

0-407* 

0-483* 

0-506* 

0-531* 

0-547* 

0-603* 

0-675* 

0-675* 

0-756* 

0-779* 

0-837* 

0-859* 

0-914* 

0-937* 

0-989* 

0-:53* 

0-;03* 

0-;69* 

0-;89» 

0-<84* 

0-=81* 

0-=99* 

0->53* 

0-741* 

0-330* 

0-330* 

0-360* 

0-151* 

0-173 
0-48 
0-151 
0-223 



0-483* 
0-531* 
0-583* 
0-603* 
0-705* 
0-779* 
0-859* 
0-;03* 
0-;69* 
0-;89* 
0-=81* 
0-=99* 
0-741* 
0-330* 
0-360* 



0-33 

0-151 

0-223 

0-241 

0-281 

0-327 

0-350 

0-431 

0-483 

0-506 

0-531 

0-547 

0-603 

0-675 

0-675 

0-756 

0-779 

0-837 

0-859 

0-914 

0-937 

0-989 

0-:53 

0-;03 

0-;69 

0-;89 

0-<84 

0-=81 

0-=99 

0->53 

0-741 

0-330 

0-360 

0-360 

0-173 

0-173 
0-48 
0-173 
0-223 



10-483* 

10-547 

10-583* 

10-675* 

10-705* 

10-7'9* 

10-914* 

10-; 03* 

10-; 69* 

10-<84* 

10--81* 

10->53* 

10-741* 

10-330* 

10-360* 



10-33 

10-151 

10-223 

10-241 

10-281 

10-327 

10-350 

10-431 

10-483 

10-506 

10-531 

10-547 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 03 

10-; 69 

10-; 89 

10--09 

10-=81 

10-=99 

10->73 

10-741 

10-330 

10-360 



10-483 
10-547 
10-583 
10-675 
10-705 
10-779 
10-914 
10-; 03 
10-; 69 
10-<84 
10-=81 
10->53 
10-741 
10-330 
10-360 

10-33* 

10-151 

10-223 

10-241 

10-327 

10-350 

10-407 

10-431 

10-483 

10-506 

10-531 

10-583 

10-603 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 03 

10-;69 

10-; 89 

10-S09 

t0-=81 

10-=99 

10->73 

10-741 

10-330 

10-360 



lU-5Uo* 


1 J-3Uft* 




lU-bUo* 


1 A CT1 


1 A C Z 1 ^ 




1 O— CZ 7> 


1 0_C/ 7* 


1 7« 


1 A_C/ 7* 

1U-7H/^* 


1 A_C/ 7* 


1 U-30J* 


1 0_CQ1* 


1 A_il.A7 

1 0-oU3 


1 n_x.n7 
1 U-oUi 


1 0-607 


1A ^AT* 

10-607* 


lO-O^ 5* 


1 U-Of 5* 


lU-O^ J* 


tV-OfJ* 


1A ^7Ca 

l0-O'7* 


10-6^7* 


1 U-/^ U5* 




lU-f 5o* 


1A 7CiL« 
lU-/^70* 


1A 7C^* 
10-' 70* 


10-/^70* 






lU-f fy* 


lU-/^ ^y* 


1 A_BT7« 
10-07^* 


10-07/^* 


1 h— oi z.« 
1 U-y 1 H* 


1 O— 01 z.« 

lu-y ih* 


1 O— 077* 


i{}~y5f* 


1 o_a77* 
10-V7r • 


10— t7/^* 


10-; 03* 


10-. 03* 


10-;03* 


10-; 20* 


10-; 20* 


10-; 20* 


10-; 69* 


10-; 69* 


10-; 69* 


10-; 69* 


10-; 89* 


10-; 89* 


I U-vO'»* 






lU-vo*** 


1 f\ AO* 

io--uy* 


io— no* 
10— =W* 


1 U--0 1 * 




1 O— -B1 * 


10_— fli * 


10— -yy* 


1 0— =Tnf* 


1 U— 


1 U— ^3 J" 


in— 'N^7* 


1 0— %':7* 


10-^77* 


10— *7^* 
1 \J~>f 7* 


1 U— ;*» 1 ■ 




10_7Z.1 * 

1 U .H 1 * 


1 0— '>A.7* 

lU— ;07* 


in— 7A7* 

lO— .'07* 


1 O— ;07* 


1 u— wu* 


1 0— a'XO* 

1 U— •jU* 


1 n— a'7n* 
1 u— •jU* 


in— a TO* 

lU— •7U* 


in— a7i 
10— 871 


lA— a71 


1 u— •ou* 


1 O— aAO* 
1 u— BOU* 


in— aAn* 

lU— •OU* 


in— aAn* 
lU— •Ov* 


in— aAi 
lU— •01 


in— aAi 
10— ilOl 


1 U— J J* 


10— 77* 

IV/— 5 J* 


in— 77* 

lU— jj* 


in— Z.O* 

lU— hU* 


1 n— z.n* 

lO— hO* 


in— 

lU— HO* 


1 W— 13 1" 


10-1 "II * 

1 \J 13 1" 


in— 1 ^1 * 

1 V 15 1" 


1 0— 1 77* 
1 1/— 1 f 7* 


in— 1T7* 

1 U— 1 f 7* 


in— 1 T7* 

1 U— 1 f 7* 


1 U-CCJ* 


in— 777* 
1 U— CC J* 


in— 777* 
1 U^cc J" 


in— 777* 
1 U— cc J* 


in— 777* 
1 U— CC7* 


in— 777* 
1 U— c tj* 


in— 7^1 * 

1 U— cn 1 " 


in— 7ii * 

1 U— CH 1 ■ 


in— 7/1* 


1 n— 7AS* 
1 U— cOO* 


in— 7Aft* 

1 U— cOo* 


in— 7Aft* 

1 U— cOo* 


lU— jcf * 


10-777* 
1 U— jcr * 


in— 777* 


in— 777* 


in— 777* 
lU— 7£f * 


in— 777* 
lU— 7Cf * 


10— T<>n* 

1 U— j3U* 


in.7^o* 

1 U— jjU* 


in— 7cn* 

1 U— j7U* 


in— 7cn* 

1 U— j7U* 


1 n— 7cn* 

1 U— 77v* 


in— 7cn* 

lU— 77U* 


in— in?* 

lU— " 


1 0— i07* 
1 U— *»Uf 


1 n— in7* 

1 V/— *»Uf " 


lO— A07* 


in— i07» 


iri-A07* 


in-i'Xi * 


in— i^i * 


10— i^l* 


in— i'xi* 


1 1 * 


1 A-i71 * 




10— iiCt* 
1 U— *»Oj" 


lO— iR't* 


1 V— hOj" 


1A-iA7* 
IU^»07^ 


1 W— •k»7* 


10— cn/L* 

lU— jUO* 


in— cnA* 

lU— 3UO* 


in— cnA* 

1 U— 7UO* 


in— cnA* 

lU— 7UO* 


in— CAA* 
lU— 7UO* 


in— c/%A* 

lU— TUO* 


10-^^1 * 


in— C71 • 


in— c^i* 


in— Ci7* 

1 U— 7*» r " 


in— ^7* 


in— Ci7* 


1 U— 3oj* 


in— ^fl7* 

lU— joj" 


in— cfl7* 


in— cfl'7* 

lU— 707" 


in— cft7* 


in— cs'7* 

iU^7o7* 


10— AO^* 
' Iv— OUj* 


in— iUiT* 
lU— OWj* 


in— iui7* 


IW— OU7* 


in-An7* 


in-Ar7* 


in— iL7<:* 

' lU— Of3* 


in— A7C* 

lU— O' 3* 


in— A7C* 

lU— 0» 7" 


in.A7C* 
It/— 0» 7" 


in-A7c* 

It/— Of 7* 


lA— AT^* 
11/— O' 7* 


' lU Of 3" 


in— A7^* 


in— 70^* 

lU^f U7" 


in— 7nc* 

lU^r v7" 


in— 70^» 

lU^r U7" 


in— 7r>^* 


in— 
t lU— f 30* 


1 n— 7CA* 

1 U— f jO* 


in— 7CA* 

lU— f 70* 


1 n— 7CA* 

lU— f 70* 


in— 7^* 

lU^f TO* 


in— 7CA* 

lU^f TO* 


in— 77Q* 

r lU— r f T" 


1 n— 770* 

1 U— f f T" 


in— 770* 


in— 770* 


in— 770* 


10— 770* 


t in— RT7* 


1 n-ii^7* 


in— if^?* 


in-fi^7* 




in-ji^7* 


in— ftco* 

■ 1 U— o3t'* 


1 n— SCO* 
1 1/— o jy* 


in— SCO* 
1 u— o7y* 


in— ftco* 
lu— o7y* 


1 n— ACQ* 
1 u— 07y* 


ii/^j7y* 


in— oli* 


in— oii* 
1 u— y 


in— oii* 


in— oii* 
lu— y IS* 


in— 01Z,* 
1 \t^y 1 *» * 


in— Qii* 


in— OT7* 

' lU— TJf ■ 


in— 077* 

lu— yjf ■ 


1 n— 077* 

lu— yjf * 


1 n— 077* 

lu— yjf * 


1 n— 077* 

iu— yjf * 


1 n— 077* 

lu— y7f * 


1 n— oflo* 

' 1 U— TOT* 


1 n— ofto* 
1 u— yoy* 


in— ofio* 
lu— yoy* 


in— ofio* 
lu— yoy* 


in— QBO* 

lu— yoy* 


in— QBO* 

IV/— yoy* 


r in->CT* 

' 1 U . 3 J* 


in— • ^T* 


in— • CT* 


in— • CT* 


1 A— -O^* 


in— -n'^* 

1 V/^, V/7" 


r in— -^n* 

' lU— , cU* 


1 n— • 5n* 

lU— , cU* 


1 n— • 7n* 


in— -70* 
t\r~, cu* 


in— •70* 

lU^, cU* 


in— • TO* 

1 V/^» cV* 


1 n— • AO* 
1 v^; ot* 


in— -AO* 
lu— »oy" 


1 n— • AO* 


in— -AO* 

llr",oy* 


in— -AO* 
lu— ,oy* 


in- •AO* 
lu^.oy* 


r 10-<84* 






10-<84* 




10-<84* 


' .10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


10-=09* 


' 10-S81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


10-=81* 


' 10-=99* 


10-=99* 


10-=99* 


10-=99* 


10->53* 


10->53* 


' 10->73* 


10->73* 


10->73* 


10->73* 


10->73* 


10->73* 


, 10-741* 


10-763* 


10-763* 


10-763* 


10-763* 


10-763* 


' 10-330* 


10-330* 


10-330* 


10-330* 


10-330* 


10-330* 


r 10-360* 


10-360* 


10-360* 


10-360* 


10-360* 


10-360* 



10-173 10-173* 



10-48 

10-173 

10-223 



10-48 

10-173 

10-223 



10-48 10-48 10-48 10-A8 10-151 
10-173 10-173 10-173 '0-173 10-223 
10-223* 10-241 10-241 10-241 10-241 



10-151 10-151 
10-223 10-223 
10-241 10-241 



-2^1 10-241 10-241 10-241 10-241. 10-268 10-268 ^10-268 10-281 10-281 10-281 10-527 10-327 jpJ0j|27 
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SEO 02P8 



RMDT 
RMEC1 
RMEC2 
RflERl 



RMER2 

RMLA 

RMHR2 

RMOF 

RMR 

RMSN 

RMUC 

ROA 

ROB 

ROSTA 

R0ST6 

SAVREG 

SC 

SCO 

SCI 

SC2 

SC5 

SC4 



10-327 
10-350 
10-407 
10-A83 
10-506 
10-506» 
10-5A7 
10-603 
10-675 
10-705 
10-756» 
10-779* 
10-837 
10-859 
10-914 
10-914* 
10-937 
10-989 
10-:53 
10-; 20* 
10-; 89 
10-<84 
10-=09 
10-=09 
10-=81* 
10-=99* 
10->73 
10-763 
10-330 
4-774* 
4-780* 
4-78U 
4-769* 
10-837* 
10-989* 
i0-=99 
4-779* 
10-361 
4-771* 
4-773* 
4-778* 
4-776* 
4-672* 
4-775* 
4-764* 
4-692* 
4-691* 
7-0* 
7-0* 
22-1* 
4-614* 
4-726* 
4-727* 
4-728* 
4-729* 
4-730* 



10-327 

10-350 

10-407 

10-483 

10-506 

10-531 

10-547* 

10-603 

10-675 

10-705* 

10-756* 

10-779* 

10-837 

10-859 

10-914 

10-937 

10-937 

10-989 

10-:53 

10-; 20* 

10-; 89 

10-<84 

10-=09 

10-=09 

10-=81* 

10-=99* 

10->73 

10-763 

10-330* 

10-40 

10-151 

10-151 

10-151 

10-859* 

10-989* 

10-=99 

10-151 

10-151 
10-151 

10-151 

10-53 
9-114 



10-327 

10-350 

10-407* 

10-483 

10-506 

10-531 

10-547* 

10-603 

10-675 

10-705* 

10-756* 

10-779* 

10-837 

10-859 

10-914 

10-937 

10-937 

10-989 

10-: 53 

10-; 20* 

10-; 89 

10-<84 

10-=09 

10-=09 

10-=81* 

10-=99* 

10->73* 

10-763 

10-330* 

10-40 

10-151 

10-151 

10-151 

10-859* 

10-989* 

10—99* 

10-151 

10-151 
10-151 

10-151 

10-55 



10-327 

10-350 

10-407* 

10-483 

10-506 

10-531 

10-583 

10-603* 

10-675 

10-756 

10-779 

10-837 

10-837 

10-859 

10-914 

10-937 

10-937 

10-989 

10-; 03 

10-; 69 

10-; 89 

10-<84 

10-=09 

10-=81 

lO-=99 

10->53 

10->73* 

10-763 

10-330* 

10-40 

10-173 

10-173 

10-173 

10-859* 

10-: 53* 

10-330* 

10-173 

10-173 
10-173 

10-173 

10-151 



10-327 

10-350 

10-407* 

10-483 

10-506 

10-531 

10-583 

10-603* 

10-675 

10-756 

10-779 

10-837 

10-837 

10-859 

10-914 

10-937 

10-937* 

10-989 

10-; 03 

10-; 69 

10-; 89 

10-<84 

10-=09 

10-=81 

10-=99 

10->53 

10->73» 

10-763 

10-360 

10-40 

10-173 

10-173 

10-173 

10-859* 

10-: 53* 

10-330* 

10-173 

10-173 
10-173 

10-173 

10-151 



10-327 

10-350 

10-431 

10-483 

10-506 

10-531 

10-583 

10-675 

10-675 

10-736 

10-779 

10-837 

10-837 

10-859 

10-914 

10-937 

10-989 

10-: 53 

10-; 03 

10-; 69 

10-; 89 

10-<84 

10-=O9 

10-=81 

10-=99 

10->53 

10-741 

10-763* 

10-360 

10-151 



10-407 
10-914* 
10-: 53* 
10-330* 
10-330* 



10-327 

10-350 

10-43i 

10-483 

10-506 

10-531 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-837* 

10-859 

10-914 

10-937 

10-989 

10-:53 

IO-;03 

10-; 69 

10-; 89 

10-<84 

10-=09 

10-=81 

10-=99 

10->53 

.10-741 

10-763* 

10-360 

10-151 



10-407 

10-914* 

10-:53* 

10-331 

10-330* 



10-327 

10-350 

10-431 

10-483 

10-506 

10-531* 

10-583 

10-675 

10-675 

10-756 

10-/79 

10-837 

10-859 

10-859 

10-914 

10-937 

10-989 

10-: 53 

10-; 03* 

10-; 69 

10-; 89* 

10-<84 

10-=09 

10-=81 

10-=99 

10->53 

10-741 

10-763* 

10-360 

10-173 



10-407* 
10-914* 
10-; 03* 
10-331 
10-330* 



10-^27* 

10-350* 

10-431 

10-483 

10-506 

10-531* 

10-583 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 03* 

10-; 69 

IO-;89* 

10-<84 

10-=09 

10-=81 

10-=99 

10->53* 

10-741 

10-763* 

10-360 

10-173 



10-431 
10-914* 
10-; 03* 
10-360* 
10-331 



10-327* 

10-350* 

10-431 

10-483 

10-506 

10-547 

10-583* 

10-675 

10-675 

10-756 

10-779 

10-837 

10-859 

10-859 

10-914 

10-937 

10-989 

10-:53 

10-; 03* 

10-; 69 

10-<84 

10-<84 

10-=09 

10-=81 

10-=99 

10->53* 

10-741 

10-330 

10-360 



10-431 
10-937* 
10-; 2C* 
10-360* 
10-331 



10-327* 

10-350* 

10-431* 

10-483 

10-506 

10-547 

10-583* 

10-675 

10-675* 

10-756 

10-779 

10-837 

10-859 

10-859* 

10-914 

10-937 

10-989 

10-:53 

10-; 20 

10-; 69 

10-<84 

10-<84 

10-=09 

10-=81 

10-=99 

10->53* 

10-741* 

10-330 

10-360* 



10-431* 
10-937* 
10-; 20* 
10-360* 
10-360* 



10-<84* 10-<84* 10-<84* 10-=09* 10-=09* 10-=09* 



10-173 10-173 



10-350 

10-407 

10-431* 

10-483 

10-506 

10-547 

10-603 

10-675 

10-675* 

10-756 

10-779 

10-837 

10-859 

10-914 

10-914 

10-937 

10-989 

10-:53 

10-; 20 

10-; 69* 

10-<84 

10-<84 

10-=09 

10-=81 

10-=99 

10->73 

10-741* 

10-330 

10-360* 



10-837* 

10-937* 

10-=81 

10-361 

10-360* 



10-350 

10-407 

10-431* 

10-483 

10-506 

10-547 

10-603 

10-675 

10-705 

10-756 

10-779 

10-837 

10-859 

10-914 

10-914 

10-937 

10-989 

10-:53 

10-; 20 

10-; 69* 

10-<84 

10-<84 

10-=09 

10-=81 

10-=99 

10->73 

10-741* 

10-330 

10-360* 



10-837* 

10-937* 

10-=81 

10-361 

10-360* 



10-350 

10-407 

10-483 

10-483* 

10-506 

10-547 

10-603 

10-675 

10-705 

10-756* 

10-779* 

10-837 

10-859 

10-914 

10-914 

10-937 

10-989 

10-. 53 

10-;20 

10-; 89 

10-<84 

10-=09 

10-=09 

10-=81* 

10-=99*- 

10->73 

10-741* 

10-330 



10-837* 
10-989* 
10—81 • 

10-361 



SCOPf <.-60^» 10-6? 10-151 10-17^ ^0-2^5 10-P41 10-268 10-281 10-327 10-350 10-407 10-451 10-485 l^f'O'^ 
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fROSS REFERENCE TABLE (CREF vOI-05 ) 



SEQ 0?Vj 





10-S31 


10-547 


10-583 








10- -69 




in-a^s 








10-1 51 • 


10-1 73* 

1 W I f J 






10-583* 

^\J JO J 


10-603» 

' W WW-* 






1ft--flQ* 


10-<84* 

1 w ^w" 




?s-sa 




P5-40 

C J "tw 




4-760* 








4-601' 


9-24 


9-71 






10-504 

1 w >W^ 


10-520 




10-953 


1 0- ■ 08 

1 W • WW 


1 0- : 68 




10- ''90 


10-858 




« TART 


5-1 


9-1 •«' 


19-1 


^TARTI 


5-3 


9-17' 




^TARTP 




9-19' 




^TKI MT 








■J • 


13-1 


13-5' 






4-601 # 

~ WW 1 " 








4-601 

~ WW 1 


4-601' 






4-601 


4-601' 




SIJ02 


4-601 

~ WW ' 


4-60T 




SW03 


4-601 


4-601' 




SW04 


4-601 


4-60T 




SW05 


4-601 


4-60T 




SU06 


4-601 


4-601' 




sue 7 


4-601 


4-60T 




SW08 


4-601 


4-601' 






4-601 


4-601' 




sui 


4-601 4^ 






SU10 

JOT 1 V 


4-6014^ 






swii 


4-601' 






sui 2 

jw 1 c 


4-601' 






SW1 3 


4-601' 






sui 4 


4-601' 






sui 5 


4-601' 


10-59 




SU2 


4-601' 






su3 


4-601' 








4-601' 

~ WW 1 " 






SU5 


4-601' 






SU6 


4-601' 






SU7 


4-601' 






SU8 


4-601' 








4-601' 






SUR 


6-0' 

w W^ 


9-24 


9-?4 




14-1 


14-1 


14-1 


SURFG 


5-1' 


9-24 


9-29 


TAP 


4-721' 






TBI rvE 

IDA ■ WW 


4-601' 






TEST1 


10-20 


10-20 


10-20' 


TEST10 


10-302 


10-302 


10-302' 


TESTIi 


10-348 


10-348 


10-348' 


TEST12 


10-372 


10-372 


10-372' 


TEST13 


10-429 


10-429 


10-429' 


TESTU 


10-452 


10-452 


10-452' 


TESTIS 


10-504 


10-504 


10-504' 


TESn6 


10-520 


10-520 


10-520' 



10-603 
10-; 89 


10-675 
10-<84 


10-705 
lO-=09 


10-756 
10-=81 


10-779 
10-=99 


10-837 
10->53 


0-859 
10->73 


10-914 
10-741 


1 0-937 
10-763 


10-989 
10-a3G 


10-223* 
1 0-675 » 
10-=09« 
25-41 


10-241* 
10-675* 
10-=81* 
25-45 


10-268* 

10-675* 
10-=99* 
25-46 


10-281* 
10-756* 
10->53* 


10-327* 
10-779* 
10->73* 


10-350* 
10-857* 
10-741* 


10-407* 

1 A DC Aa 

10-859* 
10-?63* 


10-431* 

^ A A1 / A 

10-914* 
10-330* 


10-483* 

• 0-93/'* 

io-a60* 


10-506* 
lO-;05* 
25-36 


10-20 
10-545 
10-; 18 


10-82 
10-565 
10-; 39 


10-17- 
10-601 
10-; 87 


10-189 
10-620 
10-<41 


10-239 
10-689 
10-=07 


10-256 
10-726 
10-=29 


10-279 
10-777 
10-=97 


10-302 
10-803 
10->17 


10-348 
10-857 
10->71 


10-372 
10-880 
10->96 


19-1 





















10-:53 
10-960 

10-531* 
10-; 20* 
25-37 



10-429 
10-935 
10-761 



9_^^» 9-3^. 9-29 10-59 13-1 13-1 15-1 13-1* 15-1* 13-1* 15-1* 
14-1 19-1 19-1 19-1* 
19-1 19-1 19-1 



I 7 

'ESTV ^0-545 10-S«5# SfO 0??1 
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CZRMRBO RM05/5/2 DU POR TST 1 MACRO VOA.OO 4-APR-81 18:06:25 PAGE S-19 
fROSS REFERENCE TABLE (CRE." VOI-05 ) 



SEO Ot??.-- 



TEST? 

TEST20 

TEST?! 

TEST22 

TEST23 

TEST24 

TEST25 

TEST26 

TEST27 

TEST3 

TEST 30 

TEST31 

TEST32 

TEST33 

TEST34 

TEST35 

TEST36 

TEST37 

TESTA 

TEST40 

TESTAT 

TESTA2 

TEST43 

TESTAA 

TESTA5 

TESTA6 

TEST47 

TESTS 

TEST50 

TEST51 

TEST6 

TEST7 

TESTNO 

TIME 

TIMEA 

TIME AM 

TIMEAP 

TIMES 

TIMEBM 

TJMEBP 

TIMES 

TKVEC 

TOLER 

TPVEC 

TRAPVE 

TRE 

TRTVEC 
TST1 
TST10 
TST11 

Tsn2 

TSn3 
TSTK 
TST15 

rsn6 



10-82 

10-565 

10-601 

10-620 

10-689 

10-726 

10-777 

10-803 

10-857 

10-171 

10-880 

10-935 

10-953 

10-:08 

10-:68 

10-; 18 

10-; 39 

10-; 87 

10-189 

10-<A1 

10-=07 

10-=29 

10-=97 

10->17 

10->71 

10->96 

10-761 

10-239 

10-790 

10-958 

10-256 

10-279 

9- 80 
7-OM 

10- >73 
7-0# 
7-OM 
7-OM 
7-OM 
7-OM 
7-OM 
7-OM 
A-601* 

10-151 
4-601# 
4-601 # 
4-61 3# 
4-60 1# 
9-84 
10-302# 
10-348* 
10-372* 
10-429# 
10-452* 
10-504* 
10-520* 



10-82 

10-565 

10-601 

10-620 

10-689 

10-726 

10-777 

10-803 

10-857 

10-171 

10-880 

10-935 

10-953 

10-:08 

10-:68 

10-; 18 

10-; 39 

10-; 87 

10-189 

10-<41 

10-=07 

10-=29 

10-=97 

10->17 

10->71 

10->96 

10-761 

10-239 

10-790 

10-958 

10-256 

10-279 

23-8* 

10-151 

10->73* 

9-5B* 
10-151* 

9-58* 

9-58* 
10-173* 

9-58* 
10->53 
19-1* 
10-173 

9-24* 
10-327 

10-20* 

26-8 

26-8 

26-8 

26-8 

26-8 

26-8 

26-8 



10-82* 

10-565* 

10-601* 

10-620* 

10-689* 

10-726* 

10-777* 

10-803* 

10-857* 

10-171* 

10-880* 

10-935* 

10-953* 

10-: 08* 

10-:68* 

10-; 18* 

10-; 39* 

10-; 87* 

10-189* 

10-<41* 

10-=07* 

10-=29* 

10-=97* 

10->17* 

10->71* 

10->96* 

10-761* 

10-239* 

10-790* 

10-958* 

10-256* 

10-279* 

10-151 

10->73* 

10-151 

10-151* 

10-151* 

10-173 

10-173* 

10-173* 

10->53 

19-1* 

12-42* 

9-24* 

10-350 

26-5 



10-151* 

12-30* 

10-151* 

10->53 

10-151* 

10-173* 

10->73 

10-173* 

10->53* 



10-173 
12-32* 
10-151* 

10->53 
10-173* 

10->73 
10->73 



10-173 
25-46 



10-741 



10-763 
10->73 



10-173* 10-223* 10-241* 10-=81* 10-=99* 10->55 10->53* 10->53* 



10->73- 



10-931 10-931 10-961 10-961 



K 7 

TSn? iO-545# 26-8 

SFO 0^53 



I 
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L 7 

4-APR-81 18:06:25 PAGE S-20 



SEO 0234 



TST1AA 

TST2 

TST20 

TST21 

TST22 

TST23 

TST24 

TST25 

TST26 

TST27 

1ST3 

TST30 

7ST31 

TST32 

TST33 

TST3A 

TST35 

TST36 

TST37 

TSK 

TST40 

TSUI 

TSTA2 

TST45 

TST44 

TST45 

TST46 

TSTA7 

TST5 

TST50 

TST50B 

TST51 

TST51B 

TST52 

TST6 

TST7 

rSTADR 

TSTERR 

TSTNUW 

TYPOS 
TYPE 



TYPOC 

TYPON 

TYPOS 

UO 

Ul 

U3 

UNS 

UPE 

W 



10-17* 

10-82* 

10-565* 

10-601* 

10-620* 

10-689* 

10-726* 

10-777* 

10-803# 

10-857* 

10-171* 

10-880* 

10-935* 

10-953* 

10-:08* 

10-:68* 

10-; 18* 

10-; 39* 

10-; 87* 

10-189* 

I0-<41* 

10-=07* 

10-=29# 

10-=97* 

10->17* 

10->71* 

10->96* 

10-761* 

10-239* 

10-790* 

10-830 

10-331 

10-960 

10-361 

10-256* 

10- 279* 
9-91 

23-10* 
7-0* 
25-AA 

11- 1 
9-6 

11-1 

18- 1 

19- 1 
9-8 

22-1* 

9- 47 
4-618* 
4-619* 
4-620* 
4-684* 
4-631* 
4-657* 

10- 223 
10-281 



11-1 

26-8 

26-8 

26-8 

26-8 

26-8 

26-8 

26-11 

26-11 

26-11 

26-8 

26-11 

26-11 

26-11 

26-11 

26-11 

26-11 

26-11 

26-14 

26-8 

26-14 

26-14 

26-14 

26-14 

26-14 

26-14 

26-14 

26-8 

10-330 

10-358* 

10-360 

10- 365* 
26-8 
26-8 
26-5* 

14-1* 

25-45 

11- 1 
9-29 

11-1 
19-1 
19-1 
9-104 



10-33U 
10-36U 



25-32 
25-46 
15-1 
9-33 
11-1 
19-1 
19-1 
15-1 



25-33 


25-34 


?5-35 


25-36 


25-37 


25-48 










22-1* 






9-50 


9-61 


9-38 


9-46 


9-48 


14-1 


14-1 


15-1 


15-1 


15-1 


19-1 


19-1 


19-1 


19-1 


19-1 


19-1 


19-1 


20-1 


20-1 


22-U 


15-1 


19-1 


22-1* 







25-38 



9-69 
15-1 
19-1 



25-39 25-AO 25-A1 25-A2 25-A3 



9-80 
15-1 
19-1 



9-87 
15-1 
19-1 



9-102 
15-1 
19-1 



9-105 9-106 
16-1 17-1 
19-1 10-1 



9-49 22-1* 



10-151 
10-223 
10-327 



10-151 
10-241 
10-327 



10-151 
10-241 
10-327 



10-151 
10-241 
10-327 



10-173 

10-241 
10-327 



10-173 
10-241 
10-350 



10-173 
10-241 
10-350 



10-173 
10-241 
10-350 



10-223 
10-268 
10-350 



10-223 10-223 
10-268 10-268 
10-350 10-407 



10-223 10-223 
10-281 10-281 
10-407 10-407 



C-431 TO-431 10-451 10-483 10-483 10-433 10-483 10-483 10-483 10-506 10-506 10-506 10-506 10-506 

S£0 0235 
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CZRMRBO RM05/3/2 DU POR TST 1 MACRO VOA.OO 4-APR-8I 18:06:25 PAGE S-21 
CROSS REFERENCE TA6LE (CREF VOl-05 ) 



SEO 0236 





10-506 


10-531 




10-603 


10-603 




10-705 


10-705 




10-859 


10-859 




10-:53 


10-:53 




10-<84 


10-<84 




10-<84 


10-<84 
10-=09 




10-=09 




10-741 


10-741 


WSET 


8-377# 


10-151 




10-223 


10-223 




10-268 


10-268 




10-327 


10-327 




10-407 


10-407 




10-483 


10-483 




10-531 


10-531 




10-547 


10-547 




10-603 


10-603 




10-675 


10-675 




10-756 


10-756 




10-837 


10-837 




10-859 


10-859 




10-937 


10-937 




10-:53 


10-: 53 




10-; 20 


10-; 20 




10-; 89 


10-; 89 




10-=09 


10-=09 




10-=81 


10-=81 




10->73 


10->73 




10-763 


10-763 




10-360 


10-360 


WATCH 


7-OM 


10-151 




10->53 


10->53* 


WCE 


4-632# 




WCF 


4-675# 




JJLE 


4-681# 




WRL 


4-662# 


10-151 




10-327 


10-350 




10-547 


10-583 




10-779 


10-837 




10- ,03 


10-; 20 




10-=09 


10--81 




10-330 


10-360 



10-5^^1 10-531 10-531 

10-603 10-675 10-675 

10-756 10-756 10-756 

10-859 10-859 10-914 

10-; 03 10-; 03 10-; 03 

10-<84 10-<84 10-<84 

10-=09 10-=09 10-=09 

10—09 10-=09 10-=81 

10-741 10-763 10-763 

10-151 10-151 10-151 

10-223 10-223 10-241 

10-281 10-281 10-281 

^0-l2/ 10-350 10-350 

10-407 10-407 10-407 

10-483 10-483 10-483 

10-531 10-531 10-531 

10-583 10-583 10-583 

10-603 10-603 10-675 

10-675 10-675 10-675 

10-756 10-756 10-756 

10-837 10-837 10-837 

10-914 10-914 10-914 

10-937 10-937 10-989 

10-;03 10-;03 10-;03 

10-; 69 10-; 69 10-; 69 

10-; 9U 10-<84 10-<84 

10-=09 10-=09 10-=09 

10-=99 10-=99 10-=99 

10->73 10->/3 10->73 

10-763 10-763 10-330 

10-360 10-360 10-360 

10-151* 10-173 10-173* 

10->53* 10->73 10->73 



10-151 10-173 10-173 

10-350 10-407 10-407 

10-583 10-603 10-603 

10-837 10-859 10-859 

10-; 20 10-; 69 10-; 69 

10-=81 10-=99 10-=99 
10-360 



10-547 10-547 10-547 

10-675 10-675 10-675 

10-756 10-779 10-779 

10-914 10-914 10-914 

10-; 20 10-; 20 10-; 20 

10-<84 10-<84 10-<84 

10-=09 10-=09 10-=09 

10-=81 10-=99 10-=99 

10-763 10-930 10-330 

10-151 10-151 10-173 

10-241 10-241 10-241 

10-281 10-281 10-281 

10-350 10-350 10-350 

10-431 10-431 10-431 

10-483 10-506 10-506 

10-531 10-531 10-531 

10-583 10-583 10-583 

10-675 10-675 10-675 

10-675 10-705 10-705 

10-756 10-779 10-779 

10-837 10-837 10-837 

10-914 10-914 10-914 

10-989 10-989 10-989 

10-; 03 10-; 03 10-; 03 

10-;69 10-;69 10-;69 

10-<84 10-<84 10-<84 

10-=09 1C-=09 10-=09 

10-=99 •0-=99 10-=99 

10->73 10-741 10-741 

10-330 10-330 10-330 
10-360 

10-223 10-223* 10-241 

10->73* 10->73* 10-741 



10-223 10-223 10-241 

10-''»31 10-431 10-483 

10-675 10-675 10-675 

10-914 10-914 10-937 

10-; 89 10-; 89 10-<84 

10->53 10->53 10->73 



10-547 10-583 10-583 

10-675 10-675 10-675 

10-779 10-779 10-837 

10-937 10-937 10-937 

10-; 69 10-; 69 10-; 69 

10-<84 10-<84 10-C84 

10-=09 10-=09 10-=09 

10->53 10->53 10->53 

10-330 10-330 10-360 

10-173 10-173 10-173 

10-241 10-243# 10-268 

10-327 10-327 10-327 

10-350 10-350 10-350 

10-431 10-431 10-431 

10-506 10-506 10-506 

10-547 10-547 10-547 

10-583 10-583 10-603 

10-675 10-675 10-675 

10-705 10-705 10-705 

10-779 10-779 10-779 

10-859 10-859 10-859 

10-914 10-914 10-937 

10-989 10-989 10-: 53 

10-; 03 10-; 30 10-; 20 

10-; 69 10-; 89 10-; 89 

10-<84 10-<84 10-<84 

10-=09 10-=12/r 10-=81 

10->53 10->53 10->53 

10-741 10-741 10-741 

10-330 10-330 10-330 

10-241* 10-=81 10-=81* 

1 0-741 • 10-763 10-763* 



10-241 10-268 10-268 

10-483 10-506 10-506 

10-675 10-705 10-705 

10-937 10-989 10-989 

10-<84 10-<84 10-<84 

10->73 10-741 10-741 



10-583 10-583 10-603 

10-675 10-675 10-705 

10-837 10-837 10-837 

10-937 • 10-989 10-989 

10-; 89 10-; 89 10-; 89 

10-<84 10-<84 10-<84 

10-=09 10-=09 10-=09 

10->73 10->73 10->73 

10-360 10-360 10-360 

10-173 10-173 10-223 

10-268 10-268 10-268 

10-327 10-327 10-327 

10-350 10-407 10-407 

10-431 10-483 10-483 

10-506 10-506 10-506 

10-547 10-547 10-547 

10-603 10-603 10-603 

10-675 10-675 10-675 

10-705 10-756 10-756 

10-779 10-779 10-779 

10-859 10-859 10-859 

10-937 10-937 10-937 

10-:53 10-:53 10-:53 

10-;20 10-;20 10-;20 

10-;89 10-;89 10-;89 

10-<84 10-<84 10 -=09 

10-=81 10-=81 10-^81 

10->53 10->53 10->53 

10-741 10-763 10-763 

10-330 10-360 10-360 

10-=99 10-=99* 10->53 

12-33 12-35* 12-37* 



10-281 10-281 10-327 

10-531 10-531 10-547 

10-756 10-756 10-779 

10-:53 10-:53 10-;03 

10-=09 10-=09 10-=09 

10-763 10-763 10-330 
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SEO 0237 







6-0 
















C / ^ M 


^ A 

6-0 


^ A 

O-U 


o-U 


A— n 
o-U 


A— n 
o-U 






#ttc c r A 

»»cSCA 


















• •ftfCl IT 


^-60 1* 


1 A OA 

iO-2C 


1 A OO 

iO-82 


1 A— 1 71 


1 n— 1 fio 
I U- 1 Bt 


1 A— 07O 
1 U-C JT 


1 A— OQA 
1 U-c50 


1 A— 07O 
lU-Cf T 






1 A C/ C 


lU-5o5 


1 A— Am 


1 n— Aon 


1 n— ABO 

1 U"OCT 


1 n-70A 
lU-f CO 


1 U f ' ' 




I0-:oo 


lU-; lo 


1 A_ • TO 


1 A— .07 

1 Of 


1 n— I'Z 1 
I U— <*» 1 


1 f»— -n? 
1 u— -u^ 


1 ri--oo 

1 U--CT 


1 n--o7 

1 U -T^ 
























00—1 
CC~I 


00—1 


00—1 


00—1 
CC- 1 


00-1 
CC- 1 


05-1 
CC" 1 


00-1 
CC- 1 




1 _iLA 1 J» 
















• A r T 1 
• •ACT 1 


















«r A T r 
.»CATC 


*»— OVlw 


5-1 
















*»— 5V 


5— *»0 














• •cut' 


/ _CQ1 m 


11—1 
1 1 - 1 
















/ _C01 « 

5y 1 w 


1 Z — 1 

Ih— I 














. »CnMT 




1 C — 1 














.»K1XJ(. 




on— 1 
cU— 1 














CDC Ar\ 




1 Q— 1 

I y— 1 














CC AliC 




01—1 














• •oLUr' 


/._COi m 


1 7—1 

1 J— 1 


















50—1 














• T von 


*»— jV^^ 


1 a— 1 

1 0 1 














. » 1 I rt 


*»— jY 1 ^ 


1 A— 1 

1 0 1 














CT VDT) 
. 9 1 TrTJ 




1 7—1 














c ni lA T 
•tUUA 1 


Z— ^QA« 


z— Am 

•♦— OU 1 
















z_^on« 


*• — JTO 














CC T| IP 


*t*" JTUW 


*• f Oj 














CUDU T 

. SWKHi 




Z— ^OO 
















4-590* 
















AA 




in— 1 ^1 

1 U 1 J 1 


in-1 77 

1 U 1 1 J 












Af\f\A 

AUUU 




in— -^7 

1 V . 5 J 














Af\fSl 


1 U— oocw 


in— 01Z 
1 u y 1 *• 


1 n— Q77 

1 U Tjr 












Ar\r\/ 
AUUh 


1 V/— v.*» 


in— <'Sz 


1 A-_A0 

lU Ut 












LC 


1 A_1 Q1 « 

1 U 1 V 1 » 


1 A_007 
1 \J—CCJ 


in— OZ1 












r r 1 




1 n— OAR 

1 U— cOO 


in— 0H1 

1 U c O 1 














Z_1 '>'^ 

1 ru.ozi 


in— 77 

lU— jj 


in— 77 

1 U JJ 


in— zn 
1 u— *»u 


in— zn 
1 u^»u 


in-zfl 

lU— *io 


1 u ••o 


1 u *»o 




10-327 


10-350 


in— zn7 


in— ^07 


10—^07 
lU^tUf 


1 U J 1 


i U J 1 




lU— jUO 


in— <nA 

lU DUO 


1 n— cnA 

1 U jUO 


in— CS7 

1 U 50 J 


in— An7 

1 U— OUj 


10— A7C 


1 A— A7C 
lU^O' J 


ID— 7CA 
1 U^f jO 




iru. fl77 
1 U^tJjf 


in— SCO 

! U— o5t 


in— SCO 

1 U o5t 


in— DCo 

lU— o5t 


in— flco 

1 U— OJT 


in— Q1Z 

lU^T l*» 


1 V^T 1 *» 


10— 01 A 
1 u^y 1 *» 




10— oso 


1 n— osQ 

1 U TOT 


in— oso 

1 U^tOt 


1 U^ . J J 


in— -^7 

1 U^. J J 


in— -AO 

lU— , Ot 


in— -AO 

JU^.Ot 


1 n- • RQ 
1 u , oy 




10— ^fiZ 


1 n— -no 

1 U^-Ut 


in— -no 

1 U— — Ut 


1 n— -no 

1 U — Ut 


in— -no 

1 vr~— Ut 


1 A AO 

1 V/— — vT 


irt— -no 

1 W^— UT 


in--R1 

1 V — O 1 




10— -oo 


in— 9Z1 

1 u— . •» 1 


1 n— 0A7 

1 U . Oj 


1 n— 371 


in— a7i 

1 U^»J 1 


in— aAi 


in— a^i 




n DATA 


z_zoi jr 


1 n— 707 
lU— JCf 


in-7cn 


1 n— zn7 

1 U *»Uf 


1 n—z 71 
lU *J 1 


in— '(71 

lU— JJ 1 


in.CA7 

1 U 5*»f 


1 U— JO J 




in— • 3rt 
lU— . cU 


in— -AO 
lu— ;ot 


1 n— . no 
lu— ;ot 


1 n— -fli 
lu— -O 1 


in--ai 


in— -OO 

lU— -TT 


in»-oo 


lU" ' J J 




Z— ATII M 












r\f\ 




in— '^7 i 

lU Jj 1 


in— CA7 

lU— 5*»f 












CC 
CC 




in— 7CA 
ly— r 50 


in-770 
1 U fry 












CAif\mii 

CNULUn 


















tKHUK 


z_Ani M 
*»— OU 1* 


Q— 1 1 A 
T— 1 1 0 


1 n— 77 

lU— JJ 


1 n— 77 

lU-JJ 


in— zn 
lU— hU 


in— zn 
lU— *»u 


1 n— zfl 
1 u— *iO 


in.zR 

iU-*»0 




10-1S1 

1 w 1 J 1 


10-151 


10-151 


10-151 


10-151 


10-151 


10-151 

IV \ J \ 


10-151 

IV \ J \ 




10-151 


10-151 


10-173 


10-173 


10-173 


10-173 


10-173 


10-173 




10-173 


10-173 


10-173 


10-";73 


10-173 


10-173 


10-173 


10-223 




10-223 


10-241 


10-241 


10-241 


10-241 


10-241 


10-241 


10-241 




: 0-281 


10-281 


10-281 


10-327 


10-327 


10-327 


10-327 


10-327 




10-350 


10-350 


10-350 


10-350 


10-350 


10-350 


10-350 


10-350 




10-407 


10-407 


10-431 


10-431 


10-431 


10-431 


10-431 


10-431 




10-483 


10-483 


10-483 


10-483 


10-483 


10-506 


10-506 


10-506 



10-302 


10-348 


10-372 


10-429 


10-452 


10-504 


10-803 


10-857 


10-880 


10-935 


10-953 


10-:08 


10-^17 


10->71 


10->96 


10-761 


10-790 


1(>-a58 


22-1 


22-1 


22-1 


22-1 


22-y» 




10-48 


1 V^CC J 


10-223 


1 V Cf J 


1 V^t*t 1 


IlV-241 

1 w C*t 1 


10-431 


10-483 


10-483 


10-483 


10-483 


10-506 


10-756 


10-779 


10-779 


10-837 


10-837 


10-837 


1 0-01 4 


10-037 




10-^^7 

1 V/ T Jf 


10-0^7 


■> A-QAQ 
\J TOT 


1 0- - RO 

1 V # OT 


Iw— vo** 






10— 


10— <M 


10-rRI 


10--R1 

1 w^— O 1 


10--81 

1 w^— O 1 


10 OQ 

1 v^— TT 


1 A_-QQ 


1 \J — TT 


1 0-603 

1 V Ov J 


1 0-67S 


10-705 

1 r V J 


10-756 

1 V r 


10-779 

1 W fry 


10- -03 


10->73 


10-'»41 

IV • 1 


1 V . W J 


1 v^w Jv 


1 V 


10-48 


10-48 


10-58 


10-151 


10-151 


10-151 


10-151 


10-151 


10-151 


10-151 


10-151 


10-151 


10-173 


10-173 


10-173 


10-173 


10-173 


10-173 


10-223 


10-223 


10-223 


10-223 


10-223 


10-223 


10-241 


10-268 


10-268 


10-268 


10-268 


10-281 


10-327 


10-327 


10-327 


10-327 


10-327 


10-350 


10-350 


10-407 


10-407 


10-407 


10-407 


10-407 


10-431 


10-483 


10-483 


10-483 


10-483 


10-483 


10-506 


10-506 


10-506 


10-506 


10-506 


10-506 



CZPMftBO RM05/3/? DU POR TST 1 MACRO V04.00 
CROSS REFERENCE TABLE (CREF VOI-05 ) 



C 8 

i.-APR-81 18:06:25 PAGE M-^ 



SEO 0238 



ESCAPE 

FF 

FF1 

GETPRI 

GETSyR 

GG 

HH 

II 

JJ 

KK 

LL 

LLI 

mo 
m^ 

liORETA 
MSG 



MULT 
NEUTRA 



NEWrST 



NN 

NU'TST 



00 

POP 

PlJSH 



10-506 
10-583 
10-675 
10-675 
10-779 
10-837 
10-914 
10-937 
10-:53 
10-; 20 
10-<8A 
10-=09 
10-=81 
10-=99 
10->73 
10-a30 
10-861 

4- 60U 
10-567# 
10-304# 

A-601# 
A-601# 
10-622# 
1 0-691 # 
10-=31# 
10-37A# 
10->19* 
10-?92# 
10-al9# 
10-;41# 
10-955# 
10-805# 

5- 7* 
10-3# 
10-283# 
10-533* 
10-78A* 
10-; 05* 
10-=15* 
10-833* 

A-601* 
4-275* 
10-547 
10-;03 
10-830 
4-601* 
10-520 
10-:68 
10-865 
10->98* 
4-553* 
10-520 
10-:68 
10-454* 
4-601* 
4-601* 



10-531 
10-583 
10-675 
10-705 
10-779 
10-837 
10-914 
10-937 
10-:53 
10-; 20 
10-<84 
10-=09 
10-=81 
10-=99 
10->73 
10-830 
10-861 

10-583 
10-327 

9- 29 
10-675 
10-705 
10-=81 
10-407 
10->53 
10-830 
10-831 
10-; 69 
10-989 
10-837 

6-0 
10-20 
10-302 
10-545 
10-803 

10- ; 18 
1C-=29 
10-858 

10-151 

10-583 

10-; 20 

10-860 

10-20 

10-545 

10-; 18 

10-741 

10-20 

10-545 

10-; 18 

10-483 

18-1 

18-1 



10-531 
10-583 
10-675 
10-705 
10-779 
10-837 
10-914 
10-937 
10-:53 
10-; 69 
10-<84 
10-=09 
10--81 
10-=99 
10-741 
10-830 
10-861 

10-603 
10-350 

9-29* 



10-=99 
10-431 
10->73 
10-860 
10-861 
10-; 89 

10-859 

10-64* 

10-329* 

10-549* 

10-839* 

10-; 22* 

10-=83* 



10-531 
10-583 
10-675 
10-705 
10-779 
10-859 
10-914 
10-937 
10-:53 
10-; 69 
10-<84 
10-:^09 
10-=81 
10-=99 
10-741 
10-830 
10-861 



10-82 

10-348 

10-565 

10-857 

10-; 39 

10-=97 



10-531 
10-583 
10-675 
10-705 
10-779 
10-859 
10-914 
10-937 
10-: 53 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-831 
13-1 



10-153* 
10-352* 
10-585* 
10-861* 
10-; 71* 
10->01* 



10-531 
10-583 
10-675 
10-756 
10-779 
10-859 
10-914 
10-989 
10-: 53 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-741 
10-831 



10-171 
10-372 
10-601 
10-880 
10-; 87 
10->17 



10-531 

10-603 

10-675 

10-756 

10-779 

10-859 

10-914 

10-989 

10-; 03 

10-; 69 

10-<84 

10-=09 

10-=81 

10->53 

10-741 

10-831 



10-175* 
10-409* 
10-605* 
10-916* 
10-; 94* 
10->55* 



10-547 
10-603 
10-675 
10-756 
10-837 
10-859 
10-914 
10-989 
10-; 03 
10-; 69 
10-<84 
10-=09 
10-=81 
10->53 
10-763 
10-331 



10-189 
10-429 
10-620 
10-935 
10-<04 
10->71 



10-547 
10-603 
10-675 
10-756 
10-837 
10-859 
10-914 
10-989 
10-;03 
10-; 89 
10-<84 
10-=09 
10-=81 
10->53 
10-763 
10-860 



10-225* 
10-433* 
10-677* 
10-939* 
10-<07* 
10->75* 



10-547 
10-603 
10-675 
10-756 
10-837 
10-859 
10-937 
10-989 
10-; 03 
10-; 89 
10-<84 
10-=09 
10-=99 
10->53 
10-763 
10-860 



10-239 
10-452 
10-689 
10-953 
10-<17 
10->96 



10-547 
10-603 
1C-675 
10-756 
10-837 
0-859 
10-937 
10-989 
10-; 03 
10-; 89 
10-<84 
10-=09 
10-=99 
10->73 
10-763 
10-860 



10-247* 
10-485* 
10-707* 
10-094* 
10-<20* 
10-743* 



10-547 
10-603 
10-675 
10-756 
10-837 
10-859 
10-937 
10-989 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10->73 
10-763 
10-860 



10-256 
10-504 
10-726 
10-:08 
10-<41 
10-761 



10-547 
10-603 
10-675 
10-756 
10-837 
10-859 
10-937 
10-989 
10-; 20 
10-; 89 
10-<84 
10-=09 
10-=99 
10->73 
10-830 
10-860 



10-585 

10-675 

10-675 

10-779 

10-837 

10-914 

10-937 

10-:53 

10-; 20 

10-; 89 

10-<84 

10-=09 

10-=99 

10->73 

10-830 

10-860 



10-270* 
10-508* 
10-758* 
10-:55* 
10-<86* 
10-765* 



10-279 
10-520 
10-777 
10-:68 
10-=07 
10-790 



10-173 
10-603 
10-; 69 


10-223 
10-675 
10-; 89 


10-241 
10-675 
10-<84 


10-268 
10-705 
10-<84 


10-281 
10-756 
10-=09 


10-327 
10-779 
10-=09 


10-350 
10-837 
10-=81 


10-407 
10-859 
10-=99 


10-431 
10-914 
10->53 


10-483 
10-937 
10->73 


10-506 
10-989 
10-741 


10-531 
10-:53 
10-763 


10-82 
10-565 
10-; 39 


10-171 
10-601 
10-; 87 


10-189 
10-620 
10-<41 


10-239 
10-689 
10-=07 


10-256 
10-726 
10-=?9 


10-279 
10-777 
10-=97 


10-302 
10-803 
10->17 


10-348 
10-857 
10->71 


10-372 
10-880 
10->96 


10-429 
10-935 
10-761 

• 


10-452 
10-953 
10-790 


10-504 
10-:08 
10-858 


10-763 

10-82 

10-565 

10-; 39 

10-506 

20-1 

20-1 


I'O-1 71 
10-601 
10-; 87 

21-1 
21-1 


10-189 
10-620 
10-<41 


10-239 
10-689 
10-=07 


10-256 
10-726 
10-=29 


10-279 
10-777 
10-=97 


10-302 
10-803 
10->17 


10-348 
10-857 
10->71 


10-372 
10-880 
10->96 


•10-429 

10-935 
10-761 


10-452 
10-953 
10-790 


10-504 
10-:08 
10-858 



RELFAS A-20?# 10-225 10-20 10-327 10-32? 10-350 10-350 ^10-407 10-431 10-483 10-506 10-531 10-547 ^^J0j585 
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SEO 02A0 



REPORT 
RR 

SEIZE 



SELECT 



SETATA 

SETPRI 

SETTRA 

SETUP 

SKIP 

SLASH 

STARS 



SWITCH 

SURSU 

TIMER 

TRMTRP 

TSTREO 

TYPSIN 

TYPOEC 

TYPNAM 

TYPNUM 

TYPOCS 

TYPOCT 

TYPTXT 

USE REG 



10-605 
10-; 20 
4-601* 
10-:70# 
4-32# 
10-603 
10-763 
4-250* 
10-223 
10-327 
10-431 
10-506 
10-603 
10-675 
10-779 
10-914 
10-989 
10-; 89 
:0->73 
10-960 
4-454* 
4-601* 
22-1 
4-601* 
4-601* 
4-601* 
4-601* 
10-256 
10-504 
10-726 
10-:08 
10-<41 
10-761 
18-1 
4-377* 
4-601* 
4-579* 
22-1* 
4-487* 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 
4-601* 
10-a66* 



10-675 
10-; 69 

10-; 03 
10-151 
10-756 
10-330 
10-33 
10-223 
10-327 
10-431 
10-506 
10-603 
10-756 
10-837 
10-914 
10-: 53 
10-<84 
10-741 
10-360 
10-837 
10-18 
22-1 
9-24 



11-1 
9-29 

9-47 
15-1 

9-6 
11-1 



10-675 
10-; 89 

10-; 20 

10-173 

10-779 

10-360 

10-33 

10-223 

10-350 

10-431 

10-506 

10-603 

10-756 

10-837 

10-914 

10-: 53 

10-<84 

10-741 

10-360 

10-859 

13-5 

22-1 



10-675 
10-<84 



10-223 
10-837 

10-40 

10-241 

10-350 

10-483 

10-531 

10-675 

10-756 

10-837 

10-914 

10-:53 

10-<84 

10-763 

10-360 

10-914 

13-9 

22-1 



10-675 
10-<84 



10-241 
10-859 

10-40 

10-241 

10-350 

10-483 

10-531 

10-675 

10-756 

10-837 

10-914 

10-: 53 

10-=09 

10-763 

10-a60 

10-937 

19-1 

22-1 



10-756 
10-=09 



10-327 
10-914 

10-48 

10-241 

10-350 

10-483 

10-531 

10-675 

10-756 

10-837 

10-937 

10-; 03 

10-=09 

10-330 

10-360 

10-989 

22-1 



10-756 
10-=09 



10-350 
10-937 

10-'i8 

10-241 

10-350 

10-483 

10-547 

10-675 

10-756 

10-837 

10-937 

10-; 03 

10-=09 

10-330 

10-360 

10-:53 

22-1 



10-779 
10-330 



10-407 
10-<84 

10-151 
10-268 
10-350 
10-483 
10-547 
10-675 
10-756 
10-859 
10-937 
10-; 20 
10-=81 
10-330 



22-1 



10-779 
10-330 



10-431 
in-=09 

10-151 
10-281 
10-350 
10-483 
10-547 
10-675 
10-779 
10-859 
10-937 
10-; 20 
10-=81 
10-330 



22-1 



10-837 
10-360 



10-483 
10-=81 

10-151 

10-327 

10-407 

10-483 

10-583 

10-675 

10-779 

10-859 

10-937 

10-; 69 

10-=81 

10-330 



22-1 



10-859 
10-360 



10-506 
1C-=99 

10-173 
10-327 
10-407 
10-506 
10-583 
10-675 
10-779 
10-859 
0-937 
10-; 69 
10-=99 
10-330 



22-1 



10-914 10-937 10-; 03 



10-531 
10->53 

10-173 
10-327 
10-407 
10-506 
10-583 
10-675 
10-779 
10-859 
10-989 
10-; 69 
10-=99 
10-330 



22-1 



10-547 
10->73 

10-173 
10-327 
10-407 
10-506 
10-583 
10-675 
10-779 
10-859 
10-989 
10-; 89 
10-=99 
10-330 



22-1* 



11-1 



9-49 
15-1 
11-1 



15-1 



19-1 
11-1 



^0-58^ 
10-741 

10-223 

10-327 

10-431 

10-506 

10-603 

10-675 

10-779 

10-914 

10-989 

10-; 89 

10->53 

10-360 



5-5 


6-0 


6-0 


10-20 


10-20 


10-82 


10-82 


10-171 


10-171 


10-189 


10-189 


10-239 


10-239 


10-256 


10-279 


10-279 


10-302 


10-302 


10-348 


10-348 


10-372 


10-372 


10-429 


10-429 


10-452 


10-452 


10-504 


10-520 


10-520 


10-545 


10-545 


10-565 


10-565 


10-601 


10-601 


10-620 


10-620 


10-689 


10-689 


10-726 


10-777 


10-777 


10-803 


10-803 


10-857 


10-857 


10-880 


10-880 


10-935 


10-935 


10-953 


10-953 


10-: 08 


10-:68 


10-:68 


10-; 18 


10-; 18 


10-; 39 


10-; 39 


10-; 87 


10-; 87 


10-<03 


10-<05 


10-<16 


10-<18 


10-<41 


10-=07 


10-=07 


10-=29 


10-=29 


10-=97 


10-=97 


10->17 


10->17 


10->71 


10->71 


10->96 


10->96 


10-761 


10-790 


10-790 


10-358 


10-358 


10-363 


10-365 


11-1 


13-1 


14-1 


15-1 


'6-1 


17-1 


19-1 


19-1 


19-1 


19-1 


19-1 


20-1 


21-1 


22-1 












10-327 


10-350 


10-675 


10-675 


10-756 


10-779 


10-330 


10-360 












9-24 


9-24* 
























? 0-1 51 


10-173 


10-223 


10-241 


10-=81 


10-=99 


10->53 


10->53 


10->73 


10->73 









